1#!/usr/bin/perl
2
3use utf8;
4use warnings;
5use strict;
6use Test::Inter;
7$::ti = new Test::Inter $0;
8require "tests.pl";
9
10our $obj = new Date::Manip::Date;
11$obj->config("forcedate","2000-01-21-12:30:45,America/New_York");
12$obj->config("language","Romanian","dateformat","nonUS");
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(@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'marți iunie 8, 2010'   => 2010060800:00:00
34
35'marti iunie 8, 2010'   => 2010060800:00:00
36
37'marþi iunie 8, 2010'   => 2010060800:00:00
38
39'mar\xFEi iunie 8, 2010'   => 2010060800:00:00
40
41'sâmbătă iunie 12, 2010'   => 2010061200:00:00
42
43'duminică iunie 13, 2010'   => 2010061300:00:00
44
45";
46
47$::ti->tests(func  => \&test,
48             tests => $tests);
49$::ti->done_testing();
50
51#Local Variables:
52#mode: cperl
53#indent-tabs-mode: nil
54#cperl-indent-level: 3
55#cperl-continued-statement-offset: 2
56#cperl-continued-brace-offset: 0
57#cperl-brace-offset: 0
58#cperl-brace-imaginary-offset: 0
59#cperl-label-offset: 0
60#End:
61