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 ));
11Date_Init("WorkDayBeg=8:00","WorkDayEnd=17:00");
12
13my $tests="
14'Wed Jan 10 1996 noon'      'Wed Feb 7 1996 noon'        3 => +0:0:0:19:0:0:0
15
16'Wed Feb 7 1996 noon'       'Wed Jan 10 1996 noon'       3 => -0:0:0:19:0:0:0
17
18'Tue Jan 9 1996 12:00:00'   'Tue Jan 9 1996 14:30:30'    3 => +0:0:0:0:2:30:30
19
20'Tue Jan 9 1996 14:30:30'   'Tue Jan 9 1996 12:00:00'    3 => -0:0:0:0:2:30:30
21
22'Tue Jan 9 1996 12:00:00'   'Wed Jan 10 1996 14:30:30'   3 => +0:0:0:1:2:30:30
23
24'Wed Jan 10 1996 14:30:30'  'Tue Jan 9 1996 12:00:00'    3 => -0:0:0:1:2:30:30
25
26'Tue Jan 9 1996 12:00:00'   'Wed Jan 10 1996 10:30:30'   3 => +0:0:0:0:7:30:30
27
28'Wed Jan 10 1996 10:30:30'  'Tue Jan 9 1996 12:00:00'    3 => -0:0:0:0:7:30:30
29
30'Mon Dec 30 1996 noon'      'Mon Jan 6 1997 noon'        3 => +0:0:0:4:0:0:0
31
32'Mon Jan 6 1997 noon'       'Mon Dec 30 1996 noon'       3 => -0:0:0:4:0:0:0
33
34'Fri Feb 11 2005 16:00:43'  'Fri Feb 11 2005 16:44:09'   3 => +0:0:0:0:0:43:26
35
36'02/11/2005 04:00:43 PM'    '02/11/2005 04:44:09 PM'     3 => +0:0:0:0:0:43:26
37
38";
39
40$::ti->tests(func  => \&DateCalc,
41             tests => $tests);
42$::ti->done_testing();
43
44
45#Local Variables:
46#mode: cperl
47#indent-tabs-mode: nil
48#cperl-indent-level: 3
49#cperl-continued-statement-offset: 2
50#cperl-continued-brace-offset: 0
51#cperl-brace-offset: 0
52#cperl-brace-imaginary-offset: 0
53#cperl-label-offset: 0
54#End:
55