From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use Test::Most 0.25;
package Test::T01;
use Test::Most 0.25;
lives_ok { today() } 'Date::Easy imports today';
lives_ok { date(time) } 'Date::Easy imports date';
lives_ok { now() } 'Date::Easy imports now';
lives_ok { datetime(time) } 'Date::Easy imports datetime';
package Test::T02;
use Test::Most 0.25;
throws_ok { today() } qr/Undefined subroutine/, 'Date::Easy::Date does not import today';
throws_ok { date(time) } qr/Undefined subroutine/, 'Date::Easy::Date does not import date';
package Test::T03;
use Test::Most 0.25;
use Date::Easy::Date qw< today date >;
lives_ok { today() } 'Date::Easy::Date can import today';
lives_ok { date(time) } 'Date::Easy::Date can import date';
package Test::T04;
use Test::Most 0.25;
throws_ok { now() } qr/Undefined subroutine/, 'Date::Easy::Datetime does not import now';
throws_ok { datetime(time) } qr/Undefined subroutine/, 'Date::Easy::Datetime does not import datetime';
package Test::T05;
use Test::Most 0.25;
use Date::Easy::Datetime qw< now datetime >;
lives_ok { now() } 'Date::Easy::Datetime can import now';
lives_ok { datetime(time) } 'Date::Easy::Datetime can import datetime';
package main; # back to main, or else done_testing won't be found
done_testing;