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","yytoyyyy","c20");
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      return($d1);
26   }
27}
28
29my $tests="
30
31'Jun1925'   => '2025061900:00:00'
32
33'Jun/1925'  => '[parse] Invalid date string'
34
35'1925/Jun'  => '[parse] Invalid date string'
36
37'1925Jun'   => '[parse] Invalid date string'
38
39";
40
41$::ti->tests(func  => \&test,
42             tests => $tests);
43$::ti->done_testing();
44
45#Local Variables:
46#mode: cperl
47#indent-tabs-mode: nil
48#cperl-indent-level: 3
49#cperl-continued-statement-offset: 2
50#cperl-continued-brace-offset: 0
51#cperl-brace-offset: 0
52#cperl-brace-imaginary-offset: 0
53#cperl-label-offset: 0
54#End:
55