trAvis - MANAGER

Edit File: fall.t

use strict;
use warnings;

use Test::More;

use DateTime::Format::Builder;

SKIP: {
    my @three = map { "DateTime::Format::$_" } qw( HTTP Mail IBeat );
    my @fails;
    for my $mod (@three) {
        eval "require $mod";
        push @fails, $mod if $@;
    }
    skip "@fails not installed.", 3 if @fails;

eval qq|package DateTime::Format::Fall;|
        . join( "", map { "use $_;\n" } @three ) . q|
        use DateTime::Format::Builder (
        parsers => { parse_datetime => [
        |
        . join(
        "",
        map { qq|sub { eval { $_->parse_datetime( \$_[1] ) } },\n| } @three
        )
        . q|
        ]});

1;
    |;

die $@ if $@;

my $get = sub {
        eval {
            DateTime::Format::Fall->parse_datetime( $_[0] )
                ->set_time_zone('UTC')->datetime;
        };
    };

for ( '@d19.07.03 @704', '20030719T155345Z' ) {
        my $dt = $get->($_);
        is $dt, "2003-07-19T15:53:45", "Can parse [$_]";
    }

for ('gibberish') {
        my $dt = $get->($_);
        ok( !defined $dt, "Shouldn't parse [$_]" );
    }
}

done_testing();