trAvis - MANAGER

Edit File: on_fail_regex.t

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();