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