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