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"); 10 11my $tests=" 121:1:1:1 2:2:2:2 1 => +0:0:0:3:3:3:3 13 141:1:1:1 2:-1:1:1 1 => +0:0:0:3:0:0:0 15 161:1:1:1 0:-11:5:6 1 => +0:0:0:0:13:55:55 17 181:1:1:1 0:-25:5:6 1 => -0:0:0:0:0:4:5 19 201:1:1:1:1:1:1 2:12:5:2:48:120:120 1 => +4:1:6:5:3:3:1 21 221:1:1:1:1:1:1 2:12:-1:2:48:120:120 1 => +4:1:-0:3:1:0:59 23 24"; 25 26$::ti->tests(func => \&DateCalc, 27 tests => $tests); 28$::ti->done_testing(); 29 30#Local Variables: 31#mode: cperl 32#indent-tabs-mode: nil 33#cperl-indent-level: 3 34#cperl-continued-statement-offset: 2 35#cperl-continued-brace-offset: 0 36#cperl-brace-offset: 0 37#cperl-brace-imaginary-offset: 0 38#cperl-label-offset: 0 39#End: 40