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
39
40
|
use Test::More qw(no_plan);
BEGIN {
use_ok ('Date::Leapyear');
}
# 1900
is( isleap(1900), 0, '1900 is not leap' );
# 1901
is( isleap(1901), 0, '1901 is not leap' );
# 1902
is( isleap(1902), 0, '1902 is not leap' );
# 1903
is( isleap(1903), 0, '1903 is not leap' );
# 1904
is( isleap(1904), 1, '1904 is leap' );
# 2000
is( isleap(2000), 1, '2000 is leap' );
# 2001
is( isleap(2001), 0, '2001 is not leap' );
# 2004
is( isleap(2004), 1, '2004 is leap' );
# 1984
is( isleap(1984), 1, '1984 is leap' );
# 1985
is( isleap(1985), 0, '1985 is not leap' );
# 1972
is( isleap(1972), 1, '1972 is leap' );
|
