1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests.pl"; 8 9sub test { 10 my($type,$date) = @_; 11 if ($type eq 'scalar') { 12 my $ret = Date_IsHoliday($date); 13 return $ret; 14 } else { 15 my @ret = Date_IsHoliday($date); 16 return @ret; 17 } 18} 19 20Date_Init("ForceDate=1997-03-08-12:30:00,America/New_York"); 21Date_Init("ConfigFile=Holidays.3.cnf"); 22 23my $tests =" 24 25scalar 2010-01-01 => 26 'New Years Day (observed)' 27 28list 2010-01-01 => 29 'New Years Day (observed)' 30 'New Years Day' 31 32"; 33 34$::ti->tests(func => \&test, 35 tests => $tests); 36$::ti->done_testing(); 37 38#Local Variables: 39#mode: cperl 40#indent-tabs-mode: nil 41#cperl-indent-level: 3 42#cperl-continued-statement-offset: 2 43#cperl-continued-brace-offset: 0 44#cperl-brace-offset: 0 45#cperl-brace-imaginary-offset: 0 46#cperl-label-offset: 0 47#End: 48