Changeset 502 for library/tests/epdf_harness.cpp

Timestamp:

08/11/09 15:27:34 (15 years ago)

Author:

vbarta

Message:

added tests of epdf::evallog_m methods, moved them out of line

Files:

• library/tests/epdf_harness.cpp (modified) (1 diff)

library/tests/epdf_harness.cpp

@@ -87 +87 @@
                 }
 
-                CHECK_CLOSE_EX ( hepdf->evallog ( zeron ), mEp.evallogcond ( zeron, zero ), tolerance );
+                double lpz = hepdf->evallog ( zeron );
+                CHECK_CLOSE_EX ( lpz, mEp.evallogcond ( zeron, zero ), tolerance );
+
+                vec lpzv(1);
+                lpzv(0) = lpz;
+
+                mat zero1n ( hepdf->dimension(), 1 );
+                for ( int i = 0; i < zero1n.rows(); ++i ) {
+                        zero1n ( i, 0 ) = 0;
+                }
+
+                vec lpzv_act = hepdf->evallog_m ( zero1n );
+                CHECK_CLOSE_EX ( lpzv, lpzv_act, tolerance );
+
+                Array<vec> zeroa(3);
+                lpzv = vec( zeroa.size() );
+                for ( int i = 0; i < zeroa.size(); ++i ) {
+                        zeroa(i) = zeron;
+                        lpzv(i) = lpz;
+                }
+
+                lpzv_act = hepdf->evallog_m ( zeroa );
+                CHECK_CLOSE_EX ( lpzv, lpzv_act, tolerance );
         }
 }