Blame t/on_fail_regex.t

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