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             "format_mmmyyyy","first",
12             "yytoyyyy","c20");
13
14sub test {
15   my(@test)=@_;
16   if ($test[0] eq "config") {
17      shift(@test);
18      $obj->config(@test);
19      return ();
20   }
21
22   my $err = $obj->parse_date(@test);
23   if ($err) {
24      return $obj->err();
25   } else {
26      my $d1 = $obj->value();
27      return($d1);
28   }
29}
30
31my $tests="
32
33'Jun1925'   => '1925060100:00:00'
34
35'Jun/1925'  => '1925060100:00:00'
36
37'1925/Jun'  => '1925060100:00:00'
38
39'1925Jun'   => '1925060100:00:00'
40
41";
42
43$::ti->tests(func  => \&test,
44             tests => $tests);
45$::ti->done_testing();
46
47#Local Variables:
48#mode: cperl
49#indent-tabs-mode: nil
50#cperl-indent-level: 3
51#cperl-continued-statement-offset: 2
52#cperl-continued-brace-offset: 0
53#cperl-brace-offset: 0
54#cperl-brace-imaginary-offset: 0
55#cperl-label-offset: 0
56#End:
57