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","English","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 32'TODAY' => '1997030800:00:00' 33 34'today' => '1997030800:00:00' 35 36'now' => '1997030812:30:00' 37 38'tomorrow' => '1997030900:00:00' 39 40'yesterday' => '1997030700:00:00' 41 42'Jun, twenty-seventh 1977 16:00:00' => 1977062716:00:00 43 4404.12.1999 => 1999120400:00:00 45 46'May 2 2012' => 2012050200:00:00 47 48'2 May 2012' => 2012050200:00:00 49 50'2 may 2012' => 2012050200:00:00 51 52'2 MAY 2012' => 2012050200:00:00 53 5431/12/2000 => 2000123100:00:00 55 56'3 Sep 1975' => 1975090300:00:00 57 58'27 Oct 2001' => 2001102700:00:00 59 60'September, 1st 1980' => 1980090100:00:00 61 62'December 20, 1999' => 1999122000:00:00 63 64'20 July 1987 12:32:20' => 1987072012:32:20 65 66'23:37:20 Jun 1st 1987' => 1987060123:37:20 67 68'20/12/01 17:27:08' => 2001122017:27:08 69 70'20/12/01 at 17:27:08' => 2001122017:27:08 71 72'17:27:08 20/12/01' => 2001122017:27:08 73 74'4 October 1975 at 4 pm' => 1975100416:00:00 75 76'now PST' => 1997030809:30:00 77 78"; 79 80$::ti->tests(func => \&test, 81 tests => $tests); 82$::ti->done_testing(); 83 84# Local Variables: 85# mode: cperl 86# indent-tabs-mode: nil 87# cperl-indent-level: 3 88# cperl-continued-statement-offset: 2 89# cperl-continued-brace-offset: 0 90# cperl-brace-offset: 0 91# cperl-brace-imaginary-offset: 0 92# cperl-label-offset: 0 93# End: 94