1# -*- mode: perl -*- 2# 3# $Id: 25localtime.t,v 1.1 1999/12/18 03:29:50 tai Exp $ 4# 5 6use Test; 7 8BEGIN { plan tests => 3 } 9 10use Schedule::Match qw(scheck rcheck uthash isleap expand localtime); 11 12$time = time; 13 14ok(scalar(CORE::localtime($time)), scalar(localtime($time))); 15 16@time = localtime($time); 17@core = CORE::localtime($time); 18 19ok($time[0], $core[0]); 20ok($time[8], $core[8]); 21 22exit(0); 23