#!/usr/bin/env perl use strict; use warnings; use lib 'lib'; use App::WRT::Date; use Test::More tests => 1; ok( App::WRT::Date::get_mtime('t/wrt.t') =~ m/\d+/, 'get_mtime returns digits.' ); # TODO: this: # my $iso_date = WRT::Date::iso_date(0);