1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests.pl"; 8 9sub test { 10 return Date_GetPrev(@_); 11} 12 13Date_Init("ForceDate=1997-03-08-12:30:00,America/New_York"); 14 15my $tests=" 16 17'Fri Nov 22 1996 17:49:30' thu 0 => 1996112117:49:30 18 19'Fri Nov 22 1996 17:49:30' thu 1 => 1996112117:49:30 20 21'Fri Nov 22 1996 17:49:30' fri 0 => 1996111517:49:30 22 23'Fri Nov 22 1996 17:49:30' 5 0 => 1996111517:49:30 24 25'Fri Nov 22 1996 17:49:30' fri 1 => 1996112217:49:30 26 27'Fri Nov 22 1996 17:49:30' fri 0 18:30 => 1996111518:30:00 28 29'Fri Nov 22 1996 17:49:30' fri 0 18:30:45 => 1996111518:30:45 30 31'Fri Nov 22 1996 17:49:30' fri 0 18 30 => 1996111518:30:00 32 33'Fri Nov 22 1996 17:49:30' fri 0 18 30 45 => 1996111518:30:45 34 35'Fri Nov 22 1996 17:49:30' fri 1 18 30 45 => 1996112218:30:45 36 37'Fri Nov 22 1996 17:49:30' fri 2 18 30 45 => 1996111518:30:45 38 39'Fri Nov 22 1996 17:49:30' __undef__ 0 18 => 1996112118:00:00 40 41'Fri Nov 22 1996 17:49:33' __undef__ 0 18:30 => 1996112118:30:00 42 43'Fri Nov 22 1996 17:49:33' __undef__ 0 18 30 => 1996112118:30:00 44 45'Fri Nov 22 1996 17:49:33' __undef__ 0 18:30:45 => 1996112118:30:45 46 47'Fri Nov 22 1996 17:49:33' __undef__ 0 18 30 45 => 1996112118:30:45 48 49'Fri Nov 22 1996 17:49:33' __undef__ 0 18 __undef__ 45 => 1996112118:00:45 50 51 52'Fri Nov 22 1996 17:00:00' __undef__ 0 17 => 1996112117:00:00 53 54'Fri Nov 22 1996 17:00:00' __undef__ 1 17 => 1996112217:00:00 55 56'Fri Nov 22 1996 17:49:00' __undef__ 0 17 49 => 1996112117:49:00 57 58'Fri Nov 22 1996 17:49:00' __undef__ 1 17 49 => 1996112217:49:00 59 60'Fri Nov 22 1996 17:49:33' __undef__ 0 17 49 33 => 1996112117:49:33 61 62'Fri Nov 22 1996 17:49:33' __undef__ 1 17 49 33 => 1996112217:49:33 63 64'Fri Nov 22 1996 17:00:33' __undef__ 0 17 __undef__ 33 => 1996112117:00:33 65 66'Fri Nov 22 1996 17:00:33' __undef__ 1 17 __undef__ 33 => 1996112217:00:33 67 68 69 70'Fri Nov 22 1996 17:49:30' __undef__ 0 __undef__ 30 => 1996112217:30:00 71 72'Fri Nov 22 1996 17:49:30' __undef__ 0 __undef__ 30 45 => 1996112217:30:45 73 74'Fri Nov 22 1996 17:49:30' __undef__ 0 __undef__ __undef__ 30 => 1996112217:48:30 75 76 77 78'Fri Nov 22 1996 17:30:00' __undef__ 0 __undef__ 30 => 1996112216:30:00 79 80'Fri Nov 22 1996 17:30:00' __undef__ 1 __undef__ 30 => 1996112217:30:00 81 82'Fri Nov 22 1996 17:30:45' __undef__ 0 __undef__ 30 45 => 1996112216:30:45 83 84'Fri Nov 22 1996 17:30:45' __undef__ 1 __undef__ 30 45 => 1996112217:30:45 85 86'Fri Nov 22 1996 17:30:45' __undef__ 0 __undef__ __undef__ 45 => 1996112217:29:45 87 88'Fri Nov 22 1996 17:30:45' __undef__ 1 __undef__ __undef__ 45 => 1996112217:30:45 89 90"; 91 92$::ti->tests(func => \&test, 93 tests => $tests); 94$::ti->done_testing(); 95 96#Local Variables: 97#mode: cperl 98#indent-tabs-mode: nil 99#cperl-indent-level: 3 100#cperl-continued-statement-offset: 2 101#cperl-continued-brace-offset: 0 102#cperl-brace-offset: 0 103#cperl-brace-imaginary-offset: 0 104#cperl-label-offset: 0 105#End: 106