Another candidate for somethingawful.com (fix left join-ed count)
[dbsrgits/DBIx-Class-Historic.git] / t / 36datetime.t
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::SQLite };
9 plan $@ ? ( skip_all => 'Requires DateTime::Format::SQLite' )
10         : ( tests => 3 );
11
12 my $schema = DBICTest->init_schema(
13     no_deploy => 1, # Deploying would cause an early rebless
14 );
15
16 is(
17     ref $schema->storage, 'DBIx::Class::Storage::DBI',
18     'Starting with generic storage'
19 );
20
21 # Calling date_time_parser should cause the storage to be reblessed,
22 # so that we can pick up datetime_parser_type from subclasses
23
24 my $parser = $schema->storage->datetime_parser();
25
26 is($parser, 'DateTime::Format::SQLite', 'Got expected storage-set datetime_parser');
27 isa_ok($schema->storage, 'DBIx::Class::Storage::DBI::SQLite', 'storage');
28