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","Russian","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'\xf3\xe5\xe7\xef\xe4\xee\xf1' => '1997030800:00:00'
32
33'\xda\xc1\xd7\xd4\xd2\xc1' => '1997030900:00:00'
34
35'2 \xcd\xc1\xd1 2012' => 2012050200:00:00
36
37'2 \xed\xe1\xf1 2012' => 2012050200:00:00
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