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; |