diff options
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; |