use strict;
use Test::More;
use File::Spec ();
use DateTime::Format::Mail;
my $sample = File::Spec->catfile(qw( t sample_dates ));
my $fh;
# Smart open since 5.008 will need to do a raw read rather
# than interpret the data as anything other than bytes.
if ( $] >= 5.008 ) {
eval 'open $fh, "<:raw", $sample'
or die "Cannot open $sample: $!";
}
else {
open $fh, "< $sample"
or die "Cannot open $sample: $!";
}
# Can we parse?
my $class = 'DateTime::Format::Mail';
my $f = $class->new()->loose();
while (<$fh>) {
chomp;
my $p = eval { $f->parse_datetime($_) };
ok( ( defined $p and ref $p and not $@), $_ );
}
done_testing;