1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests-dm5.pl"; 8 9Date_Init("TZ=EST"); 10Date_Init(qw( PersonalCnf=Manip5.cnf PathSep=! PersonalCnfPath=./t!. IgnoreGlobalCnf=1 )); 11 12my $tests =" 13 142000-02-01 => 15 [ 2000020100:00:00 [ Event1 Winter ] ] 16 172000-04-01 => 18 [ 2000040100:00:00 [ Spring ] ] 19 202000-04-01 0 => 21 [ 2000040100:00:00 [ Spring ] 22 2000040112:00:00 [ Event3 Spring ] 23 2000040113:00:00 [ Spring ] ] 24 25'2000-04-01 12:30' => 26 [ 2000040112:30:00 [ Event3 Spring ] ] 27 28'2000-04-01 13:30' => 29 [ 2000040113:30:00 [ Spring ] ] 30 312000-03-15 2000-04-10 => 32 [ 2000031500:00:00 [ Winter ] 33 2000032200:00:00 [ Spring ] 34 2000040112:00:00 [ Event3 Spring ] 35 2000040113:00:00 [ Spring ] ] 36 372000-03-15 2000-04-10 1 => 38 { Event3 +0:0:0:0:1:0:0 39 Spring +0:0:2:5:0:0:0 40 Winter +0:0:1:0:0:0:0 } 41 422000-03-15 2000-04-10 2 => 43 { Event3+Spring +0:0:0:0:1:0:0 44 Spring +0:0:2:4:23:0:0 45 Winter +0:0:1:0:0:0:0 } 46 47"; 48 49$::ti->tests(func => \&Events_List, 50 tests => $tests); 51$::ti->done_testing(); 52 53#Local Variables: 54#mode: cperl 55#indent-tabs-mode: nil 56#cperl-indent-level: 3 57#cperl-continued-statement-offset: 2 58#cperl-continued-brace-offset: 0 59#cperl-brace-offset: 0 60#cperl-brace-imaginary-offset: 0 61#cperl-label-offset: 0 62#End: 63