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