t/inflate/datetime_determine_parser.t

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