[perl5.git] / lib / Time / localtime.t

#!./perl

use Test::More;

my(@times, @methods);
BEGIN {
    @times   = (-2**55, -2**50, -2**33, -2**31-1, -1, 0, 1, 2**31-1, 2**33, 2**50, 2**55, time);
    @methods = qw(sec min hour mday mon year wday yday isdst);

    plan tests => (@times * (@methods + 1)) + 1;

    use_ok Time::localtime;
}

for my $time (@times) {
    my $localtime = localtime $time;          # This is the OO localtime.
    my @localtime = CORE::localtime $time;    # This is the localtime function

    is @localtime, 9, "localtime($time)";
    for my $method (@methods) {
        is $localtime->$method, shift @localtime, "localtime($time)->$method";
    }
}
Commit	Line	Data
2857d2f7 JH	1	#!./perl
2857d2f7 JH	2
bd3fc147	3	use Test::More;
2857d2f7	4
461d5a49	5	my(@times, @methods);
2857d2f7	6	BEGIN {
fc003d4b	7	@times = (-255, -250, -233, -231-1, -1, 0, 1, 231-1, 233, 250, 255, time);
4c91ace1	8	@methods = qw(sec min hour mday mon year wday yday isdst);
2857d2f7	9
fc003d4b	10	plan tests => (@times * (@methods + 1)) + 1;
2857d2f7	11
4c91ace1	12	use_ok Time::localtime;
769448c3	13	}
2857d2f7	14
4c91ace1	15	for my $time (@times) {
769448c3 MS	16	my $localtime = localtime $time; # This is the OO localtime.
769448c3 MS	17	my @localtime = CORE::localtime $time; # This is the localtime function
2857d2f7	18
fc003d4b	19	is @localtime, 9, "localtime($time)";
4c91ace1	20	for my $method (@methods) {
769448c3 MS	21	is $localtime->$method, shift @localtime, "localtime($time)->$method";
	22	}
	23	}