#!/usr/bin/perl use strict; use warnings; use lib 'lib'; use Test::Simple tests => 2; use App::WRT::Util qw(get_date); my $year = get_date('year') + 1900; ok( ($year =~ /^[0-9]+$/) && ($year > 1900), 'sure looks like a year' ); my (@values) = get_date('wday', 'yday', 'mon'); my $length = @values; ok($length == 3, 'got multiple values'); 1;