#!/usr/bin/perl -w
use
strict;
use
DateTimeX::Lite;
{
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'
);
}