1#!/usr/bin/perl
2
3use warnings;
4use strict;
5use Test::Inter;
6$::ti = new Test::Inter $0;
7require "tests.pl";
8
9our $dmt = new Date::Manip::TZ;
10our $obj = $dmt->base();
11$dmt->config("forcedate","now,America/New_York");
12
13sub test {
14   my(@test)=@_;
15   my @ret = $obj->day_of_year(@test);
16   foreach my $ret (@ret) {
17      if (ref($ret)) {
18         foreach my $val (@$ret) {
19            if ($val =~ /\./) {
20               $val = sprintf("%.2f",$val);
21            }
22         }
23
24      } elsif ($ret =~ /\./) {
25         $ret = sprintf("%.2f",$ret);
26      }
27   }
28   return @ret;
29}
30
31my $tests="
32
331997 10       => [ 1997 1 10 ]
34
35[ 1997 1 10 ] => 10
36
37
381997 10.5            => [ 1997 1 10 12 0 0 ]
39
40[ 1997 1 10 12 0 0 ] => 10.50
41
42
431997 10.510763888888889   => [ 1997 1 10 12 15 30.00 ]
44
45[ 1997 1 10 12 15 30.00 ] => 10.51
46
471997 10.510770138888889   => [ 1997 1 10 12 15 30.54 ]
48
49[ 1997 1 10 12 15 30.54 ] => 10.51
50
51
522000 31    => [ 2000 1 31 ]
53
542000 31.5  => [ 2000 1 31 12 0 0 ]
55
562000 31.0  => [ 2000 1 31 0 0 0 ]
57
582000 32    => [ 2000 2 1 ]
59
60";
61
62$::ti->tests(func  => \&test,
63             tests => $tests);
64$::ti->done_testing();
65
66#Local Variables:
67#mode: cperl
68#indent-tabs-mode: nil
69#cperl-indent-level: 3
70#cperl-continued-statement-offset: 2
71#cperl-continued-brace-offset: 0
72#cperl-brace-offset: 0
73#cperl-brace-imaginary-offset: 0
74#cperl-label-offset: 0
75#End:
76