SF.net SVN: ledger-smb: [1135] branches/1.2/t/02-number-handling.t

[..hidden..]

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

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

Modified Paths:
--------------
    branches/1.2/t/02-number-handling.t

Modified: branches/1.2/t/02-number-handling.t
===================================================================
--- branches/1.2/t/02-number-handling.t	2007-05-06 18:54:36 UTC (rev 1134)
+++ branches/1.2/t/02-number-handling.t	2007-05-06 19:16:07 UTC (rev 1135)
@@ -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.