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-01-00:00:00,America/New_York"); 11$obj->config("ConfigFile","Manip.cnf"); 12$obj->parse("2010-06-06-12:00:00"); 13 14sub test { 15 my(@test)=@_; 16 my @date = $obj->list_holidays(@test); 17 my @ret = (); 18 foreach my $date (@date) { 19 my $val = $date->value(); 20 push(@ret,$val); 21 } 22 return @ret; 23} 24 25my $tests=" 26 27 => 28 2010010100:00:00 29 2010011800:00:00 30 2010021500:00:00 31 2010053100:00:00 32 2010070500:00:00 33 2010090600:00:00 34 2010101100:00:00 35 2010111100:00:00 36 2010112500:00:00 37 2010112600:00:00 38 2010122400:00:00 39 2010123100:00:00 40 411999 42 => 43 1999010100:00:00 44 1999011800:00:00 45 1999021500:00:00 46 1999053100:00:00 47 1999060200:00:00 48 1999070500:00:00 49 1999090600:00:00 50 1999101100:00:00 51 1999111100:00:00 52 1999112500:00:00 53 1999112600:00:00 54 1999122400:00:00 55 1999123100:00:00 56 57"; 58 59$::ti->tests(func => \&test, 60 tests => $tests); 61$::ti->done_testing(); 62 63#Local Variables: 64#mode: cperl 65#indent-tabs-mode: nil 66#cperl-indent-level: 3 67#cperl-continued-statement-offset: 2 68#cperl-continued-brace-offset: 0 69#cperl-brace-offset: 0 70#cperl-brace-imaginary-offset: 0 71#cperl-label-offset: 0 72#End: 73