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