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","Holidays.3.cnf"); 12 13sub test { 14 my(@test)=@_; 15 my @date = $obj->list_holidays(@test); 16 my @ret = (); 17 foreach my $date (@date) { 18 my $d = $date->value(); 19 my @h = $date->holiday(); 20 foreach my $h (@h) { 21 push(@ret,"$d = $h"); 22 } 23 } 24 return @ret; 25} 26 27my $tests=" 28 292010 30 => 31 '2010010100:00:00 = New Years Day (observed)' 32 '2010010100:00:00 = New Years Day' 33 '2010061700:00:00 = Bunker Hill Day' 34 '2010062000:00:00 = Father's Day' 35 '2010110200:00:00 = Election Day' 36 '2010110200:00:00 = Day of the Dead' 37 '2010123100:00:00 = New Years Day (observed)' 38 392012 40 => 41 '2012010100:00:00 = New Years Day' 42 '2012010200:00:00 = New Years Day (observed)' 43 '2012061700:00:00 = Father's Day' 44 '2012061700:00:00 = Bunker Hill Day' 45 '2012110200:00:00 = Day of the Dead' 46 '2012110600:00:00 = Election Day' 47 48"; 49 50$::ti->tests(func => \&test, 51 tests => $tests); 52$::ti->done_testing(); 53 54#Local Variables: 55#mode: cperl 56#indent-tabs-mode: nil 57#cperl-indent-level: 3 58#cperl-continued-statement-offset: 2 59#cperl-continued-brace-offset: 0 60#cperl-brace-offset: 0 61#cperl-brace-imaginary-offset: 0 62#cperl-label-offset: 0 63#End: 64