| 1 | #!./perl |
| 2 | |
| 3 | use Test::More; |
| 4 | |
| 5 | my(@times, @methods); |
| 6 | BEGIN { |
| 7 | @times = (-2**55, -2**50, -2**33, -2**31-1, -1, 0, 1, 2**31-1, 2**33, 2**50, 2**55, time); |
| 8 | @methods = qw(sec min hour mday mon year wday yday isdst); |
| 9 | |
| 10 | plan tests => (@times * (@methods + 1)) + 1; |
| 11 | |
| 12 | use_ok Time::gmtime; |
| 13 | } |
| 14 | |
| 15 | for my $time (@times) { |
| 16 | my $gmtime = gmtime $time; # This is the OO gmtime. |
| 17 | my @gmtime = CORE::gmtime $time; # This is the gmtime function |
| 18 | |
| 19 | is @gmtime, 9, "gmtime($time)"; |
| 20 | for my $method (@methods) { |
| 21 | is $gmtime->$method, shift @gmtime, "gmtime($time)->$method"; |
| 22 | } |
| 23 | } |