Commit | Line | Data |
2857d2f7 |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; |
769448c3 |
6 | |
7 | require "./test.pl"; |
2857d2f7 |
8 | } |
9 | |
461d5a49 |
10 | my(@times, @methods); |
2857d2f7 |
11 | BEGIN { |
fc003d4b |
12 | @times = (-2**55, -2**50, -2**33, -2**31-1, -1, 0, 1, 2**31-1, 2**33, 2**50, 2**55, time); |
4c91ace1 |
13 | @methods = qw(sec min hour mday mon year wday yday isdst); |
2857d2f7 |
14 | |
fc003d4b |
15 | plan tests => (@times * (@methods + 1)) + 1; |
2857d2f7 |
16 | |
4c91ace1 |
17 | use_ok Time::localtime; |
769448c3 |
18 | } |
2857d2f7 |
19 | |
4c91ace1 |
20 | for my $time (@times) { |
769448c3 |
21 | my $localtime = localtime $time; # This is the OO localtime. |
22 | my @localtime = CORE::localtime $time; # This is the localtime function |
2857d2f7 |
23 | |
fc003d4b |
24 | is @localtime, 9, "localtime($time)"; |
4c91ace1 |
25 | for my $method (@methods) { |
769448c3 |
26 | is $localtime->$method, shift @localtime, "localtime($time)->$method"; |
27 | } |
28 | } |