fall.t   [plain text]

#!/usr/bin/perl -w
use lib 'inc';
use strict;
use blib;

use Test::More tests => 4;
BEGIN { use_ok '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 [$_]" )
    }
}