source: trunk/test_more/test_more.cpp @ 2794

Last change on this file since 2794 was 2722, checked in by bradbell, 7 years ago
  1. Change echo_exec to echo_eval.

limits.hpp: Improve documentation.
limits.cpp: Simplify example.
epsilon.cpp: Replace by more general limits.cpp.
limits.cpp: Modified version of old example/limits.cpp.

  • Property svn:keywords set to Id
File size: 8.1 KB
Line 
1/* $Id: test_more.cpp 2722 2013-01-06 16:52:46Z bradbell $ */
2/* --------------------------------------------------------------------------
3CppAD: C++ Algorithmic Differentiation: Copyright (C) 2003-13 Bradley M. Bell
4
5CppAD is distributed under multiple licenses. This distribution is under
6the terms of the
7                    Eclipse Public License Version 1.0.
8
9A copy of this license is included in the COPYING file of this distribution.
10Please visit http://www.coin-or.org/CppAD/ for information on other licenses.
11-------------------------------------------------------------------------- */
12
13// system include files used for I/O
14# include <iostream>
15
16// memory leak checker
17# include <cppad/thread_alloc.hpp>
18
19// prototype external compiled tests (this line expected by bin/new_test.sh)
20extern bool abs(void);
21extern bool Acos(void);
22extern bool Add(void);
23extern bool AddEq(void);
24extern bool AddZero(void);
25extern bool alloc_openmp(void);
26extern bool Asin(void);
27extern bool assign(void);
28extern bool Atan(void);
29extern bool Atan2(void);
30extern bool base_adolc(void);
31extern bool base_alloc_test(void);
32extern bool check_simple_vector(void);
33extern bool Compare(void);
34extern bool CompareChange(void);
35extern bool CondExp(void);
36extern bool CondExpAD(void);
37extern bool copy(void);
38extern bool Cos(void);
39extern bool Cosh(void);
40extern bool cppad_eigen(void);
41extern bool dbl_epsilon(void);
42extern bool Div(void);
43extern bool DivEq(void);
44extern bool DivZeroOne(void);
45extern bool Erf(void);
46extern bool Exp(void);
47extern bool ForHess(void);
48extern bool for_sparse_jac(void);
49extern bool Forward(void);
50extern bool FromBase(void);
51extern bool FunCheck(void);
52extern bool ipopt_solve(void);
53extern bool jacobian(void);
54extern bool limits(void);
55extern bool Log(void);
56extern bool Log10(void);
57extern bool Mul(void);
58extern bool mul_level(void);
59extern bool MulEq(void);
60extern bool MulZeroOne(void);
61extern bool ndebug(void);
62extern bool NearEqualExt(void);
63extern bool Neg(void);
64extern bool ode_err_control(void);
65extern bool optimize(void);
66extern bool parameter(void);
67extern bool Poly(void);
68extern bool Pow(void);
69extern bool PowInt(void);
70extern bool print_for(void);
71extern bool reverse(void);
72extern bool rev_sparse_hes(void);
73extern bool rev_sparse_jac(void);
74extern bool RevTwo(void);
75extern bool RombergOne(void);
76extern bool Rosen34(void);
77extern bool Runge45(void);
78extern bool SimpleVector(void);
79extern bool Sin(void);
80extern bool SinCos(void);
81extern bool Sinh(void);
82extern bool sparse_hessian(void);
83extern bool sparse_jacobian(void);
84extern bool sparse_vec_ad(void);
85extern bool Sqrt(void);
86extern bool std_math(void);
87extern bool Sub(void);
88extern bool SubEq(void);
89extern bool SubZero(void);
90extern bool tan(void);
91extern bool test_vector(void);
92extern bool track_new_del(void);
93extern bool Value(void);
94extern bool VecAD(void);
95extern bool VecADPar(void);
96extern bool VecUnary(void);
97
98namespace {
99        // function that runs one test
100        static size_t Run_ok_count    = 0;
101        static size_t Run_error_count = 0;
102        bool Run(bool TestOk(void), std::string name)
103        {       bool ok               = true;
104                std::streamsize width =  20;         
105                std::cout.width( width );
106                std::cout.setf( std::ios_base::left );
107                std::cout << name;
108                //
109                ok &= name.size() < size_t(width);
110                ok &= TestOk();
111                if( ok )
112                {       std::cout << "OK" << std::endl;
113                        Run_ok_count++;
114                }
115                else
116                {       std::cout << "Error" << std::endl;
117                        Run_error_count++;
118                }
119                return ok;
120        }
121}
122
123// main program that runs all the tests
124int main(void)
125{       bool ok = true;
126        using namespace std;
127
128        // This line is used by test_one.sh
129
130        // run external compiled tests (this line expected by bin/new_test.sh)
131        ok &= Run( abs,             "abs"            );
132        ok &= Run( Acos,            "Acos"           );
133        ok &= Run( Add,             "Add"            );
134        ok &= Run( AddEq,           "AddEq"          );
135        ok &= Run( AddZero,         "AddZero"        );
136        ok &= Run( Asin,            "Asin"           );
137        ok &= Run( assign,          "assign"         );
138        ok &= Run( Atan,            "Atan"           );
139        ok &= Run( Atan2,           "Atan2"          );
140        ok &= Run( check_simple_vector, "check_simple_vector" );
141        ok &= Run( Compare,         "Compare"        );
142        ok &= Run( CompareChange,   "CompareChange"  );
143        ok &= Run( CondExp,         "CondExp"        );
144        ok &= Run( CondExpAD,       "CondExpAD"      );
145        ok &= Run( copy,            "copy"           );
146        ok &= Run( Cos,             "Cos"            );
147        ok &= Run( Cosh,            "Cosh"           );
148        ok &= Run( dbl_epsilon,     "dbl_epsilon"    );
149        ok &= Run( Div,             "Div"            );
150        ok &= Run( DivEq,           "DivEq"          );
151        ok &= Run( DivZeroOne,      "DivZeroOne"     );
152        ok &= Run( Erf,             "Erf"            );
153        ok &= Run( Exp,             "Exp"            );
154        ok &= Run( ForHess,         "ForHess"        );
155        ok &= Run( for_sparse_jac,  "for_sparse_jac" );
156        ok &= Run( Forward,         "Forward"        );
157        ok &= Run( FromBase,        "FromBase"       );
158        ok &= Run( FunCheck,        "FunCheck"       );
159        ok &= Run( jacobian,        "jacobian"       );
160        ok &= Run( limits,          "limits"         );
161        ok &= Run( Log,             "Log"            );
162        ok &= Run( Log10,           "Log10"          );
163        ok &= Run( Mul,             "Mul"            );
164        ok &= Run( mul_level,       "mul_level"      );
165        ok &= Run( MulEq,           "MulEq"          );
166        ok &= Run( MulZeroOne,      "MulZeroOne"     );
167        ok &= Run( ndebug,          "ndebug"         );
168        ok &= Run( NearEqualExt,    "NearEqualExt"   );
169        ok &= Run( Neg,             "Neg"            );
170        ok &= Run( ode_err_control, "ode_err_control");
171        ok &= Run( optimize,        "optimize"       );
172        ok &= Run( parameter,       "parameter"      );
173        ok &= Run( Poly,            "Poly"           );
174        ok &= Run( Pow,             "Pow"            );
175        ok &= Run( PowInt,          "PowInt"         );
176        ok &= Run( print_for,       "print_for"      );
177        ok &= Run( reverse,         "reverse"        );
178        ok &= Run( rev_sparse_hes,  "rev_sparse_hes" );
179        ok &= Run( rev_sparse_jac,  "rev_sparse_jac" );
180        ok &= Run( RevTwo,          "RevTwo"         );
181        ok &= Run( RombergOne,      "RombergOne"     );
182        ok &= Run( Rosen34,         "Rosen34"        );
183        ok &= Run( Runge45,         "Runge45"        );
184        ok &= Run( SimpleVector,    "SimpleVector"   );
185        ok &= Run( Sin,             "Sin"            );
186        ok &= Run( SinCos,          "SinCos"         );
187        ok &= Run( Sinh,            "Sinh"           );
188        ok &= Run( sparse_hessian,  "sparse_hessian" );
189        ok &= Run( sparse_jacobian, "sparse_jacobian");
190        ok &= Run( sparse_vec_ad,   "sparse_vec_ad"  );
191        ok &= Run( Sqrt,            "Sqrt"           );
192        ok &= Run( std_math,        "std_math"       );
193        ok &= Run( Sub,             "Sub"            );
194        ok &= Run( SubEq,           "SubEq"          );
195        ok &= Run( SubZero,         "SubZero"        );
196        ok &= Run( tan,             "tan"            );
197        ok &= Run( track_new_del,   "track_new_del"  );
198        ok &= Run( Value,           "Value"          );
199        ok &= Run( VecAD,           "VecAD"          );
200        ok &= Run( VecADPar,        "VecADPar"       );
201        ok &= Run( VecUnary,        "VecUnary"       );
202# ifdef CPPAD_ADOLC_TEST
203        ok &= Run( base_adolc,      "base_adolc"     );
204# endif
205# ifdef CPPAD_IPOPT_TEST
206        ok &= Run( ipopt_solve,     "ipopt_solve"    );
207# endif
208# ifdef CPPAD_OPENMP_TEST
209        ok &= Run( alloc_openmp,    "alloc_openmp"   );
210# endif
211# ifdef CPPAD_EIGEN_TEST
212        ok &= Run( cppad_eigen, "cppad_eigen" );
213# endif
214# if ! CPPAD_EIGENVECTOR
215        ok &= Run( test_vector, "test_vector" );
216# endif
217
218        // check for errors
219        using std::cout;
220        using std::endl;
221        assert( ok || (Run_error_count > 0) );
222        if( CppAD::thread_alloc::free_all() )
223        {       Run_ok_count++;
224                cout << "OK:    " << "No memory leak detected" << endl;
225        }
226        else
227        {       ok = false;
228                Run_error_count++;
229                cout << "Error: " << "memory leak detected" << endl;
230        }
231        // Run base_require after memory leak check because base_alloc.hpp uses
232        // thread_alloc to allocate memory for static copies of nan.
233        ok &= Run( base_alloc_test, "base_alloc"     );
234        // convert int(size_t) to avoid warning on _MSC_VER systems
235        if( ok )
236                cout << "All " << int(Run_ok_count) << " tests passed." << endl;
237        else    cout << int(Run_error_count) << " tests failed." << endl;
238
239        return static_cast<int>( ! ok );
240
241}
242// END PROGRAM
Note: See TracBrowser for help on using the repository browser.