EVOLUTION-MANAGER

Edit File: quick.t

use strict;
use warnings;

use Test::More;

use DateTime::Format::Builder;

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

eval q|
        package DTFB::Quick;

use DateTime::Format::Builder (
        parsers => { parse_datetime => [
            { Quick => 'DateTime::Format::HTTP' },
            { Quick => 'DateTime::Format::Mail' },
            { Quick => 'DateTime::Format::IBeat' },
        ]});

1;
    |;
    die $@ if $@;

my $get = sub {
        eval {
            DTFB::Quick->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();