view release on metacpan or  search on metacpan

t/app-calendr.t  view on Meta::CPAN

#!perl

use 5.006;
use strict;
use warnings FATAL => 'all';
use App::calendr;
use Test::More;

my $min_ver = 0.46;
eval "use Calendar::Bahai $min_ver";
plan skip_all => "Calendar::Bahai $min_ver required" if $@;

#eval { App::calendr->new->run };
#like($@, qr/Missing required arguments: name/);

eval { App::calendr->new({ name => 'xxx' })->run };
like($@, qr/Unsupported calendar/);

eval { App::calendr->new({ name => 'bahai', month => 'x', year => 172 })->run };
like($@, qr/Invalid month name/);

eval { App::calendr->new({ name => 'bahai', month => -1, year => 172 })->run };
like($@, qr/Invalid month/);

eval { App::calendr->new({ name => 'bahai', month => 0, year => 172 })->run };
like($@, qr/Invalid month/);

eval { App::calendr->new({ name => 'bahai', month => 1, year => 'x' })->run };
like($@, qr/did not pass type constraint/);

eval { App::calendr->new({ name => 'bahai', month => 1, year => -172 })->run };
like($@, qr/Invalid year/);

eval { App::calendr->new({ name => 'bahai', month => 1, year => 0 })->run };
like($@, qr/Invalid year/);

eval { App::calendr->new({ name => 'bahai', gdate => "1/2/3" })->run };
like($@, qr/ERROR: Invalid gregorian date/);

eval { App::calendr->new({ name => 'bahai', jday => -1 })->run };
like($@, qr/ERROR: Invalid julian day/);

done_testing();