Index: openacs-4/packages/accounts-finance/tcl/test/finance-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/accounts-finance/tcl/test/finance-test-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/accounts-finance/tcl/test/finance-test-procs.tcl	20 May 2010 18:07:12 -0000	1.1
+++ openacs-4/packages/accounts-finance/tcl/test/finance-test-procs.tcl	20 May 2010 23:14:07 -0000	1.2
@@ -14,12 +14,12 @@
         set cashflow1 [list -1000 -4000 5000 2000]
         set cashflow2 [list -1000 -4000]
         set cashflow3 [list 5000 2000]
-        set finance_rate 0.1
+        set finance_rate 0.10
         set reinvest_rate 0.12
-        set discount_rate 0.2548
-        aa_equals "Checp PV" [acc_fin::pv $cashflow2 $finance_rate] -4636.36
-        aa_equals "Check FV simple interest" [acc_fin::fvsimple $cashflow3 $reinvest_rate] 7600.
-        aa_equals "Check NPV" [acc_fin::npv $cashflow1 $discount_rate] 0.
+        set discount_rate 0.25482
+        aa_equals "Checp PV" [acc_fin::pv $cashflow2 $finance_rate] "-4636.36363636"
+        aa_equals "Check FV simple interest" [acc_fin::fvsimple $cashflow3 $reinvest_rate] "7600.0"
+        aa_equals "Check NPV" [acc_fin::npv $cashflow1 $discount_rate] "0.000550114657813"
         aa_equals "Check IRR" [acc_fin::irr $cashflow1] $discount_rate
         aa_equals "Check MIRR" [acc_fin::mirr $cashflow1 $finance_rate $reinvest_rate] "0.1791"
     }