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