1#!/usr/bin/perl
2
3binmode(STDOUT,':utf8');
4binmode(STDERR,':utf8');
5use warnings;
6use strict;
7use Test::Inter;
8$::ti = new Test::Inter $0;
9require "tests.pl";
10
11our $obj = new Date::Manip::Date;
12$obj->config("forcedate","1997-03-08-12:30:00,America/New_York");
13$obj->config("language","Russian","dateformat","nonUS");
14
15sub test {
16   my(@test)=@_;
17   if ($test[0] eq "config") {
18      shift(@test);
19      $obj->config(@test);
20      return ();
21   }
22
23   my $err = $obj->parse(@test);
24   if ($err) {
25      return $obj->err();
26   } else {
27      my $d1 = $obj->value();
28      return $d1;
29   }
30}
31
32my $tests="
33
34'\xd1\xc5\xc3\xce\xc4\xcd\xdf' => '1997030800:00:00'
35
36'\xe7\xe0\xe2\xf2\xf0\xe0' => '1997030900:00:00'
37
38'2 \xcc\xc0\xdf 2012' => 2012050200:00:00
39
40'2 \xec\xe0\xff 2012' => 2012050200:00:00
41
42";
43
44$::ti->tests(func  => \&test,
45             tests => $tests);
46$::ti->done_testing();
47
48# Local Variables:
49# mode: cperl
50# indent-tabs-mode: nil
51# cperl-indent-level: 3
52# cperl-continued-statement-offset: 2
53# cperl-continued-brace-offset: 0
54# cperl-brace-offset: 0
55# cperl-brace-imaginary-offset: 0
56# cperl-label-offset: 0
57# End:
58