1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests.pl"; 8 9our $obj = new Date::Manip::Date; 10 11sub test { 12 my($test)=@_; 13 if ($test eq 'date') { 14 return $obj->is_date(); 15 } elsif ($test eq 'delta') { 16 return $obj->is_delta(); 17 } elsif ($test eq 'recur') { 18 return $obj->is_recur(); 19 } 20} 21 22my $tests=" 23 24date => 1 25 26delta => 0 27 28recur => 0 29 30"; 31 32$::ti->tests(func => \&test, 33 tests => $tests); 34$::ti->done_testing(); 35 36#Local Variables: 37#mode: cperl 38#indent-tabs-mode: nil 39#cperl-indent-level: 3 40#cperl-continued-statement-offset: 2 41#cperl-continued-brace-offset: 0 42#cperl-brace-offset: 0 43#cperl-brace-imaginary-offset: 0 44#cperl-label-offset: 0 45#End: 46