[p5sagit/p5-mst-13.2.git] / ext / Time-Piece / t / 05overload.t

# Tests for overloads (+,-,<,>, etc)
use Test;
BEGIN { plan tests => 1 }
use Time::Piece;
my $t = localtime;
my $s = Time::Seconds->new(15);
eval { my $result = $t + $s };
ok($@, "", "Adding Time::Seconds does not cause runtime error");
Commit	Line	Data
16433e2b	1	# Tests for overloads (+,-,<,>, etc)
	2	use Test;
	3	BEGIN { plan tests => 1 }
	4	use Time::Piece;
	5	my $t = localtime;
	6	my $s = Time::Seconds->new(15);
	7	eval { my $result = $t + $s };
	8	ok($@, "", "Adding Time::Seconds does not cause runtime error");
	9