#!/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' ); }