SF.net SVN: ledger-smb: [1136] trunk/t/02-number-handling.t

[..hidden..]

Revision: 1136
          http://svn.sourceforge.net/ledger-smb/?rev=1136&view=rev
Author:   einhverfr
Date:     2007-05-06 12:16:51 -0700 (Sun, 06 May 2007)

Log Message:
-----------
Fixing rounding tests

Modified Paths:
--------------
    trunk/t/02-number-handling.t

Modified: trunk/t/02-number-handling.t
===================================================================
--- trunk/t/02-number-handling.t	2007-05-06 19:16:07 UTC (rev 1135)
+++ trunk/t/02-number-handling.t	2007-05-06 19:16:51 UTC (rev 1136)
@@ -19,11 +19,13 @@
 	foreach my $places ('3', '2', '1', '0') {
 		Math::BigFloat->round_mode('+inf');
 		$expected = Math::BigFloat->new($value)->ffround(-$places);
+		$expected->precision(undef);
 		is($form->round_amount($value, $places), $expected,
 			"$value to $places decimal places - $expected");
 
 		Math::BigFloat->round_mode('-inf');
 		$expected = Math::BigFloat->new(-$value)->ffround(-$places);
+		$expected->precision(undef);
 		is($form->round_amount(-$value, $places), $expected,
 			"-$value to $places decimal places - $expected");
 	}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.