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 =" 12 13today +0000 +0100 2 => '' 14 152001082812:05:00 +0000 BST => 2001082813:05:00 16 172001012812:05:00 GMT +0000 => 2001012812:05:00 18 192001082812:05:00 GMT +0000 => 2001082812:05:00 20 212001082812:05:00 GMT BST => 2001082813:05:00 22 232001012812:05:00 GMT Europe/London => 2001012812:05:00 24 252007030113:34:34 +0000 +0100 => 2007030114:34:34 26 272007030113:34:34 +0000 -0100 => 2007030112:34:34 28 29"; 30 31$::ti->tests(func => \&Date_ConvTZ, 32 tests => $tests); 33$::ti->tests(func => \&Date_ConvTZ, 34 tests => [ [ '2007030113:34:34', 'EST', 'GMT' ], 35 [ '2007030113:34:34', '', 'GMT' ], 36 [ '2007030113:34:34', undef, 'GMT' ] ], 37 expected => "2007030118:34:34" ); 38$::ti->done_testing(); 39 40 41#Local Variables: 42#mode: cperl 43#indent-tabs-mode: nil 44#cperl-indent-level: 3 45#cperl-continued-statement-offset: 2 46#cperl-continued-brace-offset: 0 47#cperl-brace-offset: 0 48#cperl-brace-imaginary-offset: 0 49#cperl-label-offset: 0 50#End: 51