18today.t   [plain text]

#!/usr/bin/perl -w

use strict;

use Test::More tests => 6;

use DateTime;

{
    my $now = DateTime->now;
    my $today = DateTime->today;

    is( $today->year, $now->year, 'today->year' );
    is( $today->month, $now->month, 'today->month' );
    is( $today->day, $now->day, 'today->day' );

    is( $today->hour, 0, 'today->hour' );
    is( $today->minute, 0, 'today->hour' );
    is( $today->second, 0, 'today->hour' );
}