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","1997-03-08-12:30:00,America/New_York");
11$obj->config("language","English","dateformat","nonUS");
12
13sub test {
14   my(@test)=@_;
15   if ($test[0] eq "config") {
16      shift(@test);
17      $obj->config(@test);
18      return ();
19   }
20
21   my $err = $obj->parse(@test);
22   if ($err) {
23      return $obj->err();
24   } else {
25      my $d1 = $obj->value();
26      return $d1;
27   }
28}
29
30my $tests="
31
32'TODAY' => '1997030800:00:00'
33
34'today' => '1997030800:00:00'
35
36'now' => '1997030812:30:00'
37
38'tomorrow' => '1997030900:00:00'
39
40'yesterday' => '1997030700:00:00'
41
42'Jun, twenty-seventh 1977 16:00:00' => 1977062716:00:00
43
4404.12.1999 => 1999120400:00:00
45
46'May 2 2012' => 2012050200:00:00
47
48'2 May 2012' => 2012050200:00:00
49
50'2 may 2012' => 2012050200:00:00
51
52'2 MAY 2012' => 2012050200:00:00
53
5431/12/2000 => 2000123100:00:00
55
56'3 Sep 1975' => 1975090300:00:00
57
58'27 Oct 2001' => 2001102700:00:00
59
60'September, 1st 1980' => 1980090100:00:00
61
62'December 20, 1999' => 1999122000:00:00
63
64'20 July 1987 12:32:20' => 1987072012:32:20
65
66'23:37:20 Jun 1st 1987' => 1987060123:37:20
67
68'20/12/01 17:27:08' => 2001122017:27:08
69
70'20/12/01 at 17:27:08' => 2001122017:27:08
71
72'17:27:08 20/12/01' => 2001122017:27:08
73
74'4 October 1975 at 4 pm' => 1975100416:00:00
75
76'now PST' => 1997030809:30:00
77
78";
79
80$::ti->tests(func  => \&test,
81             tests => $tests);
82$::ti->done_testing();
83
84# Local Variables:
85# mode: cperl
86# indent-tabs-mode: nil
87# cperl-indent-level: 3
88# cperl-continued-statement-offset: 2
89# cperl-continued-brace-offset: 0
90# cperl-brace-offset: 0
91# cperl-brace-imaginary-offset: 0
92# cperl-label-offset: 0
93# End:
94