ccd853582989bc9b4d28a681ba4a89564ad931f3
[perl.git] / ext / Time-Piece / t / 03compare.t
1 use Test;
2 BEGIN { plan tests => 5 }
3 use Time::Piece;
4
5 my @t = ('2002-01-01 00:00',
6          '2002-01-01 01:20');
7
8 @t = map Time::Piece->strptime($_, '%Y-%m-%d %H:%M'), @t;
9
10 ok($t[0] < $t[1]);
11
12 ok($t[0] != $t[1]);
13
14 ok($t[0] == $t[0]);
15
16 ok($t[0] != $t[1]);
17
18 ok($t[0] <= $t[1]);
19