[dbsrgits/DBIx-Class.git] / t / run / 29inflate_datetime.tl

sub run_tests {
my $schema = shift;

eval { require DateTime::Format::MySQL };
plan skip_all => "Need DateTime::Format::MySQL for inflation tests" if $@;

plan tests => 2;

# inflation test
my $event = $schema->resultset("Event")->find(1);

isa_ok($event->starts_at, 'DateTime', 'DateTime returned');

is($event->starts_at, '2006-04-25T22:24:33', 'Correct date/time');

}

1;
Commit	Line	Data
f86fcf0d	1	sub run_tests {
	2	my $schema = shift;
	3
	4	eval { require DateTime::Format::MySQL };
	5	plan skip_all => "Need DateTime::Format::MySQL for inflation tests" if $@;
	6
	7	plan tests => 2;
	8
	9	# inflation test
	10	my $event = $schema->resultset("Event")->find(1);
	11
	12	isa_ok($event->starts_at, 'DateTime', 'DateTime returned');
	13
	14	is($event->starts_at, '2006-04-25T22:24:33', 'Correct date/time');
	15
	16	}
	17
	18	1;