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("DeltaSigns=1"); 11 12my $tests=" 13 141:2:3:4:5:6:7 => +1:+2:+3:+4:+5:+6:+7 15 16-1:2:3:4:5:6:7 => -1:-2:-3:-4:-5:-6:-7 17 1835x => '' 19 20+0 => +0:+0:+0:+0:+0:+0:+0 21 22"; 23 24$::ti->tests(func => \&ParseDateDelta, 25 tests => $tests); 26$::ti->done_testing(); 27 28#Local Variables: 29#mode: cperl 30#indent-tabs-mode: nil 31#cperl-indent-level: 3 32#cperl-continued-statement-offset: 2 33#cperl-continued-brace-offset: 0 34#cperl-brace-offset: 0 35#cperl-brace-imaginary-offset: 0 36#cperl-label-offset: 0 37#End: 38