#!/usr/bin/perl

# based on the DateTime 0.29 test script of the same name.

use Test;

plan 6 * 12;

use Date::Gregorian;

my @last = ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
my @leap_last = @last »+« (0,1);

for 1 .. 12 -> $month {
    my $dt = date( :year(2001), :month($month), :day(-1) );

    is( $dt.year, 2001, 'check year' );
    is( $dt.month, $month, 'check month' );
    is( $dt.day, @last[ $month - 1 ], 'check day', :todo<bug>,
        :depends<oo/attributes/mutators.t> );
}

for 1 .. 12 -> $month {
    my $dt = date( :year(2004), :month($month), :day(-1) );

    is( $dt.year, 2004, 'check year' );
    is( $dt.month, $month, 'check month' );
    is( $dt.day, @leap_last[ $month - 1 ], 'check day', :todo<bug>,
        :depends<oo/attributes/mutators.t>
      );
}