#!/usr/bin/perl -w
use strict;
use Test::More tests => 6;
{
my $now = DateTimeX::Lite->now;
my $today = DateTimeX::Lite->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' );
}