use v6-alpha;
use Test;
plan 16;
use Date;
for [ 2004, 1, 1, 1 ],
[ 2004, 3, 31, 91 ],
[ 2004, 4, 1, 92 ],
[ 2004, 6, 30, 182 ],
[ 2004, 7, 1, 183 ],
[ 2004, 9, 30, 274 ],
[ 2004, 10, 1, 275 ],
[ 2004, 12, 31, 366 ],
[ 2005, 1, 1, 1 ],
[ 2005, 3, 31, 90 ],
[ 2005, 4, 1, 91 ],
[ 2005, 6, 30, 181 ],
[ 2005, 7, 1, 182 ],
[ 2005, 9, 30, 273 ],
[ 2005, 10, 1, 274 ],
[ 2005, 12, 31, 365 ] {
my ( $y, $m, $d, $doy ) = @$_;
my $date = Date.new( year => $y, month => $m, day => $d );
is( $date.day_of_year, $doy, "day of year is $doy" );
}