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","Danish","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'Sondag Maj 2, 2010'  => 2010050200:00:00
34
35'S\xF8ndag Maj 2, 2010'  => 2010050200:00:00
36
37'Søndag Maj 2, 2010'  => 2010050200:00:00
38
39'Søndag Maj 2, 2010 12:35:45'  => 2010050212:35:45
40
41'Søndag Maj 2, 2010 12.35:45'  => 2010050212:35:45
42
43";
44
45$::ti->tests(func  => \&test,
46             tests => $tests);
47$::ti->done_testing();
48
49#Local Variables:
50#mode: cperl
51#indent-tabs-mode: nil
52#cperl-indent-level: 3
53#cperl-continued-statement-offset: 2
54#cperl-continued-brace-offset: 0
55#cperl-brace-offset: 0
56#cperl-brace-imaginary-offset: 0
57#cperl-label-offset: 0
58#End:
59