1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests-dm5.pl"; 8 9Date_Init("TZ=EST"); 10 11my $tests=" 12 13'Jan 1, 1996 at 10:30' 12:40 => 1996010112:40:00 14 151996010110:30:40 12:40:50 => 1996010112:40:50 16 171996010110:30:40 12:40 => 1996010112:40:00 18 191996010110:30:40 12 40 => 1996010112:40:00 20 211996010110:30:40 12 40 50 => 1996010112:40:50 22 23"; 24 25$::ti->tests(func => \&Date_SetTime, 26 tests => $tests); 27$::ti->done_testing(); 28 29#Local Variables: 30#mode: cperl 31#indent-tabs-mode: nil 32#cperl-indent-level: 3 33#cperl-continued-statement-offset: 2 34#cperl-continued-brace-offset: 0 35#cperl-brace-offset: 0 36#cperl-brace-imaginary-offset: 0 37#cperl-label-offset: 0 38#End: 39