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"); 10Date_Init("Internal=1"); 11 12my $tests=" 13# Tests YYMMDD time 14 151996061800:00:00 => 19960618000000 16 17# Tests YYMMDDHHMNSS 18 1919960618000000 => 19960618000000 20"; 21 22$::ti->tests(func => \&ParseDate, 23 tests => $tests); 24$::ti->done_testing(); 25 26#Local Variables: 27#mode: cperl 28#indent-tabs-mode: nil 29#cperl-indent-level: 3 30#cperl-continued-statement-offset: 2 31#cperl-continued-brace-offset: 0 32#cperl-brace-offset: 0 33#cperl-brace-imaginary-offset: 0 34#cperl-label-offset: 0 35#End: 36