[lmi-commits] [5791] Test untrapped precondition failures

[Greg Chicares]

Revision: 5791
          http://svn.sv.gnu.org/viewvc/?view=rev&root=lmi&revision=5791
Author:   chicares
Date:     2013-10-15 09:16:27 +0000 (Tue, 15 Oct 2013)
Log Message:
-----------
Test untrapped precondition failures

Modified Paths:
--------------
    lmi/trunk/gpt_test.cpp

Modified: lmi/trunk/gpt_test.cpp
===================================================================
--- lmi/trunk/gpt_test.cpp      2013-10-13 15:37:14 UTC (rev 5790)
+++ lmi/trunk/gpt_test.cpp      2013-10-15 09:16:27 UTC (rev 5791)
@@ -101,11 +101,13 @@
   public:
     static void test()
         {
+        test_invariants();
         test_premium_calculations();
         assay_speed();
         }
 
   private:
+    static void test_invariants();
     static void test_premium_calculations();
     static void assay_speed();
 
@@ -194,6 +196,35 @@
     return gpt_cf_triad(q_m, glp_ic, glp_ig, gsp_ic, gsp_ig, v_parms());
 }
 
+void gpt_test::test_invariants()
+{
+    gpt_scalar_parms parms =
+        {     0   // duration
+        ,  1000.0 // target
+        ,120000.0 // f3bft
+        ,100000.0 // endt_bft
+        ,100000.0 // chg_sa_amt
+        ,     0.0 // qab_gio_amt
+        ,100000.0 // qab_adb_amt
+        ,     0.0 // qab_term_amt
+        ,     0.0 // qab_spouse_amt
+        ,     0.0 // qab_child_amt
+        ,     0.0 // qab_waiver_amt
+        };
+
+    initialize(0);
+    gpt_cf_triad const z = instantiate_cf();
+
+    parms.duration = -1;
+    double const x0 = z.calculate_premium(oe_gsp, mce_option1_for_7702, parms);
+
+    parms.duration = q_m.size();
+    double const x1 = z.calculate_premium(oe_gsp, mce_option1_for_7702, parms);
+
+    // Values are bogus, if this line is even reached:
+    std::cout << x0 << ' ' << x1 << std::endl;
+}
+
 /// The obsolescent GPT class more or less requires this ugliness.
 
 Irc7702* ugliness = 0;