lib/Time/Local.t

46      my $time = timelocal($sec,$min,$hour,$mday,$mon,$year);
88 timelocal(0,0,1,1,0,90) - timelocal(0,0,0,1,0,90) == 3600
92 timelocal(1,2,3,1,0,100) - timelocal(1,2,3,31,11,99) == 24 * 3600
107     my $hour = (localtime(timelocal(0, 0, 2, 7, 3, 102)))[2];
115   #print "Testing timelocal.pl module too...\n";
117   require 'timelocal.pl';
121   timelocal(1,2,3,4,5,88) == main::timelocal(1,2,3,4,5,88) or print "not ";