t/inflate/datetime_determine_parser.t

   1 use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_dt_sqlite';
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use lib qw(t/lib);
   8 use DBICTest;
   9
  10 my $schema = DBICTest->init_schema(
  11     no_deploy => 1, # Deploying would cause an early rebless
  12 );
  13
  14 is(
  15     ref $schema->storage, 'DBIx::Class::Storage::DBI',
  16     'Starting with generic storage'
  17 );
  18
  19 # Calling date_time_parser should cause the storage to be reblessed,
  20 # so that we can pick up datetime_parser_type from subclasses
  21
  22 my $parser = $schema->storage->datetime_parser();
  23
  24 is($parser, 'DateTime::Format::SQLite', 'Got expected storage-set datetime_parser');
  25 isa_ok($schema->storage, 'DBIx::Class::Storage::DBI::SQLite', 'storage');
  26
  27 done_testing;