view release on metacpan or  search on metacpan

t/wrt_date.t  view on Meta::CPAN

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