Commit | Line | Data |
ae515736 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use lib qw(t/lib); |
6 | use DBICTest; |
7 | |
8 | my $schema = DBICTest->init_schema(); |
9 | |
10 | eval { require DateTime::Format::MySQL }; |
11 | plan skip_all => "Need DateTime::Format::MySQL for inflation tests" if $@; |
12 | |
13 | plan tests => 2; |
14 | |
15 | # inflation test |
16 | my $event = $schema->resultset("Event")->find(1); |
17 | |
18 | isa_ok($event->starts_at, 'DateTime', 'DateTime returned'); |
19 | |
20 | is($event->starts_at, '2006-04-25T22:24:33', 'Correct date/time'); |
21 | |