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.2 -r1.3 --- openacs-4/packages/accounts-finance/tcl/test/finance-test-procs.tcl 20 May 2010 23:14:07 -0000 1.2 +++ openacs-4/packages/accounts-finance/tcl/test/finance-test-procs.tcl 21 May 2010 23:36:33 -0000 1.3 @@ -16,7 +16,7 @@ set cashflow3 [list 5000 2000] set finance_rate 0.10 set reinvest_rate 0.12 - set discount_rate 0.25482 + set discount_rate 0.254969246263 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"