1#!/usr/bin/perl
2
3use warnings;
4use strict;
5use Test::Inter;
6$::ti = new Test::Inter $0;
7require "tests.pl";
8
9our $obj1 = new Date::Manip::Delta;
10our $obj2 = $obj1->new_delta();
11
12sub test {
13   my(@test)=@_;
14   $obj1->parse($test[0]);
15   $obj2->parse($test[1]);
16   return $obj1->cmp($obj2);
17}
18
19my $tests="
20
210:0:0:0:-1:0:0   0:0:0:0:1:0:0   => -1
22
230:0:0:0:1:0:0    0:0:0:0:-1:0:0  => 1
24
250:0:0:0:1:0:0    0:0:0:0:0:60:0  => 0
26
27";
28
29$::ti->tests(func  => \&test,
30             tests => $tests);
31$::ti->done_testing();
32
33#Local Variables:
34#mode: cperl
35#indent-tabs-mode: nil
36#cperl-indent-level: 3
37#cperl-continued-statement-offset: 2
38#cperl-continued-brace-offset: 0
39#cperl-brace-offset: 0
40#cperl-brace-imaginary-offset: 0
41#cperl-label-offset: 0
42#End:
43