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","2000-01-21-00:00:00,America/New_York");
11
12sub test {
13   my(@test)=@_;
14   if ($test[0] eq "config") {
15      shift(@test);
16      $obj->config(@test);
17      return ();
18   }
19
20   my $err = $obj->parse(@test);
21   if ($err) {
22      return $obj->err();
23   } else {
24      my $d1 = $obj->value();
25      my $d2 = $obj->value("gmt");
26      return($d1,$d2);
27   }
28}
29
30my $tests="
31
32config setdate now,america/araguaina  =>
33
342000-10-08-00:00:00  => '[parse] Invalid date in timezone'
35
36";
37
38$::ti->tests(func  => \&test,
39             tests => $tests);
40$::ti->done_testing();
41
42#Local Variables:
43#mode: cperl
44#indent-tabs-mode: nil
45#cperl-indent-level: 3
46#cperl-continued-statement-offset: 2
47#cperl-continued-brace-offset: 0
48#cperl-brace-offset: 0
49#cperl-brace-imaginary-offset: 0
50#cperl-label-offset: 0
51#End:
52