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::Delta;
10$obj->config("forcedate","now,America/New_York");
11
12sub test {
13   my(@test)=@_;
14   my $err = $obj->parse(@test);
15   if ($err) {
16      return $obj->err();
17   } else {
18      my @val = $obj->value();
19      return @val;
20   }
21}
22
23my $tests="
24
25'1.5 days'                => 0 0 0 1 12 0 0
26
27'1.1 years'               => 1 1 0 6 2 5 49
28
29'1.1 years business'      => 1 1 0 4 3 7 59
30
31";
32
33$::ti->tests(func  => \&test,
34             tests => $tests);
35$::ti->done_testing();
36
37#Local Variables:
38#mode: cperl
39#indent-tabs-mode: nil
40#cperl-indent-level: 3
41#cperl-continued-statement-offset: 2
42#cperl-continued-brace-offset: 0
43#cperl-brace-offset: 0
44#cperl-brace-imaginary-offset: 0
45#cperl-label-offset: 0
46#End:
47