1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests.pl"; 8 9sub test { 10 my(@tmp)=Date_NthDayOfYear(@_); 11 push @tmp,sprintf("%.2f",pop(@tmp)); 12 return join(":",@tmp); 13} 14 15Date_Init("ForceDate=1997-03-08-12:30:00,America/New_York"); 16 17my $tests=" 18 191997 10 => 1997:1:10:0:0:0.00 20 211997 10.5 => 1997:1:10:12:0:0.00 22 231997 10.510763888888889 => 1997:1:10:12:15:30.00 24 251997 10.510770138888889 => 1997:1:10:12:15:30.54 26 272000 31 => 2000:1:31:0:0:0.00 28 292000 31.5 => 2000:1:31:12:0:0.00 30 312000 32 => 2000:2:1:0:0:0.00 32 33"; 34 35$::ti->tests(func => \&test, 36 tests => $tests); 37$::ti->done_testing(); 38 39#Local Variables: 40#mode: cperl 41#indent-tabs-mode: nil 42#cperl-indent-level: 3 43#cperl-continued-statement-offset: 2 44#cperl-continued-brace-offset: 0 45#cperl-brace-offset: 0 46#cperl-brace-imaginary-offset: 0 47#cperl-label-offset: 0 48#End: 49