From 1362d71b4d88aed30dd797c86a1d215263796c1d Mon Sep 17 00:00:00 2001 From: tetragon Date: Mon, 7 May 2007 06:12:03 +0000 Subject: More test coverage git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1149 4979c152-3d1c-0410-bac9-87ea11338e46 --- t/02-number-handling.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 't/02-number-handling.t') diff --git a/t/02-number-handling.t b/t/02-number-handling.t index 5b694b1d..c151731f 100644 --- a/t/02-number-handling.t +++ b/t/02-number-handling.t @@ -51,7 +51,7 @@ 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', + foreach my $rawValue ('10t000d00', '9t999d99', '333d33', '85d50', '7t777t777d77', '-12d34') { $expected = $rawValue; $expected =~ s/t/$thou/gx; @@ -70,7 +70,7 @@ 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', + foreach my $rawValue ('10t000d00', '9t999d99', '333d33', '85d50', '7t777t777d77', '-12d34') { $expected = $rawValue; $expected =~ s/t/$thou/gx; @@ -92,7 +92,7 @@ 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', + foreach my $rawValue ('10t000d00', '9t999d99', '333d33', '85d50', '7t777t777d77', '-12d34', '(76t543d21)') { $expected = $rawValue; $expected =~ s/t/$thou/gx; @@ -127,7 +127,7 @@ 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', + foreach my $rawValue ('10t000d00', '9t999d99', '333d33', '85d50', '7t777t777d77', '-12d34', '(76t543d21)') { $expected = $rawValue; $expected =~ s/t/$thou/gx; -- cgit v1.2.3