diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-05-07 06:12:03 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-05-07 06:12:03 +0000 |
| commit | 1362d71b4d88aed30dd797c86a1d215263796c1d (patch) | |
| tree | c4fe2e3f13405f55886cf37827ce55c4edc9385e /t/02-number-handling.t | |
| parent | 8dd214b61f500626b08b36acb22d116061ddb6fe (diff) | |
More test coverage
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1149 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 't/02-number-handling.t')
| -rw-r--r-- | t/02-number-handling.t | 8 |
1 files changed, 4 insertions, 4 deletions
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; |