258 lines
10 KiB
C++
258 lines
10 KiB
C++
//Copyright (c) 2008-2016 Emil Dotchevski and Reverge Studios, Inc.
|
|
|
|
//Distributed under the Boost Software License, Version 1.0. (See accompanying
|
|
//file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
|
|
|
|
#ifndef UUID_06E5D36EB6C211DEA317E19C55D89593
|
|
#define UUID_06E5D36EB6C211DEA317E19C55D89593
|
|
|
|
#include <boost/test/floating_point_comparison.hpp>
|
|
#include <boost/detail/lightweight_test.hpp>
|
|
#include <iostream>
|
|
|
|
#define BOOST_QVM_TEST_EQ(expra,exprb) ( ::test_qvm::detail::test_eq_impl(#expra, #exprb, __FILE__, __LINE__, BOOST_CURRENT_FUNCTION, expra, exprb) )
|
|
#define BOOST_QVM_TEST_NEQ(expra,exprb) ( ::test_qvm::detail::test_neq_impl(#expra, #exprb, __FILE__, __LINE__, BOOST_CURRENT_FUNCTION, expra, exprb) )
|
|
#define BOOST_QVM_TEST_CLOSE(expra,exprb,exprt) ( ::test_qvm::detail::test_close_impl(#expra, #exprb, #exprt, __FILE__, __LINE__, BOOST_CURRENT_FUNCTION, expra, exprb, exprt) )
|
|
|
|
#define BOOST_QVM_TEST_EQ_QUAT(expra,exprb) ( ::test_qvm::detail::test_eq_q_impl(#expra, #exprb, __FILE__, __LINE__, BOOST_CURRENT_FUNCTION, expra, exprb) )
|
|
#define BOOST_QVM_TEST_NEQ_QUAT(expra,exprb) ( ::test_qvm::detail::test_neq_q_impl(#expra, #exprb, __FILE__, __LINE__, BOOST_CURRENT_FUNCTION, expra, exprb) )
|
|
#define BOOST_QVM_TEST_CLOSE_QUAT(expra,exprb,exprt) ( ::test_qvm::detail::test_close_q_impl(#expra, #exprb, #exprt, __FILE__, __LINE__, BOOST_CURRENT_FUNCTION, expra, exprb, exprt) )
|
|
|
|
namespace
|
|
test_qvm
|
|
{
|
|
namespace
|
|
detail
|
|
{
|
|
inline
|
|
bool
|
|
close_at_tolerance( float a, float b, float tolerance )
|
|
{
|
|
return boost::math::fpc::close_at_tolerance<float>(tolerance,boost::math::fpc::FPC_STRONG)(a,b);
|
|
}
|
|
|
|
inline
|
|
bool
|
|
close_at_tolerance( double a, double b, double tolerance )
|
|
{
|
|
return boost::math::fpc::close_at_tolerance<double>(tolerance,boost::math::fpc::FPC_STRONG)(a,b);
|
|
}
|
|
|
|
template <class A,class B>
|
|
void
|
|
dump_ab( A a, B b )
|
|
{
|
|
std::cerr << a << '\t' << b << std::endl;
|
|
}
|
|
|
|
template <class A,class B,int D>
|
|
void
|
|
dump_ab( A (&a)[D], B (&b)[D] )
|
|
{
|
|
for( int i=0; i!=D; ++i )
|
|
dump_ab(a[i],b[i]);
|
|
}
|
|
|
|
template <class A,class B>
|
|
void
|
|
test_eq_impl( char const * expra, char const * exprb, char const * file, int line, char const * function, A a, B b )
|
|
{
|
|
using namespace ::boost::qvm;
|
|
if( !(a==b) )
|
|
{
|
|
std::cerr << file << "(" << line << "): BOOST_QVM_TEST_EQ(" << expra << ',' << exprb
|
|
<< ") failed in function " << function << '\n';
|
|
dump_ab(a,b);
|
|
++::boost::detail::test_errors();
|
|
}
|
|
}
|
|
|
|
template <class A,class B,int M,int N>
|
|
void
|
|
test_eq_impl( char const * expra, char const * exprb, char const * file, int line, char const * function, A (&a)[M][N], B (&b)[M][N] )
|
|
{
|
|
using namespace ::boost::qvm;
|
|
for( int i=0; i<M; ++i )
|
|
for( int j=0; j<N; ++j )
|
|
if( !(a[i][j]==b[i][j]) )
|
|
{
|
|
std::cerr << file << "(" << line << "): BOOST_QVM_TEST_EQ(" << expra << ',' << exprb
|
|
<< ") failed in function " << function << '\n';
|
|
dump_ab(a,b);
|
|
++::boost::detail::test_errors();
|
|
return;
|
|
}
|
|
}
|
|
|
|
template <class A,class B,int D>
|
|
void
|
|
test_eq_impl( char const * expra, char const * exprb, char const * file, int line, char const * function, A (&a)[D], B (&b)[D] )
|
|
{
|
|
using namespace ::boost::qvm;
|
|
for( int i=0; i<D; ++i )
|
|
if( !(a[i]==b[i]) )
|
|
{
|
|
std::cerr << file << "(" << line << "): BOOST_QVM_TEST_EQ" << expra << ',' << exprb
|
|
<< ") failed in function " << function <<'\n';
|
|
dump_ab(a,b);
|
|
++::boost::detail::test_errors();
|
|
return;
|
|
}
|
|
}
|
|
|
|
template <class A,class B>
|
|
void
|
|
test_eq_q_impl( char const * expra, char const * exprb, char const * file, int line, char const * function, A (&a)[4], B (&b)[4] )
|
|
{
|
|
using namespace ::boost::qvm;
|
|
int i;
|
|
for( i=0; i<4; ++i )
|
|
if( !(a[i]==b[i]) )
|
|
break;
|
|
if( i==4 )
|
|
return;
|
|
for( i=0; i<4; ++i )
|
|
if( !(a[i]==-b[i]) )
|
|
{
|
|
std::cerr << file << "(" << line << "): BOOST_QVM_TEST_EQ" << expra << ',' << exprb
|
|
<< ") failed in function " << function <<'\n';
|
|
dump_ab(a,b);
|
|
++::boost::detail::test_errors();
|
|
return;
|
|
}
|
|
}
|
|
|
|
template <class A,class B>
|
|
void
|
|
test_neq_impl( char const * expra, char const * exprb, char const * file, int line, char const * function, A a, B b )
|
|
{
|
|
using namespace ::boost::qvm;
|
|
if( !(a!=b) )
|
|
{
|
|
std::cerr << file << "(" << line << "): BOOST_QVM_TEST_NEQ(" << expra << ',' << exprb
|
|
<< ") failed in function " << function << '\n';
|
|
dump_ab(a,b);
|
|
++::boost::detail::test_errors();
|
|
}
|
|
}
|
|
|
|
template <class A,class B,int M,int N>
|
|
void
|
|
test_neq_impl( char const * expra, char const * exprb, char const * file, int line, char const * function, A (&a)[M][N], B (&b)[M][N] )
|
|
{
|
|
using namespace ::boost::qvm;
|
|
for( int i=0; i<M; ++i )
|
|
for( int j=0; j<N; ++j )
|
|
if( a[i][j]!=b[i][j] )
|
|
return;
|
|
std::cerr << file << "(" << line << "): BOOST_QVM_TEST_NEQ(" << expra << ',' << exprb
|
|
<< ") failed in function " << function << '\n';
|
|
dump_ab(a,b);
|
|
++::boost::detail::test_errors();
|
|
}
|
|
|
|
template <class A,class B,int D>
|
|
void
|
|
test_neq_impl( char const * expra, char const * exprb, char const * file, int line, char const * function, A (&a)[D], B (&b)[D] )
|
|
{
|
|
using namespace ::boost::qvm;
|
|
for( int i=0; i<D; ++i )
|
|
if( a[i]!=b[i] )
|
|
return;
|
|
std::cerr << file << "(" << line << "): BOOST_QVM_TEST_NEQ(" << expra << ',' << exprb
|
|
<< ") failed in function " << function << '\n';
|
|
dump_ab(a,b);
|
|
++::boost::detail::test_errors();
|
|
}
|
|
|
|
template <class A,class B>
|
|
void
|
|
test_neq_q_impl( char const * expra, char const * exprb, char const * file, int line, char const * function, A (&a)[4], B (&b)[4] )
|
|
{
|
|
using namespace ::boost::qvm;
|
|
int i;
|
|
for( i=0; i<4; ++i )
|
|
if( !(a[i]!=b[i]) )
|
|
break;
|
|
if( i==4 )
|
|
return;
|
|
for( i=0; i<4; ++i )
|
|
if( !(a[i]!=-b[i]) )
|
|
{
|
|
std::cerr << file << "(" << line << "): BOOST_QVM_TEST_EQ" << expra << ',' << exprb
|
|
<< ") failed in function " << function <<'\n';
|
|
dump_ab(a,b);
|
|
++::boost::detail::test_errors();
|
|
return;
|
|
}
|
|
}
|
|
|
|
template <class A,class B,class T>
|
|
void
|
|
test_close_impl( char const * expra, char const * /*exprb*/, char const * /*exprt*/, char const * file, int line, char const * function, A a, B b, T t )
|
|
{
|
|
if( !close_at_tolerance(a,b,t) )
|
|
{
|
|
std::cerr << file << "(" << line << "): BOOST_QVM_TEST_CLOSE(" << expra << ',' << b << ',' << t
|
|
<< ") failed in function " << function << '\n';
|
|
++::boost::detail::test_errors();
|
|
return;
|
|
}
|
|
}
|
|
|
|
template <class A,class B,class T,int M,int N>
|
|
void
|
|
test_close_impl( char const * expra, char const * exprb, char const * exprt, char const * file, int line, char const * function, A (&a)[M][N], B (&b)[M][N], T t )
|
|
{
|
|
for( int i=0; i<M; ++i )
|
|
for( int j=0; j<N; ++j )
|
|
if( !close_at_tolerance(a[i][j],b[i][j],t) )
|
|
{
|
|
std::cerr << file << "(" << line << "): BOOST_QVM_TEST_CLOSE(" << expra << ',' << exprb << ',' << exprt
|
|
<< ") failed in function " << function << '\n';
|
|
dump_ab(a,b);
|
|
++::boost::detail::test_errors();
|
|
return;
|
|
}
|
|
}
|
|
|
|
template <class A,class B,class T,int D>
|
|
void
|
|
test_close_impl( char const * expra, char const * exprb, char const * exprt, char const * file, int line, char const * function, A (&a)[D], B (&b)[D], T t )
|
|
{
|
|
for( int i=0; i<D; ++i )
|
|
if( !close_at_tolerance(a[i],b[i],t) )
|
|
{
|
|
std::cerr << file << "(" << line << "): BOOST_QVM_TEST_CLOSE(" << expra << ',' << exprb << ',' << exprt
|
|
<< ") failed in function " << function << '\n';
|
|
dump_ab(a,b);
|
|
++::boost::detail::test_errors();
|
|
return;
|
|
}
|
|
}
|
|
|
|
template <class A,class B,class T>
|
|
void
|
|
test_close_q_impl( char const * expra, char const * exprb, char const * exprt, char const * file, int line, char const * function, A (&a)[4], B (&b)[4], T t )
|
|
{
|
|
int i;
|
|
for( i=0; i<4; ++i )
|
|
if( !close_at_tolerance(a[i],b[i],t) )
|
|
break;
|
|
if( i==4 )
|
|
return;
|
|
for( i=0; i<4; ++i )
|
|
if( !close_at_tolerance(a[i],-b[i],t) )
|
|
{
|
|
std::cerr << file << "(" << line << "): BOOST_QVM_TEST_CLOSE_QUAT(" << expra << ',' << exprb << ',' << exprt
|
|
<< ") failed in function " << function << '\n';
|
|
dump_ab(a,b);
|
|
++::boost::detail::test_errors();
|
|
return;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
#endif
|