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