1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests.pl"; 8 9our $dmt = new Date::Manip::TZ; 10our $obj = $dmt->base(); 11$dmt->config("forcedate","now,America/New_York"); 12 13sub test { 14 my(@test)=@_; 15 my @ret = $obj->days_in_month(@test); 16 return @ret; 17} 18 19my $tests=" 20 211999 10 => 31 22 231999 2 => 28 24 252000 2 => 29 26 271999 0 => 31 28 31 30 31 30 31 31 30 31 30 31 28 292000 0 => 31 29 31 30 31 30 31 31 30 31 30 31 30 31"; 32 33$::ti->tests(func => \&test, 34 tests => $tests); 35$::ti->done_testing(); 36 37#Local Variables: 38#mode: cperl 39#indent-tabs-mode: nil 40#cperl-indent-level: 3 41#cperl-continued-statement-offset: 2 42#cperl-continued-brace-offset: 0 43#cperl-brace-offset: 0 44#cperl-brace-imaginary-offset: 0 45#cperl-label-offset: 0 46#End: 47