Changeset 456 for library/tests/mpdf_harness.cpp

Timestamp:

07/31/09 08:38:18 (15 years ago)

Author:

vbarta

Message:

custom test location for harness tests (extended UnitTest?++), configurable tolerance - all tests pass (most of the time)

Files:

• library/tests/mpdf_harness.cpp (modified) (3 diffs)

library/tests/mpdf_harness.cpp

@@ -1 +1 @@
 #include "mpdf_harness.h"
+#include "base/bdmbase.h"
+#include "base/user_info.h"
 #include "stat/exp_family.h"
 #include "mat_checks.h"
 #include "test_util.h"
 #include "UnitTest++.h"
-
-const double epsilon = 0.00001;
-
-namespace UnitTest
-{
-
-inline void CheckClose(TestResults &results, const itpp::vec &expected,
-                       const itpp::vec &actual, double tolerance,
-                       TestDetails const &details) {
-    if (!AreClose(expected, actual, tolerance)) { 
-        MemoryOutStream stream;
-        stream << "Expected " << expected << " +/- " << tolerance << " but was " << actual;
-
-        results.OnTestFailure(details, stream.GetText());
-    }
-}
-
-inline void CheckClose(TestResults &results, const itpp::mat &expected,
-                       const itpp::mat &actual, double tolerance,
-                       TestDetails const &details) {
-    if (!AreClose(expected, actual, tolerance)) { 
-        MemoryOutStream stream;
-        stream << "Expected " << expected << " +/- " << tolerance << " but was " << actual;
-
-        results.OnTestFailure(details, stream.GetText());
-    }
-}
-
-}
 
 namespace bdm {
@@ -39 +12 @@
 const ParticularUI<mpdf_harness> &ParticularUI<mpdf_harness>::factory(
     ParticularUI<mpdf_harness>("mpdf_harness"));
+
+void mpdf_harness::test_config(const char *config_file_name) {
+    RV::clear_all();
+
+    UIFile in(config_file_name);
+    Array<mpdf_harness *> input;
+    UI::get(input, in, "data");
+    int sz = input.size();
+    CHECK(sz > 0);
+    for (int i = 0; i < sz; ++i) {
+        input(i)->test(config_file_name, i);
+    }
+}
 
 void mpdf_harness::from_setting(const Setting &set) {
@@ -50 +36 @@
 
     UI::get(R, set, "R");
+
+    if (set.exists("tolerance")) {
+        UI::get(tolerance, set, "tolerance");
+    }
 }
 
-void mpdf_harness::test()
+void mpdf_harness::test(const char *config_name, int idx)
 {
+    CurrentContext cc(config_name, idx);
+
     mat smp = hmpdf->samplecond_m(cond, nsamples);
     int n = smp.cols();
-    vec Emu = smp * ones(n) / n;
-    mat Er = (smp*smp.transpose())/n - outer_product(Emu,Emu);
-    CHECK_CLOSE(mean, Emu, 0.1);
-    CHECK_CLOSE(R, Er, 0.1);
+    vec emu = smp * ones(n) / n;
+    mat er = (smp * smp.T()) / n - outer_product(emu, emu);
+    CHECK_CLOSE_EX(mean, emu, tolerance);
+    CHECK_CLOSE_EX(R, er, tolerance);
 }