[p5sagit/p5-mst-13.2.git] / ext / Time-Piece / t / 03compare.t

use Test;
BEGIN { plan tests => 5 }
use Time::Piece;

my @t = ('2002-01-01 00:00',
         '2002-01-01 01:20');

@t = map Time::Piece->strptime($_, '%Y-%m-%d %H:%M'), @t;

ok($t[0] < $t[1]);

ok($t[0] != $t[1]);

ok($t[0] == $t[0]);

ok($t[0] != $t[1]);

ok($t[0] <= $t[1]);
Commit	Line	Data
16433e2b	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