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","2000-01-21-00:00:00,America/New_York","yytoyyyy","c20"); 11 12sub test { 13 my(@test)=@_; 14 if ($test[0] eq "config") { 15 shift(@test); 16 $obj->config(@test); 17 return (); 18 } 19 20 my $err = $obj->parse(@test); 21 if ($err) { 22 return $obj->err(); 23 } else { 24 my $d1 = $obj->value(); 25 return($d1); 26 } 27} 28 29my $tests=" 30 31'Jun1925' => '2025061900:00:00' 32 33'Jun/1925' => '[parse] Invalid date string' 34 35'1925/Jun' => '[parse] Invalid date string' 36 37'1925Jun' => '[parse] Invalid date string' 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