- #!/usr/bin/env perl
- use strict;
- use warnings;
-
- use lib 'lib';
-
- use Test::More tests => 4;
-
- require_ok('App::WRT::Date');
-
- ok(
- App::WRT::Date::get_mtime('t/wrt.t') =~ m/\d+/,
- 'get_mtime on a real file returns digits.'
- );
-
- my $iso_date = App::WRT::Date::iso_date(0);
- ok(
- $iso_date eq '1969-12-31T17:00:00Z',
- 'ISO date for epoch'
- );
-
- ok(
- App::WRT::Date::month_name(1) eq 'January',
- 'month_name(1) is January'
- );
|