1use strict; 2use warnings; 3 4use lib 't/lib'; 5use Test::More; 6 7use TestSchema; 8use DateTime; 9 10TestSchema->load_components('Helper::Schema::DateTime'); 11my $schema = TestSchema->deploy_or_connect(); 12 13isa_ok($schema->datetime_parser, 'DateTime::Format::SQLite'); 14my $dt = DateTime->now; 15my $s = $schema->format_datetime($dt); 16is( 17 $schema->format_datetime($schema->parse_datetime($s)), 18 $schema->format_datetime($dt), 19 'format_datetime and parse_datetime roundtrip', 20); 21 22done_testing; 23