Changeset 489 for library/tests

Timestamp:

08/08/09 13:43:16 (15 years ago)

Author:

smidl

Message:

Mpdf redesing is complet - all tests pass (except mlnorm<chmat> which is irrelevant)

Location:

library/tests

Files:

• epdf_harness.cpp (modified) (1 diff)
• mepdf.cfg (modified) (1 diff)
• mgamma.cfg (modified) (1 diff)
• mlnorm.cfg (modified) (1 diff)

library/tests/epdf_harness.cpp

@@ -175 +175 @@
         } while ( ( tc < CurrentContext::max_trial_count ) &&
                   !UnitTest::AreClose ( R, actual( tc - 1 ), tolerance ) );
+        
         if ( ( tc == CurrentContext::max_trial_count ) &&
              ( !UnitTest::AreClose ( R, actual( CurrentContext::max_trial_count - 1 ), tolerance ) ) ) {

library/tests/mepdf.cfg

@@ -18 +18 @@
   mean = [ 1.1, -1.0 ];
   R = ( "matrix", 2, 2, [ 1.0, -0.5, -0.5, 2.0 ] );
+  variance = [ 1.0, 2.0 ];
   tolerance = 0.1;
-  variance = [ 0.3, 0.3 ];
 } );
 

library/tests/mgamma.cfg

@@ -20 +20 @@
   mean = [ 1.5, 1.7 ];
   R = ( "matrix", 2, 2, [ 2.25, 0.0, 0.0, 2.89 ] );
-  variance = [ 0.4, 0.4 ];
+  variance = [ 2.25, 2.89];
   tolerance = 0.4;
 } );

library/tests/mlnorm.cfg

@@ -10 +10 @@
   cond = [ 1.5, 1.7 ];
   mean = [ 1.5, 1.7 ];
-  R = ( "matrix", 2, 2, [ 1.26402, 0.378231, 0.378231, 5.15925 ] );
+  R = ( "matrix", 2, 2, [ 1.2, 0.3, 0.3, 5.0 ] );
+  variance = [ 1.2, 5.0 ];
   tolerance = 0.6;
-  variance = [ 0.2, 0.2 ];
-} );
+},
+{
+  class = "mpdf_harness";
+  mpdf = {
+    class = "mlnorm<chmat>";
+    A = ( "matrix", 2, 2, [ 1.0, 0.0, 0.0, 1.0 ] );
+    const = [ 0, 0 ];
+    R = ( "matrix", 2, 2, [ 1.2, 0.3, 0.3, 5.0 ] );
+  };
+  cond = [ 1.5, 1.7 ];
+  mean = [ 1.5, 1.7 ];
+  R = ( "matrix", 2, 2, [ 1.2, 0.3, 0.3, 5.0 ] );
+  variance = [ 1.2, 5.0 ];
+  tolerance = 0.6;
+});