Listing 3 Test::More

=1=    use Test::More qw(no_plan);
=2=    BEGIN { use_ok('Acme::Current'); }
=3=    my @now = gmtime;
=4=    is($Acme::Current::YEAR, $now[5]+1900, 'year');
=5=    is($Acme::Current::MONTH, $now[4]+1, 'month');
=6=    is($Acme::Current::DAY, $now[3], 'day');