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