use v6-alpha;
use Test;
plan 32;

use Date;

for [ 2004,  1,  1, 1,  1 ],
    [ 2004,  3, 31, 1, 91 ],
    [ 2004,  4,  1, 2,  1 ],
    [ 2004,  6, 30, 2, 91 ],
    [ 2004,  7,  1, 3,  1 ],
    [ 2004,  9, 30, 3, 92 ],
    [ 2004, 10,  1, 4,  1 ],
    [ 2004, 12, 31, 4, 92 ],
    [ 2005,  1,  1, 1,  1 ],
    [ 2005,  3, 31, 1, 90 ],
    [ 2005,  4,  1, 2,  1 ],
    [ 2005,  6, 30, 2, 91 ],
    [ 2005,  7,  1, 3,  1 ],
    [ 2005,  9, 30, 3, 92 ],
    [ 2005, 10,  1, 4,  1 ],
    [ 2005, 12, 31, 4, 92 ] {
    my ( $y, $m, $d, $q, $doq ) = @$_;

    my $date = Date.new( year => $y, month => $m, day => $d );

    is( $date.quarter, $q, "quarter is $q" );
    is( $date.day_of_quarter, $doq, "day of quarter is $doq" );
}