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 $ref = Events_List(@_);
11
12   if (ref($ref) eq "ARRAY") {
13      my @ret = ();
14      my @tmp = @$ref;
15      while (@tmp) {
16         my $v = shift(@tmp);
17         if (ref($v) eq "ARRAY") {
18            unshift(@tmp,@$v);
19         } else {
20            push(@ret,$v);
21         }
22      }
23      return @ret;
24   }
25
26   if (ref($ref) eq "HASH") {
27      my @ret = ();
28      foreach my $key (sort keys %$ref) {
29         push(@ret,$key,$$ref{$key});
30      }
31      return @ret;
32   }
33
34   return ();
35}
36
37Date_Init("ForceDate=1997-03-08-12:30:00,America/New_York");
38Date_Init("ConfigFile=OldEvents.cnf");
39
40my $tests ="
41
422000-02-01 =>
43   2000020100:00:00
44   Event1
45   Winter
46
472000-04-01 =>
48   2000040100:00:00
49   Spring
50
512000-04-01 0 =>
52   2000040100:00:00
53   Spring
54   2000040112:00:00
55   Event3
56   Spring
57   2000040113:00:00
58   Spring
59
60'2000-04-01 12:30' =>
61   2000040112:30:00
62   Event3
63   Spring
64
65'2000-04-01 13:30' =>
66   2000040113:30:00
67   Spring
68
692000-03-15 2000-04-10 =>
70   2000031500:00:00
71   Winter
72   2000032200:00:00
73   Spring
74   2000040112:00:00
75   Event3
76   Spring
77   2000040113:00:00
78   Spring
79
802000-03-15 2000-04-10 1 =>
81   Event3
82   0:0:0:0:1:0:0
83   Spring
84   0:0:0:0:455:0:0
85   Winter
86   0:0:0:0:168:0:0
87
882000-03-15 2000-04-10 2 =>
89   Event3+Spring
90   0:0:0:0:1:0:0
91   Spring
92   0:0:0:0:454:0:0
93   Winter
94   0:0:0:0:168:0:0
95
96";
97
98$::ti->tests(func  => \&test,
99             tests => $tests);
100$::ti->done_testing();
101
102#Local Variables:
103#mode: cperl
104#indent-tabs-mode: nil
105#cperl-indent-level: 3
106#cperl-continued-statement-offset: 2
107#cperl-continued-brace-offset: 0
108#cperl-brace-offset: 0
109#cperl-brace-imaginary-offset: 0
110#cperl-label-offset: 0
111#End:
112