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", 11 "format_mmmyyyy","first", 12 "yytoyyyy","c20"); 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_date(@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'Jun1925' => '1925060100:00:00' 34 35'Jun/1925' => '1925060100:00:00' 36 37'1925/Jun' => '1925060100:00:00' 38 39'1925Jun' => '1925060100:00:00' 40 41"; 42 43$::ti->tests(func => \&test, 44 tests => $tests); 45$::ti->done_testing(); 46 47#Local Variables: 48#mode: cperl 49#indent-tabs-mode: nil 50#cperl-indent-level: 3 51#cperl-continued-statement-offset: 2 52#cperl-continued-brace-offset: 0 53#cperl-brace-offset: 0 54#cperl-brace-imaginary-offset: 0 55#cperl-label-offset: 0 56#End: 57