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 | |
| 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')
| -rw-r--r-- | t/02-number-handling.t | 8 | ||||
| -rw-r--r-- | t/03-date-handling.t | 4 |
2 files changed, 8 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; diff --git a/t/03-date-handling.t b/t/03-date-handling.t index 68efe7dc..55fb4249 100644 --- a/t/03-date-handling.t +++ b/t/03-date-handling.t @@ -50,6 +50,7 @@ chomp $today_parts{'dd'}; # $locale->date checks # Note that $locale->date assumes the year range 2000-2099 # Note that $locale->date does not perform language-specific long forms +# Note that $locale->date also takes in yyyymmdd foreach my $format (0 .. $#formats) { %myconfig = (dateformat => $formats[$format][0]); my $fmt = $formats[$format][0]; @@ -61,6 +62,8 @@ foreach my $format (0 .. $#formats) { '', "date, $fmt: empty string"); cmp_ok($locale_en->date(\%myconfig, $formats[$format][3]), 'eq', $result, "date, $fmt: short"); + cmp_ok($locale_en->date(\%myconfig, '20000229'), 'eq', + $result, "date, $fmt: chopped"); for my $mm (1 .. 12) { my $start = $fmt; my $temp = sprintf('%02d', $mm); @@ -78,6 +81,7 @@ foreach my $format (0 .. $#formats) { } # $form->current_date checks +# Note that $form->current_date always uses the database foreach my $format (0 .. $#formats) { %myconfig = (dateformat => $formats[$format][0]); my $fmt = $formats[$format][0]; |