view release on metacpan or  search on metacpan

t/19-validate.t  view on Meta::CPAN

use strict;
use warnings;
use boolean qw(true false);

use DateTime;
use DateTime::Format::Natural;
use DateTime::HiRes;
use DateTime::TimeZone;
use Test::More;

eval { DateTime::Format::Natural->new(lang => 'en') };
ok(!$@, 'lang');

my @formats = qw(
    d/m/y
    mm/dd/yy
    yyyy-mm-dd
);
foreach my $format (@formats) {
    eval { DateTime::Format::Natural->new(format => $format) };
    ok(!$@, "format $format");
}

my @bools = (
    [ 1,     '1'     ],
    [ 0,     '0'     ],
    [ true,  'true'  ],
    [ false, 'false' ],
);
foreach my $bool (@bools) {
    eval { DateTime::Format::Natural->new(prefer_future => $bool->[0]) };
    ok(!$@, "prefer_future $bool->[1]");
}
foreach my $bool (@bools) {
    eval { DateTime::Format::Natural->new(demand_future => $bool->[0]) };
    ok(!$@, "demand_future $bool->[1]");
}

eval { DateTime::Format::Natural->new(prefer_future => true, demand_future => true) };
ok($@ =~ /mutually exclusive/, 'prefer_future/demand_future');

eval { DateTime::Format::Natural->new(time_zone => 'floating') };
ok(!$@, 'time_zone string');

eval { DateTime::Format::Natural->new(time_zone => DateTime::TimeZone->new(name => 'Europe/Zurich')) };
ok(!$@, 'time_zone object');

eval { DateTime::Format::Natural->new(daytime => {}) };
ok(!$@, 'daytime empty');

eval { DateTime::Format::Natural->new(daytime => { morning => 8, afternoon => 14, evening => 20 }) };
ok(!$@, 'daytime hours');

eval { DateTime::Format::Natural->new(datetime => DateTime->now) };
ok(!$@, 'datetime with DateTime object');

eval { DateTime::Format::Natural->new(datetime => DateTime::HiRes->now) };
ok(!$@, 'datetime with DateTime::HiRes object');

eval { DateTime::Format::Natural->new(calendar_class => undef) };
ok(!$@, 'calendar_class undef');

if (eval { require DateTime::Calendar::Julian; 1 }) {
    eval { DateTime::Format::Natural->new(calendar_class => 'DateTime::Calendar::Julian') };
    ok(!$@, 'calendar_class class');
}

done_testing();