Lines Matching refs:month
9 my @month = calendar(9, 2002);
11 is(@month, 6);
12 is(@{$month[0]}, 7);
13 is($month[0][6], 1);
14 ok(not defined $month[-1][-1]);
15 is($#{$month[-1]}, 6);
17 @month = calendar(2, 2009);
18 is(@month, 5);
19 is($month[0][6], 1);
20 is($month[4][5], 28);
21 ok(defined $month[-1][-2]);
22 is($#{$month[-1]}, 6);
24 @month = calendar(1, 2002);
25 ok(not defined $month[0][0]);
26 is($month[0][1], 1);
27 is($month[4][3], 31);
28 ok(not defined $month[4][6]);
29 ok(not defined $month[-1][-1]);
30 is($#{$month[-1]}, 6);
32 @month = calendar(1, 2002, 1);
33 ok(not defined $month[0][0]);
34 is($month[0][1], 1);
35 is($month[4][3], 31);
36 ok(not defined $month[4][4]);
37 ok(not defined $month[-1][-1]);
38 is($#{$month[-1]}, 6);
40 @month = calendar();
41 ok(@month);
43 eval { @month = calendar(-1) };
46 eval { @month = calendar(13) };
49 eval { @month = calendar(1, 2000, -1) };
52 eval { @month = calendar(1, 2000, 7) };
55 @month = calendar(2, 2000);
56 ok(@month);
64 eval { @month = calendar(2, 2100) };
68 eval { @month = calendar(2, 1500) };
71 @month = calendar(2, 2004);
72 ok(@month);
74 my $month = calendar();
75 is(ref $month, 'ARRAY');