Commit | Line | Data |
05e8dc0a |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use lib qw(t/lib); |
6 | use DBICTest; |
7 | |
8 | eval { require DateTime::Format::MySQL }; |
9 | |
10 | plan $@ ? ( skip_all => 'Requires DateTime::Format::MySQL' ) |
11 | : ( tests => 3 ); |
12 | |
13 | my $schema = DBICTest->init_schema( |
14 | no_deploy => 1, # Deploying would cause an early rebless |
15 | ); |
16 | |
17 | is( |
18 | ref $schema->storage, 'DBIx::Class::Storage::DBI', |
19 | 'Starting with generic storage' |
20 | ); |
21 | |
22 | # Calling date_time_parser should cause the storage to be reblessed, |
23 | # so that we can pick up datetime_parser_type from subclasses |
24 | |
25 | my $parser = $schema->storage->datetime_parser(); |
26 | |
27 | # We're currently expecting a MySQL parser. May change in future. |
28 | is($parser, 'DateTime::Format::MySQL', 'Got expected datetime_parser'); |
29 | |
30 | isa_ok($schema->storage, 'DBIx::Class::Storage::DBI::SQLite', 'storage'); |
31 | |