Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
24f5cbcb |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | use Test::Exception; |
c0329273 |
8 | |
24f5cbcb |
9 | use DBICTest; |
10 | |
11 | my $no_class = '_DBICTEST_NONEXISTENT_CLASS_'; |
12 | |
13 | my $schema = DBICTest->init_schema(); |
14 | $schema->storage->datetime_parser_type($no_class); |
15 | |
16 | my $event = $schema->resultset('Event')->find(1); |
17 | |
18 | # test that datetime_undef_if_invalid does not eat the missing dep exception |
19 | throws_ok { |
20 | my $dt = $event->starts_at; |
21 | } qr{Can't locate ${no_class}\.pm}; |
22 | |
23 | done_testing; |