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 my(@test)=@_; 11 my $obj = new Date::Manip::Date(@test); 12 return $obj->err(); 13} 14 15my $tests=" 16 172001-01-01-00:00:00 => __blank__ 18 192001-01-01-00:00:00 nodow => __blank__ 20 21"; 22 23$::ti->tests(func => \&test, 24 tests => $tests); 25$::ti->done_testing(); 26 27#Local Variables: 28#mode: cperl 29#indent-tabs-mode: nil 30#cperl-indent-level: 3 31#cperl-continued-statement-offset: 2 32#cperl-continued-brace-offset: 0 33#cperl-brace-offset: 0 34#cperl-brace-imaginary-offset: 0 35#cperl-label-offset: 0 36#End: 37