EVOLUTION-MANAGER

Edit File: lengths.t

use strict;
use warnings;

use Test::More;

use DateTime::Format::Builder;

# Test multiple parsers having the same length
{
    my $which;

my @parsers = (
        {
            length      => 10,
            params      => [qw( month year day )],
            regex       => qr/^(\d\d)-(\d\d\d\d)-(\d\d)$/,
            postprocess => sub { $which = 1 },
        },
        {
            length      => 10,
            params      => [qw( year month day )],
            regex       => qr/^(\d\d\d\d)-(\d\d)-(\d\d)$/,
            postprocess => sub { $which = 2 },
        },
        {
            length      => 10,
            params      => [qw( day month year )],
            regex       => qr/^(\d\d)-(\d\d)-(\d\d\d\d)$/,
            postprocess => sub { $which = 3 },
        },
    );

my %data = (
        1 => "05-2003-10",
        2 => "2003-04-07",
        3 => "13-12-2006",
    );

{
        my $parser = DateTime::Format::Builder->parser(@parsers);
        isa_ok( $parser => 'DateTime::Format::Builder' );

for my $length ( sort keys %data ) {
            my $date = $data{$length};
            my $dt   = $parser->parse_datetime($date);
            isa_ok $dt => 'DateTime';
            is( $which, $length, "Used length parser $length" );
        }
    }
}

# Test single parser having multiple lengths
{
    my $which   = 0;
    my @parsers = (
        {
            length     => 4,
            regex      => qr/bar/,
            params     => [],
            preprocess => sub { $which = 4 }
        },
        {
            length     => 5,
            regex      => qr/bar/,
            params     => [],
            preprocess => sub { $which = 5 }
        },
        {
            length => [qw( 4 5 )],
            regex  => qr/(-?\d\d\d\d)/,
            params => [qw( year )],
        }
    );

my $parser = DateTime::Format::Builder->parser(@parsers);
    isa_ok( $parser => 'DateTime::Format::Builder' );

my %data = (
        4 => 2003,
        5 => -2003,
    );

for my $length ( sort keys %data ) {
        my $year = $data{$length};
        my $dt   = $parser->parse_datetime($year);
        isa_ok( $dt => 'DateTime' );
        is( $length,   $which, "Parser length $length for $year" );
        is( $dt->year, $year,  "Year $year matches" );
    }

}

done_testing();