- #!/usr/bin/env perl
- use strict;
- use warnings;
-
- use lib 'lib';
-
- use Test::More tests => 7;
-
- 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);
- note($iso_date);
- like(
- $iso_date,
- qr/\d{4}-\d{2}-\d{2}T\d{2}:\d{2}:\d{2}Z/x,
- 'ISO-ish date for epoch'
- );
-
- my $rfc_3339_date = App::WRT::Date::rfc_3339_date(0);
- note($rfc_3339_date);
- like(
- $rfc_3339_date,
- qr{
- ^
- # year, like: 2019-12-16
- \d{4}-\d{2}-\d{2}
-
- # time, like: 22:43:23
- T\d{2}:\d{2}:\d{2}
-
- # timezone offset, like: -07:00
- [+-]\d{2}:\d{2}
- $
- }x,
- 'RFC 3339-ish date for epoch'
- );
-
- ok(
- App::WRT::Date::month_name(1) eq 'January',
- 'month_name(1) is January'
- );
-
- my $year = App::WRT::Date::get_date('year') + 1900;
-
- ok(
- ($year =~ /^[0-9]+$/) && ($year > 1900),
- 'sure looks like a year'
- );
-
- my (@values) = App::WRT::Date::get_date('wday', 'yday', 'mon');
- my $length = @values;
- ok($length == 3, 'got multiple values');
|