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