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

[..hidden..]

Revision: 336
          http://svn.sourceforge.net/ledger-smb/?rev=336&view=rev
Author:   tetragon
Date:     2006-10-27 10:49:12 -0700 (Fri, 27 Oct 2006)

Log Message:
-----------
Update tests for parsing new format: (n) is negative

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

Modified: trunk/t/02-number-handling.t
===================================================================
--- trunk/t/02-number-handling.t	2006-10-27 17:25:13 UTC (rev 335)
+++ trunk/t/02-number-handling.t	2006-10-27 17:49:12 UTC (rev 336)
@@ -45,7 +45,7 @@
 		['1.000,00', '.', ','], ['1000,00', '', ','], 
 		['1000.00', '', '.'], ['1 000.00', ' ', '.']);
 my %myfooconfig = (numberformat => '1000.00');
-foreach my $format (0 .. 5) {
+foreach my $format (0 .. $#formats) {
 	%myconfig = (numberformat => $formats[$format][0]);
 	my $thou = $formats[$format][1];
 	my $dec = $formats[$format][2];
@@ -64,7 +64,7 @@
 	}
 }
 
-foreach my $format (0 .. 5) {
+foreach my $format (0 .. $#formats) {
 	%myconfig = (numberformat => $formats[$format][0]);
 	my $thou = $formats[$format][1];
 	my $dec = $formats[$format][2];
@@ -86,37 +86,45 @@
 	}
 }
 
-foreach my $format (0 .. 5) {
+foreach my $format (0 .. $#formats) {
 	%myconfig = ('numberformat' => $formats[$format][0]);
 	my $thou = $formats[$format][1];
 	my $dec = $formats[$format][2];
 	foreach my $rawValue ('10t000d00', '9t999d99', '333d33', 
-			'7t777t777d77', '-12d34') {
+			'7t777t777d77', '-12d34', '(76t543d21)') {
 		$expected = $rawValue;
 		$expected =~ s/t/$thou/gx;
 		$expected =~ s/d/$dec/gx;
 		my $value = $rawValue;
 		$value =~ s/t//gx;
 		$value =~ s/d/\./gx;
-		$value = sprintf("%.2f", $value);
+		if ($value =~ m/^\(/gx) {
+			$value = Math::BigFloat->new('-'.substr($value, 1, -1));
+		} else {
+			$value = Math::BigFloat->new($value);
+		}
 		cmp_ok($form->parse_amount(\%myconfig, $expected), '==',  $value,
 			"$expected parsed as $formats[$format][0] - $value");
 	}
 }
 
-foreach my $format (0 .. 5) {
+foreach my $format (0 .. $#formats) {
 	%myconfig = ('numberformat' => $formats[$format][0]);
 	my $thou = $formats[$format][1];
 	my $dec = $formats[$format][2];
 	foreach my $rawValue ('10t000d00', '9t999d99', '333d33', 
-			'7t777t777d77', '-12d34') {
+			'7t777t777d77', '-12d34', '(76t543d21)') {
 		$expected = $rawValue;
 		$expected =~ s/t/$thou/gx;
 		$expected =~ s/d/$dec/gx;
 		my $value = $rawValue;
 		$value =~ s/t//gx;
 		$value =~ s/d/\./gx;
-		$value = sprintf("%.2f", $value);
+		if ($value =~ m/^\(/gx) {
+			$value = Math::BigFloat->new('-'.substr($value, 1, -1));
+		} else {
+			$value = Math::BigFloat->new($value);
+		}
 		cmp_ok($form->parse_amount(\%myconfig, 
 			$form->parse_amount(\%myconfig, $expected)),
 			'==',  $value,


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