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