#!/usr/bin/pugs

use v6;
use Test;
plan 36;

use Date;

{
    # somewhat arbitrary number where month & day are not == 1
    my $epoch = 86400 * 40;
    my $t = localtime($epoch);

    my Date $date = Date.new( epoch => $epoch );
    isa_ok( $date, 'Date' );

    is( $t.year, $date.year, "year matches localtime()", :todo<bug> );
    is( $t.month, $date.month, "month matches localtime()", :todo<bug> );
    is( $t.day, $date.day, "day matches localtime()", :todo<bug> );
}

{
    my $t = localtime();

    my Date $date = Date.new();
    isa_ok( $date, 'Date' );

    is( $t.year, $date.year, "year is today's year", :todo<bug> );
    is( $t.month, $date.month, "month is today's month", :todo<bug> );
    is( $t.day, $date.day, "day is today's day", :todo<bug> );
}

{
    my $t = localtime();

    my Date $date = Date.now();
    isa_ok( $date, 'Date' );

    is( $t.year, $date.year, "year is today's year", :todo<bug> );
    is( $t.month, $date.month, "month is today's month", :todo<bug> );
    is( $t.day, $date.day, "day is today's day", :todo<bug> );
}

{
    my $t = localtime();

    my Date $date = Date.new( :string<now> );
    isa_ok( $date, 'Date' );

    is( $t.year, $date.year, "year is today's year", :todo<bug> );
    is( $t.month, $date.month, "month is today's month", :todo<bug> );
    is( $t.day, $date.day, "day is today's day", :todo<bug> );
}

{
    my $t = localtime();

    my Date $date = Date.today();
    isa_ok( $date, 'Date' );

    is( $t.year, $date.year, "year is today's year", :todo<bug> );
    is( $t.month, $date.month, "month is today's month", :todo<bug> );
    is( $t.day, $date.day, "day is today's day", :todo<bug> );
}

{
    my $t = localtime();

    my Date $date = Date.new( :string<today> );
    isa_ok( $date, 'Date' );

    is( $t.year, $date.year, "year is today's year", :todo<bug> );
    is( $t.month, $date.month, "month is today's month", :todo<bug> );
    is( $t.day, $date.day, "day is today's day", :todo<bug> );
}

{
    my Date $date = Date.new( year => 2004 );
    isa_ok( $date, 'Date' );

    is( $date.year, 2004, "year is 2004" );
    is( $date.month, 1, "month is 1", :todo<bug> );
    is( $date.day, 1, "day is 1", :todo<bug> );
}

{
    my Date $date = Date.new( year => 2004, month => 6 );
    isa_ok( $date, 'Date' );

    is( $date.year, 2004, "year is 2004" );
    is( $date.month, 6, "month is 6" );
    is( $date.day, 1, "day is 1", :todo<bug> );
}

{
    my Date $date = Date.new( year => 2004, month => 6, day => 29 );
    isa_ok( $date, 'Date' );

    is( $date.year, 2004, "year is 2004" );
    is( $date.month, 6, "month is 6" );
    is( $date.day, 29, "day is 29" );
}