1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
use strict;
use warnings;
use Test::More;
use DateTime::Format::Builder;
{
eval q|
package DTFB::OnFailTest;
use DateTime::Format::Builder(
parsers => {
parse_datetime => [
[ on_fail => \&on_fail ],
{ strptime => '%m/%d/%Y%n%I:%M%p'},
{ strptime => '%Y/%m/%d%n%I:%M%p'},
{ strptime => '%m-%d-%Y%n%I:%M%p'},
{ strptime => '%F%n%I:%M%p'},
{ strptime => '%b%n%d,%n%Y%n%I:%M%p'},
{ strptime => '%m/%d/%Y%n%H:%M'},
{ strptime => '%Y/%m/%d%n%H:%M'},
{ strptime => '%m-%d-%Y%n%H:%M'},
{ strptime => '%F%n%H:%M'},
{ strptime => '%b%n%d,%n%Y%n%H:%M'},
{ strptime => '%m/%d/%Y'},
{ strptime => '%Y/%m/%d'},
{ strptime => '%m-%d-%Y'},
{ strptime => '%F'},
{ strptime => '%b%n%d,%n%Y'}
]
}
);
sub on_fail {
return undef;
}
1;
|;
ok( !$@, "Made class" );
diag $@ if $@;
my $o = DTFB::OnFailTest->new;
my $good_parse = $o->parse_datetime("2003/08/09");
isa_ok( $good_parse, 'DateTime' );
is( $good_parse->year => 2003, "Year good" );
is( $good_parse->month => 8, "Month good" );
is( $good_parse->day => 9, "Day good" );
my $bad_parse = eval { $o->parse_datetime("Fnerk") };
ok( !$@, "Bad parse gives no error" );
ok( ( !defined($bad_parse) ), "Bad parse correctly gives undef" );
}
done_testing();
|
