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