1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!/usr/bin/perl
use warnings;
use strict;
use Test::More;
use English qw( -no_match_vars );
use DateTime;
use DateTime::Calendar::Discordian;
eval{
DateTime::Calendar::Discordian->new
(day => q{St. Tib's day}, season => 'Chaos', year => 3166);
};
ok($EVAL_ERROR, 'St. Tibs and season');
eval{
DateTime::Calendar::Discordian->new
(day => 0, season => 'Chaos', year => 3166);
};
ok($EVAL_ERROR, 'day < 1');
eval{
DateTime::Calendar::Discordian->new
(day => 74, season => 'Chaos', year => 3166);
};
ok($EVAL_ERROR, 'day > 73');
eval{
DateTime::Calendar::Discordian->new
(day => 1, season => 'Order', year => 3166);
};
ok($EVAL_ERROR, 'invalid season');
eval{
DateTime::Calendar::Discordian->new(day => 1, year => 3166);
};
ok($EVAL_ERROR, 'missing season');
done_testing();
|
