1use Test;
2BEGIN { plan tests => 5 }
3use Time::Piece;
4
5my @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
10ok($t[0] < $t[1]);
11
12ok($t[0] != $t[1]);
13
14ok($t[0] == $t[0]);
15
16ok($t[0] != $t[1]);
17
18ok($t[0] <= $t[1]);
19
20