diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/02-number-handling.t | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/t/02-number-handling.t b/t/02-number-handling.t index 0bc786da..d75fda3d 100644 --- a/t/02-number-handling.t +++ b/t/02-number-handling.t @@ -45,7 +45,7 @@ my @formats = (['1,000.00', ',', '.'], ["1'000.00", "'", '.'], ['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 .. 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 .. 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, |