diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-05-07 21:19:32 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-05-07 21:19:32 +0000 |
| commit | 5f08e16d4ccc930ad22f53800cd09a4d0e0a7867 (patch) | |
| tree | 6922f5eeac49f73642260066c73b6cbffc77dce6 /t | |
| parent | 7b0c5980f358925ddb4f9f9eef86774249e7de5b (diff) | |
Scope fixing and a bugfix for $form->add_date
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1160 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 't')
| -rw-r--r-- | t/03-date-handling.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/03-date-handling.t b/t/03-date-handling.t index 019115a0..be252e9d 100644 --- a/t/03-date-handling.t +++ b/t/03-date-handling.t @@ -328,5 +328,7 @@ foreach my $format (0 .. $#formats) { cmp_ok($form->add_date(\%myconfig, $start, 2, 'years'), 'eq', $results, "add_date, $fmt, 2 years, 2000-01-29"); } +cmp_ok($form->add_date(\%myconfig, '20000129', 2, 'years'), 'eq', + '20020129', 'add_date, yyyymmdd, 2 years, 20000129'); ok(!defined $form->add_date(\%myconfig), 'add_date, undef if no date'); |