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