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
|
#!/usr/bin/perl
use warnings;
use strict;
use Test::More;
use DateTime;
use DateTime::Calendar::Discordian;
is(eval{DateTime::Calendar::Discordian->new
(day => q{St. Tib's day}, year => 3066)->day}, undef, 'date 1');
is(eval{DateTime::Calendar::Discordian->new
(day => q{St. Tib's day}, year => 3165)->day}, undef, 'date 2');
is(eval{DateTime::Calendar::Discordian->new
(day => q{St. Tib's day}, year => 3166)->day}, q{St. Tib's Day}, 'date 3');
is(DateTime::Calendar::Discordian->from_object(
object => DateTime->new(day => 29, month => 2, year =>, 2000,)
)->strftime("%d"), q{St. Tib's Day}, 'date 4');
is(DateTime::Calendar::Discordian->from_object(
object => DateTime->new(day => 29, month => 2, year =>, 1996,)
)->strftime("%d"), q{St. Tib's Day}, 'date 5');
is((DateTime::Calendar::Discordian->new
(day => q{St. Tib's day}, year => 3166)->utc_rd_values)[0],
(DateTime->new(day => 29, month => 2, year => 2000)->utc_rd_values)[0],
'date 6');
done_testing();
|
