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;
10$obj1->config("forcedate","now,America/New_York");
11our $obj2 = $obj1->new_delta();
12
13sub test {
14   my (@test)=@_;
15
16   my $err = $obj1->parse(shift(@test));
17   if ($err) {
18      return $obj1->err();
19   }
20
21   $err = $obj2->parse(shift(@test));
22   if ($err) {
23      return $obj2->err();
24   }
25
26   my $obj3 = $obj1->calc($obj2,@test);
27   my $ret  = $obj3->value();
28   return $ret;
29}
30
31my $tests="
32
331:1:1:1:1:1:1   2:12:5:2:48:120:120  => 4:1:6:5:3:3:1
34
351:1:1:1:1:1:1   2:12:-1:2:48:120:120 => 4:1:0:-3:1:0:59
36
372:3:4:5:6:7:8   1:2:3:4:5:6:7        => 3:5:8:2:11:13:15
38
392:3:4:5:6:7:8   1:2:3:4:5:6:7 1      => 1:1:1:1:1:1:1
40
411:1:0:1:1:1:1   2:12:1:2:48:120:120  => 4:1:1:5:3:3:1
42
431:1:0:1:1:1:1   2:12:0:-2:48:120:120 => 4:1:0:-3:1:0:59
44
452:3:4:5:6:7:8   1:2:3:4:5:6:7        => 3:5:8:2:11:13:15
46
472:3:4:5:6:7:8   1:2:3:4:5:6:7 1      => 1:1:1:1:1:1:1
48
49";
50
51$::ti->tests(func  => \&test,
52             tests => $tests);
53$::ti->done_testing();
54
55#Local Variables:
56#mode: cperl
57#indent-tabs-mode: nil
58#cperl-indent-level: 3
59#cperl-continued-statement-offset: 2
60#cperl-continued-brace-offset: 0
61#cperl-brace-offset: 0
62#cperl-brace-imaginary-offset: 0
63#cperl-label-offset: 0
64#End:
65