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("Language=French","WorkDayBeg=08:00","WorkDayEnd=17h00","EraseHolidays=1"); 11 12my $tests=" 13'Mer Nov 20 1996 12h00' 'il y a 3 jour 2 heures' 2 => 1996111510:00:00 14 15'Mer Nov 20 1996 12:00' '5 heure' 2 => 1996112108:00:00 16 17'Mer Nov 20 1996 12:00' +0:2:0:0 2 => 1996112014:00:00 18 19'Mer Nov 20 1996 12:00' '3 jour 2 h' 2 => 1996112514:00:00 20 21"; 22 23$::ti->tests(func => \&DateCalc, 24 tests => $tests); 25$::ti->done_testing(); 26 27#Local Variables: 28#mode: cperl 29#indent-tabs-mode: nil 30#cperl-indent-level: 3 31#cperl-continued-statement-offset: 2 32#cperl-continued-brace-offset: 0 33#cperl-brace-offset: 0 34#cperl-brace-imaginary-offset: 0 35#cperl-label-offset: 0 36#End: 37