1#!/usr/bin/perl
2
3use warnings;
4use strict;
5use Test::Inter;
6$::ti = new Test::Inter $0;
7require "tests.pl";
8
9our $obj = new Date::Manip::Date;
10$obj->config("forcedate","now,America/New_York");
11
12sub test {
13   my($date,$isdst,@test)=@_;
14   $obj->_init();
15   my $err = $obj->set("date",$date,$isdst);
16   $err = $obj->convert(@test) if (! $err);
17   if ($err) {
18      return $obj->err();
19   } else {
20      my $d1 = $obj->value();
21      return($d1);
22   }
23}
24
25my $tests="
26
27[ 1985 01 01 00 30 00 ] 0 America/Chicago => 1984123123:30:00
28
29[ 1985 01 01 12 00 00 ] 0 America/Chicago => 1985010111:00:00
30
31[ 1985 04 28 01 00 00 ] 0 America/Chicago => 1985042800:00:00
32
33[ 1985 04 28 03 00 00 ] 0 America/Chicago => 1985042801:00:00
34
35[ 1985 04 28 03 30 00 ] 0 America/Chicago => 1985042801:30:00
36
37[ 1985 04 28 04 00 00 ] 0 America/Chicago => 1985042803:00:00
38
39[ 1985 10 27 00 30 00 ] 0 America/Chicago => 1985102623:30:00
40
41[ 1985 10 27 01 00 00 ] 1 America/Chicago => 1985102700:00:00
42
43[ 1985 10 27 01 30 00 ] 1 America/Chicago => 1985102700:30:00
44
45[ 1985 10 27 01 00 00 ] 0 America/Chicago => 1985102701:00:00
46
47[ 1985 10 27 01 30 00 ] 0 America/Chicago => 1985102701:30:00
48
49[ 1985 10 27 02 00 00 ] 0 America/Chicago => 1985102701:00:00
50
51";
52
53$::ti->tests(func  => \&test,
54          tests => $tests);
55$::ti->done_testing();
56
57#Local Variables:
58#mode: cperl
59#indent-tabs-mode: nil
60#cperl-indent-level: 3
61#cperl-continued-statement-offset: 2
62#cperl-continued-brace-offset: 0
63#cperl-brace-offset: 0
64#cperl-brace-imaginary-offset: 0
65#cperl-label-offset: 0
66#End:
67