1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests.pl"; 8 9sub test { 10 return Date_SetTime(@_); 11} 12 13Date_Init("ForceDate=1997-03-08-12:30:00,America/New_York"); 14 15my $tests=" 16 17'Jan 1, 1996 at 10:30' 12:40 => 1996010112:40:00 18 191996010110:30:40 12:40:50 => 1996010112:40:50 20 211996010110:30:40 12:40 => 1996010112:40:00 22 231996010110:30:40 12 40 => 1996010112:40:00 24 251996010110:30:40 12 40 50 => 1996010112:40:50 26 27"; 28 29$::ti->tests(func => \&test, 30 tests => $tests); 31$::ti->done_testing(); 32 33#Local Variables: 34#mode: cperl 35#indent-tabs-mode: nil 36#cperl-indent-level: 3 37#cperl-continued-statement-offset: 2 38#cperl-continued-brace-offset: 0 39#cperl-brace-offset: 0 40#cperl-brace-imaginary-offset: 0 41#cperl-label-offset: 0 42#End: 43