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 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 my $d2 = $obj->value("gmt"); 26 return($d1,$d2); 27 } 28} 29 30my $tests=" 31 32config setdate now,america/araguaina => 33 342000-10-08-00:00:00 => '[parse] Invalid date in timezone' 35 36"; 37 38$::ti->tests(func => \&test, 39 tests => $tests); 40$::ti->done_testing(); 41 42#Local Variables: 43#mode: cperl 44#indent-tabs-mode: nil 45#cperl-indent-level: 3 46#cperl-continued-statement-offset: 2 47#cperl-continued-brace-offset: 0 48#cperl-brace-offset: 0 49#cperl-brace-imaginary-offset: 0 50#cperl-label-offset: 0 51#End: 52