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
|
use strict;
use warnings;
use Test::More;
use DateTime::Format::Builder;
{
eval q!package DTFB::FailRegexTest;
use DateTime::Format::Builder (
parsers => {
parse_datetime => [
{
regex => qr|\d{4}-\d{2}-\d{2}|,
params => [ qw(year month day) ]
}
]
}
);
!;
ok( !$@, "Made class" );
diag $@ if $@;
my $o = DTFB::FailRegexTest->new();
my $str = eval { $o->parse_datetime("FooBlah") };
my $e = $@;
my $file = __FILE__;
like( $e, qr(at \Q$file\E), "Should croak from this file" );
}
done_testing();
|
