[dbsrgits/DBIx-Class.git] / t / 89inflate_datetime.t

use strict;
use warnings;  

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

my $schema = DBICTest->init_schema();

eval { require DateTime::Format::MySQL };
plan skip_all => "Need DateTime::Format::MySQL for inflation tests" if $@;

plan tests => 2;

# inflation test
my $event = $schema->resultset("Event")->find(1);

isa_ok($event->starts_at, 'DateTime', 'DateTime returned');

is($event->starts_at, '2006-04-25T22:24:33', 'Correct date/time');
Commit	Line	Data
ae515736	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use lib qw(t/lib);
	6	use DBICTest;
	7
	8	my $schema = DBICTest->init_schema();
	9
	10	eval { require DateTime::Format::MySQL };
	11	plan skip_all => "Need DateTime::Format::MySQL for inflation tests" if $@;
	12
	13	plan tests => 2;
	14
	15	# inflation test
	16	my $event = $schema->resultset("Event")->find(1);
	17
	18	isa_ok($event->starts_at, 'DateTime', 'DateTime returned');
	19
	20	is($event->starts_at, '2006-04-25T22:24:33', 'Correct date/time');
	21