[dbsrgits/DBIx-Class.git] / t / 36datetime.t

use strict;
use warnings;  

use Test::More;
use lib qw(t/lib);
use DBICTest;

eval { require DateTime::Format::MySQL };

plan $@ ? ( skip_all => 'Requires DateTime::Format::MySQL' )
        : ( tests => 3 );

my $schema = DBICTest->init_schema(
    no_deploy => 1, # Deploying would cause an early rebless
);

is(
    ref $schema->storage, 'DBIx::Class::Storage::DBI',
    'Starting with generic storage'
);

# Calling date_time_parser should cause the storage to be reblessed,
# so that we can pick up datetime_parser_type from subclasses

my $parser = $schema->storage->datetime_parser();

# We're currently expecting a MySQL parser. May change in future.
is($parser, 'DateTime::Format::MySQL', 'Got expected datetime_parser');

isa_ok($schema->storage, 'DBIx::Class::Storage::DBI::SQLite', 'storage');
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