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$obj->_method("c1890"); 13 14sub test { 15 my(@test)=@_; 16 my @ret = $obj->_fix_year(@test); 17 return @ret; 18} 19 20my $tests=" 21 2299 => 1899 23 2489 => 1989 25 262000 => 2000 27 28"; 29 30$::ti->tests(func => \&test, 31 tests => $tests); 32$::ti->done_testing(); 33 34 35#Local Variables: 36#mode: cperl 37#indent-tabs-mode: nil 38#cperl-indent-level: 3 39#cperl-continued-statement-offset: 2 40#cperl-continued-brace-offset: 0 41#cperl-brace-offset: 0 42#cperl-brace-imaginary-offset: 0 43#cperl-label-offset: 0 44#End: 45