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