1#!/usr/bin/perl
2
3use warnings;
4use strict;
5use Test::Inter;
6$::ti = new Test::Inter $0;
7require "tests.pl";
8
9my $obj = new Date::Manip::Recur;
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 => 0
25
26delta => 0
27
28recur => 1
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