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