diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/date/Test.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/date/Test.pm b/tests/date/Test.pm index 1eb9eaf07..d83240b49 100644 --- a/tests/date/Test.pm +++ b/tests/date/Test.pm @@ -15,6 +15,15 @@ sub test_vector my $d0 = '1997-01-19'; my $d1 = "$d0 $t0 +0"; + my $ts = '08:17:49'; # next second + my $tm = '08:18:48'; # next minute + my $th = '09:17:48'; # next hour + + my $dd = '1997-01-20'; # next day + my $dw = '1997-01-26'; # next week + my $dm = '1997-02-19'; # next month + my $dy = '1998-01-19'; # next month + my $fmt = "'+%Y-%m-%d %T'"; my @tvec = @@ -66,6 +75,14 @@ sub test_vector ['rel-3a', "-d '$d1 4 seconds ago' $fmt", {}, "$d0 08:17:44", 0], + ['next-s', "-d '$d1 next second' '+%Y-%m-%d %T'", {}, "$d0 $ts", 0], + ['next-m', "-d '$d1 next minute' '+%Y-%m-%d %T'", {}, "$d0 $tm", 0], + ['next-h', "-d '$d1 next hour' '+%Y-%m-%d %T'", {}, "$d0 $th", 0], + ['next-d', "-d '$d1 next day' '+%Y-%m-%d %T'", {}, "$dd $t0", 0], + ['next-w', "-d '$d1 next week' '+%Y-%m-%d %T'", {}, "$dw $t0", 0], + ['next-mo', "-d '$d1 next month' '+%Y-%m-%d %T'", {}, "$dm $t0", 0], + ['next-y', "-d '$d1 next year' '+%Y-%m-%d %T'", {}, "$dy $t0", 0], + # FIXME: add a lot more... ); |