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