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-12:00:00,America/New_York"); 11$obj->config("defaulttime","curr"); 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 my $d2 = $obj->value("gmt"); 27 return($d1,$d2); 28 } 29} 30 31my $tests=" 32 33Friday => 2000012112:00:00 2000012117:00:00 34 35'Friday at 13:00' => 2000012113:00:00 2000012118:00:00 36 37Monday => 2000011712:00:00 2000011717:00:00 38 39'Monday at 13:00' => 2000011713:00:00 2000011718:00:00 40 41Saturday => 2000012212:00:00 2000012217:00:00 42 43'Saturday at 13:00' => 2000012213:00:00 2000012218:00:00 44 45'next year' => 2001012112:00:00 2001012117:00:00 46 47'last year' => 1999012112:00:00 1999012117:00:00 48 49'next month' => 2000022112:00:00 2000022117:00:00 50 51'last month' => 1999122112:00:00 1999122117:00:00 52 53'next week' => 2000012812:00:00 2000012817:00:00 54 55'last week' => 2000011412:00:00 2000011417:00:00 56 57'last week at 13:00' => 2000011413:00:00 2000011418:00:00 58 59'next friday' => 2000012812:00:00 2000012817:00:00 60 61'next sunday' => 2000012312:00:00 2000012317:00:00 62 63'last friday' => 2000011412:00:00 2000011417:00:00 64 65'last sunday' => 2000011612:00:00 2000011617:00:00 66 67'last sunday at 13:00' => 2000011613:00:00 2000011618:00:00 68 69'last tue in Jun 96' => 1996062512:00:00 1996062516:00:00 70 71'last tueSday of Jan' => 2000012512:00:00 2000012517:00:00 72 73'last day in October 1997' => 1997103112:00:00 1997103117:00:00 74"; 75 76$::ti->tests(func => \&test, 77 tests => $tests); 78$::ti->done_testing(); 79 80#Local Variables: 81#mode: cperl 82#indent-tabs-mode: nil 83#cperl-indent-level: 3 84#cperl-continued-statement-offset: 2 85#cperl-continued-brace-offset: 0 86#cperl-brace-offset: 0 87#cperl-brace-imaginary-offset: 0 88#cperl-label-offset: 0 89#End: 90