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(@test)=@_;
14   $obj->secs_since_1970_GMT(@test);
15   my $ret = $obj->value();
16   return $ret;
17}
18
19my $tests="
20881755200  => 1997121007:00:00
21
22944829030  => 1999121007:30:30
23
241256046697 => 2009102009:51:37
25
26";
27
28$::ti->tests(func  => \&test,
29             tests => $tests);
30$::ti->done_testing();
31
32#Local Variables:
33#mode: cperl
34#indent-tabs-mode: nil
35#cperl-indent-level: 3
36#cperl-continued-statement-offset: 2
37#cperl-continued-brace-offset: 0
38#cperl-brace-offset: 0
39#cperl-brace-imaginary-offset: 0
40#cperl-label-offset: 0
41#End:
42