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