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