#!/usr/bin/perl -w
#
# test.pl - tests validity of lexer/parser for at(1)
#
# Copyright 2001 David D. Kilzer
#
# Licensed under the GNU Public License
#
# Environment variables:
# TEST_VERBOSE
# 0 - no verbosity
# 1 - verbose output only on failed tests, and all stderr output
# > 1 - verbose output on every test, and all stderr output
#
use strict;
use constant SECOND => 1; # seconds per second
use constant MINUTE => 60*SECOND; # seconds per minute
use constant HOUR => 60*MINUTE; # seconds per hour
use constant DAY => 24*HOUR; # seconds per day
use constant WEEK => 7*DAY; # seconds per week
use vars qw($verbose);
use POSIX; # strftime
use Time::Local; # timelocal() and timegm()
BEGIN { $| = 1; } # no output buffering
#
# Subroutines
#
sub is_dst (;$); # is time in DST?
sub get_utc_offset (;$); # calculate hours offset from UTC
#
# Data structures containing test data
#
my @date_tests; # date strings
my @time_tests; # time strings
my @date_time_tests_time; # time + date strings (just times)
my @date_time_tests_date; # time + date strings (just dates)
my @inc_dec_tests; # increment and decrement strings
my @misc_tests; # miscellaneous strings (mostly for DST)
my $num_tests; # number of tests
my $show_stderr; # set to "2> /dev/null" if (! $verbose)
my $utc_off; # timezone offset in minutes west of UTC
#
# Set variables before running tests
#
$verbose = $ENV{'TEST_VERBOSE'} || 0;
$show_stderr = ($verbose > 0 ? "" : "2> /dev/null");
$utc_off = get_utc_offset();
#
# Tests for dates only
# These tests include both relative and specific dates.
# They are not combined with any other tests.
#
# Format: "string", month, day, year, hour, minute, [offset]
#
@date_tests =
(
[ "dec 31", 12, 31, '$y', '$h', '$mi' ],
[ "Dec 31", 12, 31, '$y', '$h', '$mi' ],
[ "DEC 31", 12, 31, '$y', '$h', '$mi' ],
[ "december 31", 12, 31, '$y', '$h', '$mi' ],
[ "December 31", 12, 31, '$y', '$h', '$mi' ],
[ "DECEMBER 31", 12, 31, '$y', '$h', '$mi' ],
[ "Dec 31 10", 12, 31, 2010, '$h', '$mi' ],
[ "December 31 10", 12, 31, 2010, '$h', '$mi' ],
[ "Dec 31 2010", 12, 31, 2010, '$h', '$mi' ],
[ "December 31 2010", 12, 31, 2010, '$h', '$mi' ],
[ "Dec 31,10", 12, 31, 2010, '$h', '$mi' ],
[ "Dec 31, 10", 12, 31, 2010, '$h', '$mi' ],
[ "December 31,10", 12, 31, 2010, '$h', '$mi' ],
[ "December 31, 10", 12, 31, 2010, '$h', '$mi' ],
[ "Dec 31,2010", 12, 31, 2010, '$h', '$mi' ],
[ "Dec 31, 2010", 12, 31, 2010, '$h', '$mi' ],
[ "December 31,2010", 12, 31, 2010, '$h', '$mi' ],
[ "December 31, 2010", 12, 31, 2010, '$h', '$mi' ],
[ "sun", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 0 ? 7 : ((7 - $wd + 0) % 7)) * DAY)' ],
[ "Sun", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 0 ? 7 : ((7 - $wd + 0) % 7)) * DAY)' ],
[ "SUN", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 0 ? 7 : ((7 - $wd + 0) % 7)) * DAY)' ],
[ "sunday", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 0 ? 7 : ((7 - $wd + 0) % 7)) * DAY)' ],
[ "Sunday", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 0 ? 7 : ((7 - $wd + 0) % 7)) * DAY)' ],
[ "SUNDAY", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 0 ? 7 : ((7 - $wd + 0) % 7)) * DAY)' ],
[ "Mon", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 1 ? 7 : ((7 - $wd + 1) % 7)) * DAY)' ],
[ "Monday", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 1 ? 7 : ((7 - $wd + 1) % 7)) * DAY)' ],
[ "Tue", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 2 ? 7 : ((7 - $wd + 2) % 7)) * DAY)' ],
[ "Tuesday", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 2 ? 7 : ((7 - $wd + 2) % 7)) * DAY)' ],
[ "Wed", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 3 ? 7 : ((7 - $wd + 3) % 7)) * DAY)' ],
[ "Wednesday", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 3 ? 7 : ((7 - $wd + 3) % 7)) * DAY)' ],
[ "Thu", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 4 ? 7 : ((7 - $wd + 4) % 7)) * DAY)' ],
[ "Thursday", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 4 ? 7 : ((7 - $wd + 4) % 7)) * DAY)' ],
[ "Fri", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 5 ? 7 : ((7 - $wd + 5) % 7)) * DAY)' ],
[ "Friday", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 5 ? 7 : ((7 - $wd + 5) % 7)) * DAY)' ],
[ "Sat", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 6 ? 7 : ((7 - $wd + 6) % 7)) * DAY)' ],
[ "Saturday", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 6 ? 7 : ((7 - $wd + 6) % 7)) * DAY)' ],
[ "now", '$mo', '$d', '$y', '$h', '$mi' ],
[ "Now", '$mo', '$d', '$y', '$h', '$mi' ],
[ "NOW", '$mo', '$d', '$y', '$h', '$mi' ],
[ "today", '$mo', '$d', '$y', '$h', '$mi' ],
[ "Today", '$mo', '$d', '$y', '$h', '$mi' ],
[ "TODAY", '$mo', '$d', '$y', '$h', '$mi' ],
[ "tomorrow", '$mo', '$d', '$y', '$h', '$mi', '1 * DAY' ],
[ "Tomorrow", '$mo', '$d', '$y', '$h', '$mi', '1 * DAY' ],
[ "TOMORROW", '$mo', '$d', '$y', '$h', '$mi', '1 * DAY' ],
[ "10-12-31", 12, 31, 2010, '$h', '$mi' ],
[ "2010-12-31", 12, 31, 2010, '$h', '$mi' ],
[ "31.12.10", 12, 31, 2010, '$h', '$mi' ],
[ "31.12.2010", 12, 31, 2010, '$h', '$mi' ],
[ "31 Dec", 12, 31, '$y', '$h', '$mi' ],
[ "31 December", 12, 31, '$y', '$h', '$mi' ],
[ "31 Dec 10", 12, 31, 2010, '$h', '$mi' ],
[ "31 Dec 2010", 12, 31, 2010, '$h', '$mi' ],
[ "31 December 10", 12, 31, 2010, '$h', '$mi' ],
[ "31 December 2010", 12, 31, 2010, '$h', '$mi' ],
[ "12/31/10", 12, 31, 2010, '$h', '$mi' ],
[ "12/31/2010", 12, 31, 2010, '$h', '$mi' ],
[ "13010", 01, 30, 2010, '$h', '$mi' ],
[ "1302010", 01, 30, 2010, '$h', '$mi' ],
[ "013010", 01, 30, 2010, '$h', '$mi' ],
[ "01302010", 01, 30, 2010, '$h', '$mi' ],
[ "123110", 12, 31, 2010, '$h', '$mi' ],
[ "12312010", 12, 31, 2010, '$h', '$mi' ],
[ "next minute", '$mo', '$d', '$y', '$h', '$mi', '1 * MINUTE' ],
[ "next hour", '$mo', '$d', '$y', '$h', '$mi', '1 * HOUR' ],
[ "next day", '$mo', '$d', '$y', '$h', '$mi', '1 * DAY' ],
[ "next week", '$mo', '$d', '$y', '$h', '$mi', '1 * WEEK' ],
[ "next month", '($mo == 12 ? 1 : $mo + 1)', '$d', '($mo == 12 ? $y + 1 : $y)', '$h', '$mi' ],
[ "next year", '$mo', '$d', '$y + 1', '$h', '$mi' ],
);
#
# Tests for times only
# These tests include specific times and time aliases.
# They are not combined with any other tests.
#
# Format: "string", month, day, year, hour, minute, [offset]
#
@time_tests =
(
[ "0800", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "2300", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi) < (23*60+0) ? 0 : 1 * DAY)' ],
[ "8:00", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "08:00", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "23:00", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi) < (23*60+0) ? 0 : 1 * DAY)' ],
[ "8'00", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "08'00", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "23'00", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi) < (23*60+0) ? 0 : 1 * DAY)' ],
[ "8.00", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "08.00", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "23.00", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi) < (23*60+0) ? 0 : 1 * DAY)' ],
[ "8h00", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "08h00", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "23h00", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi) < (23*60+0) ? 0 : 1 * DAY)' ],
[ "8,00", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "08,00", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "23,00", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi) < (23*60+0) ? 0 : 1 * DAY)' ],
[ "8:00 am", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "08:00 am", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "11:00 pm", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi) < (23*60+0) ? 0 : 1 * DAY)' ],
[ "8'00 am", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "08'00 am", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "11'00 pm", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi) < (23*60+0) ? 0 : 1 * DAY)' ],
[ "8.00 am", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "08.00 am", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "11.00 pm", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi) < (23*60+0) ? 0 : 1 * DAY)' ],
[ "8h00 am", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "08h00 am", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "11h00 pm", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi) < (23*60+0) ? 0 : 1 * DAY)' ],
[ "8,00 am", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "08,00 am", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi) < ( 8*60+0) ? 0 : 1 * DAY)' ],
[ "11,00 pm", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi) < (23*60+0) ? 0 : 1 * DAY)' ],
[ "0800 utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "2300 utc", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi+$utc_off) < (23*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "8:00 utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "08:00 utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "23:00 utc", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi+$utc_off) < (23*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "8'00 utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "08'00 utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "23'00 utc", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi+$utc_off) < (23*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "8.00 utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "08.00 utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "23.00 utc", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi+$utc_off) < (23*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "8h00 utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "08h00 utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "23h00 utc", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi+$utc_off) < (23*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "8,00 utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "08,00 utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "23,00 utc", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi+$utc_off) < (23*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "8:00 am utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "08:00 am utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "11:00 pm utc", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi+$utc_off) < (23*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "8'00 am utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "08'00 am utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "11'00 pm utc", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi+$utc_off) < (23*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "8.00 am utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "08.00 am utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "11.00 pm utc", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi+$utc_off) < (23*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "8h00 am utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "08h00 am utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "11h00 pm utc", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi+$utc_off) < (23*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "8,00 am utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "08,00 am utc", '$mo', '$d', '$y', 8, 0,
'(($h*60+$mi+$utc_off) < ( 8*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "11,00 pm utc", '$mo', '$d', '$y', 23, 0,
'(($h*60+$mi+$utc_off) < (23*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "noon", '$mo', '$d', '$y', 12, 0,
'(($h*60+$mi) < (12*60+0) ? 0 : 1 * DAY)' ],
[ "Noon", '$mo', '$d', '$y', 12, 0,
'(($h*60+$mi) < (12*60+0) ? 0 : 1 * DAY)' ],
[ "NOON", '$mo', '$d', '$y', 12, 0,
'(($h*60+$mi) < (12*60+0) ? 0 : 1 * DAY)' ],
[ "midnight", '$mo', '$d', '$y', 0, 0,
'(($h*60+$mi) < ( 0*60+0) ? 1 * DAY : 1 * DAY)' ],
[ "teatime", '$mo', '$d', '$y', 16, 0,
'(($h*60+$mi) < (16*60+0) ? 0 : 1 * DAY)' ],
[ "noon utc", '$mo', '$d', '$y', 12, 0,
'(($h*60+$mi+$utc_off) < (12*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "noon UTC", '$mo', '$d', '$y', 12, 0,
'(($h*60+$mi+$utc_off) < (12*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
[ "midnight utc", '$mo', '$d', '$y', 0, 0,
'(($h*60+$mi+$utc_off) < ( 0*60+0) ? 1 * DAY : 1 * DAY) - $utc_off * MINUTE' ],
[ "teatime utc", '$mo', '$d', '$y', 16, 0,
'(($h*60+$mi+$utc_off) < (16*60+0) ? 0 : 1 * DAY) - $utc_off * MINUTE' ],
);
#
# Tests for combining times and dates and inc/dec
# These tests include specific times and time aliases that are
# combined with @date_time_tests_date and with @inc_dec_tests
# during testing.
#
# Format: "string", month, day, year, hour, minute, [offset]
#
@date_time_tests_time =
(
[ "0800", '$mo', '$d', '$y', 8, 0 ],
[ "2300", '$mo', '$d', '$y', 23, 0 ],
[ "8:00", '$mo', '$d', '$y', 8, 0 ],
[ "23:00", '$mo', '$d', '$y', 23, 0 ],
[ "8'00", '$mo', '$d', '$y', 8, 0 ],
[ "23'00", '$mo', '$d', '$y', 23, 0 ],
[ "8.00", '$mo', '$d', '$y', 8, 0 ],
[ "23.00", '$mo', '$d', '$y', 23, 0 ],
[ "8h00", '$mo', '$d', '$y', 8, 0 ],
[ "23h00", '$mo', '$d', '$y', 23, 0 ],
[ "8,00", '$mo', '$d', '$y', 8, 0 ],
[ "23,00", '$mo', '$d', '$y', 23, 0 ],
[ "8:00 am", '$mo', '$d', '$y', 8, 0 ],
[ "11:00 pm", '$mo', '$d', '$y', 23, 0 ],
[ "8'00 am", '$mo', '$d', '$y', 8, 0 ],
[ "11'00 pm", '$mo', '$d', '$y', 23, 0 ],
[ "8.00 am", '$mo', '$d', '$y', 8, 0 ],
[ "11.00 pm", '$mo', '$d', '$y', 23, 0 ],
[ "8h00 am", '$mo', '$d', '$y', 8, 0 ],
[ "11h00 pm", '$mo', '$d', '$y', 23, 0 ],
[ "8,00 am", '$mo', '$d', '$y', 8, 0 ],
[ "11,00 pm", '$mo', '$d', '$y', 23, 0 ],
[ "0800 utc", '$mo', '$d', '$y', 8, 0,
'- $utc_off * MINUTE' ],
[ "2300 utc", '$mo', '$d', '$y', 23, 0,
'- $utc_off * MINUTE' ],
[ "8:00 utc", '$mo', '$d', '$y', 8, 0,
'- $utc_off * MINUTE' ],
[ "23:00 utc", '$mo', '$d', '$y', 23, 0,
'- $utc_off * MINUTE' ],
[ "8'00 utc", '$mo', '$d', '$y', 8, 0,
'- $utc_off * MINUTE' ],
[ "23'00 utc", '$mo', '$d', '$y', 23, 0,
'- $utc_off * MINUTE' ],
[ "8.00 utc", '$mo', '$d', '$y', 8, 0,
'- $utc_off * MINUTE' ],
[ "23.00 utc", '$mo', '$d', '$y', 23, 0,
'- $utc_off * MINUTE' ],
[ "8h00 utc", '$mo', '$d', '$y', 8, 0,
'- $utc_off * MINUTE' ],
[ "23h00 utc", '$mo', '$d', '$y', 23, 0,
'- $utc_off * MINUTE' ],
[ "8,00 utc", '$mo', '$d', '$y', 8, 0,
'- $utc_off * MINUTE' ],
[ "23,00 utc", '$mo', '$d', '$y', 23, 0,
'- $utc_off * MINUTE' ],
[ "8:00 am utc", '$mo', '$d', '$y', 8, 0,
'- $utc_off * MINUTE' ],
[ "11:00 pm utc", '$mo', '$d', '$y', 23, 0,
'- $utc_off * MINUTE' ],
[ "8'00 am utc", '$mo', '$d', '$y', 8, 0,
'- $utc_off * MINUTE' ],
[ "11'00 pm utc", '$mo', '$d', '$y', 23, 0,
'- $utc_off * MINUTE' ],
[ "8.00 am utc", '$mo', '$d', '$y', 8, 0,
'- $utc_off * MINUTE' ],
[ "11.00 pm utc", '$mo', '$d', '$y', 23, 0,
'- $utc_off * MINUTE' ],
[ "8h00 am utc", '$mo', '$d', '$y', 8, 0,
'- $utc_off * MINUTE' ],
[ "11h00 pm utc", '$mo', '$d', '$y', 23, 0,
'- $utc_off * MINUTE' ],
[ "8,00 am utc", '$mo', '$d', '$y', 8, 0,
'- $utc_off * MINUTE' ],
[ "11,00 pm utc", '$mo', '$d', '$y', 23, 0,
'- $utc_off * MINUTE' ],
[ "noon", '$mo', '$d', '$y', 12, 0 ],
[ "midnight", '$mo', '$d', '$y', 0, 0 ],
[ "teatime", '$mo', '$d', '$y', 16, 0 ],
[ "noon utc", '$mo', '$d', '$y', 12, 0,
'- $utc_off * MINUTE' ],
[ "midnight utc", '$mo', '$d', '$y', 0, 0,
'- $utc_off * MINUTE' ],
[ "teatime utc", '$mo', '$d', '$y', 16, 0,
'- $utc_off * MINUTE' ],
);
#
# Tests for combining times and dates and inc/dec
# These tests include both relative and specific dates that are
# combined with @date_time_tests_time and with @inc_dec_tests
# during testing.
#
# Format: "string", month, day, year, hour, minute, [offset]
#
@date_time_tests_date =
(
[ "Dec 31", 12, 31, '$y', '$h', '$mi' ],
[ "Dec 31 10", 12, 31, 2010, '$h', '$mi' ],
[ "Dec 31 2010", 12, 31, 2010, '$h', '$mi' ],
[ "Dec 31, 10", 12, 31, 2010, '$h', '$mi' ],
[ "December 31, 2010", 12, 31, 2010, '$h', '$mi' ],
[ "Monday", '$mo', '$d', '$y', '$h', '$mi',
'(($wd == 1 ? 7 : ((7 - $wd + 1) % 7)) * DAY)' ],
[ "today", '$mo', '$d', '$y', '$h', '$mi' ],
[ "tomorrow", '$mo', '$d', '$y', '$h', '$mi', '1 * DAY' ],
[ "10-12-31", 12, 31, 2010, '$h', '$mi' ],
[ "2010-12-31", 12, 31, 2010, '$h', '$mi' ],
[ "31.12.10", 12, 31, 2010, '$h', '$mi' ],
[ "31.12.2010", 12, 31, 2010, '$h', '$mi' ],
[ "31 Dec", 12, 31, '$y', '$h', '$mi' ],
[ "31 Dec 10", 12, 31, 2010, '$h', '$mi' ],
[ "31 Dec 2010", 12, 31, 2010, '$h', '$mi' ],
[ "12/31/10", 12, 31, 2010, '$h', '$mi' ],
[ "12/31/2010", 12, 31, 2010, '$h', '$mi' ],
[ "13010", 01, 30, 2010, '$h', '$mi' ],
[ "1302010", 01, 30, 2010, '$h', '$mi' ],
[ "123110", 12, 31, 2010, '$h', '$mi' ],
[ "12312010", 12, 31, 2010, '$h', '$mi' ],
[ "next minute", '$mo', '$d', '$y', '$h', '$mi', '1 * MINUTE' ],
[ "next hour", '$mo', '$d', '$y', '$h', '$mi', '1 * HOUR' ],
[ "next day", '$mo', '$d', '$y', '$h', '$mi', '1 * DAY' ],
[ "next week", '$mo', '$d', '$y', '$h', '$mi', '1 * WEEK' ],
[ "next month", '($mo == 12 ? 1 : $mo + 1)', '$d', '($mo == 12 ? $y + 1 : $y)', '$h', '$mi' ],
[ "next year", '$mo', '$d', '$y + 1', '$h', '$mi' ],
);
#
# Tests for combining times and dates and inc/dec
# These tests include both increments and decrements that are
# combined with @date_time_tests_time and with @date_time_tests_date
# during testing. Note how these tests refer to elements from
# the data structures that they will be combined with ($$i[N]).
#
# Format: "string", month, day, year, hour, minute, [offset]
#
@inc_dec_tests =
(
[ "- 1 min", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '- 1 * MINUTE' ],
[ "- 1 minute", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '- 1 * MINUTE' ],
[ "- 1 hour", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '- 1 * HOUR' ],
[ "- 1 day", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '- 1 * DAY' ],
[ "- 1 week", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '- 1 * WEEK' ],
[ "- 1 month", '($$i[1] == 1 ? 12 : $$i[1] - 1)', '$$i[2]', '($$i[1] == 1 ? $$i[3] - 1 : $$i[3])', '$$i[4]', '$$i[5]' ],
[ "- 1 year", '$$i[1]', '$$i[2]', '$$i[3] - 1', '$$i[4]', '$$i[5]' ],
[ "- 10 min", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '- 10 * MINUTE' ],
[ "- 10 minutes", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '- 10 * MINUTE' ],
[ "- 10 hours", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '- 10 * HOUR' ],
[ "- 10 days", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '- 10 * DAY' ],
[ "- 10 weeks", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '- 10 * WEEK' ],
[ "- 10 months", '($$i[1] > 10 ? $$i[1] - 10 : $$i[1] + 2)', '$$i[2]', '($$i[1] > 10 ? $$i[3]: $$i[3] - 1)', '$$i[4]', '$$i[5]' ],
[ "- 10 years", '$$i[1]', '$$i[2]', '$$i[3] - 10', '$$i[4]', '$$i[5]' ],
[ "+ 1 min", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '+ 1 * MINUTE' ],
[ "+ 1 minute", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '+ 1 * MINUTE' ],
[ "+ 1 hour", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '+ 1 * HOUR' ],
[ "+ 1 day", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '+ 1 * DAY' ],
[ "+ 1 week", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '+ 1 * WEEK' ],
[ "+ 1 month", '($$i[1] == 12 ? 1 : $$i[1] + 1)', '$$i[2]', '($$i[1] == 12 ? $$i[3] + 1 : $$i[3])', '$$i[4]', '$$i[5]' ],
[ "+ 1 year", '$$i[1]', '$$i[2]', '$$i[3] + 1', '$$i[4]', '$$i[5]' ],
[ "+ 10 min", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '+ 10 * MINUTE' ],
[ "+ 10 minutes", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '+ 10 * MINUTE' ],
[ "+ 10 hours", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '+ 10 * HOUR' ],
[ "+ 10 days", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '+ 10 * DAY' ],
[ "+ 10 weeks", '$$i[1]', '$$i[2]', '$$i[3]', '$$i[4]', '$$i[5]', '+ 10 * WEEK' ],
[ "+ 10 months", '($$i[1] < 3 ? $$i[1] + 10 : $$i[1] - 2)', '$$i[2]', '($$i[1] < 3 ? $$i[3] : $$i[3] + 1)', '$$i[4]', '$$i[5]' ],
[ "+ 10 years", '$$i[1]', '$$i[2]', '$$i[3] + 10', '$$i[4]', '$$i[5]' ],
);
#
# Miscellaneous tests
# These tests include any specific test cases that won't fit easily
# into the test data above.
# They are not combined with any other tests.
#
# Format: "string", month, day, year, hour, minute, [offset]
#
@misc_tests =
(
# Test moving back and forth across DST
[ "March 1 + 3 months", '6', '1', '$y', '$h', '$mi' ],
[ "June 1 - 3 months", '3', '1', '$y', '$h', '$mi' ],
[ "September 1 + 3 months", '12', '1', '$y', '$h', '$mi' ],
[ "December 1 - 3 months", '9', '1', '$y', '$h', '$mi' ],
[ "March 1 + 12 weeks", '3', '1', '$y', '$h', '$mi', '+12 * WEEK' ],
[ "June 1 - 12 weeks", '6', '1', '$y', '$h', '$mi', '-12 * WEEK' ],
[ "September 1 + 12 weeks", '9', '1', '$y', '$h', '$mi', '+12 * WEEK' ],
[ "December 1 - 12 weeks", '12', '1', '$y', '$h', '$mi', '-12 * WEEK' ],
);
$num_tests = ($#date_tests + 1)
+ ($#time_tests + 1)
+ ($#misc_tests + 1)
+ ($#date_time_tests_time + 1) * ($#date_time_tests_date + 1)
+ ($#date_time_tests_time + 1) * ($#inc_dec_tests + 1)
+ ($#date_time_tests_date + 1) * ($#inc_dec_tests + 1)
;
#
# Print out the number of tests to perform
#
print "1..$num_tests\n";
#
# Run date, time and miscellaneous tests
#
foreach my $i (@date_tests, @time_tests, @misc_tests)
{
my $s; # current second
my $mi; # current minute
my $h; # current hour
my $d; # current day
my $mo; # current month
my $y; # current year
my $wd; # current week day
my $yd; # current year day
my $dst; # is daylight savings time?
my $epoch_time; # time string in epoch seconds
my $offset = 0; # offset for test in epoch seconds
my $t; # time string to test against
my $o; # output of parsetest command
my $run_time; # internal timestamp used for comparison
## WARNING: Next two statements could run in different minutes!
$o = `./parsetest \"$$i[0]\" $show_stderr`;
$run_time = time();
## Set variables for $run_time before calculating $offset
($s, $mi, $h, $d, $mo, $y, $wd, $yd, $dst) = localtime($run_time);
$mo += 1;
$y += 1900;
$offset = eval "$$i[6]" if (defined $$i[6]);
$epoch_time = strftime("%s",
0,
eval "$$i[5]",
eval "$$i[4]",
eval "$$i[2]",
eval "$$i[1] - 1",
eval "$$i[3] - 1900",
-1, # wday
-1, # yday
-1, # isdst
);
## Adjust +-1 hour when moving in or out of DST
if ( is_dst($epoch_time) && ! is_dst($epoch_time + $offset))
{ # DST to no DST
$epoch_time += 1 * HOUR;
}
elsif (! is_dst($epoch_time) && is_dst($epoch_time + $offset))
{ # no DST to DST
$epoch_time -= 1 * HOUR;
}
$t = strftime("%a %b %e %H:%M:00 %Y", localtime($epoch_time + $offset));
chomp $o;
print $o eq $t ? "ok" : "not ok", "\n";
print "'", $$i[0], "': '$o' =? '$t'\n"
if ($verbose > 1 || ($verbose == 1 && $o ne $t));
}
#
# Run time + date tests
#
foreach my $i (@date_time_tests_time)
{
foreach my $j (@date_time_tests_date)
{
my $s; # current second
my $mi; # current minute
my $h; # current hour
my $d; # current day
my $mo; # current month
my $y; # current year
my $wd; # current week day
my $yd; # current year day
my $dst; # is daylight savings time?
my $epoch_time; # time string in epoch seconds
my $offset = 0; # offset for test in epoch seconds
my $t; # time string to test against
my $o; # output of parsetest command
my $run_time; # internal timestamp used for comparison
## WARNING: Next two statements could run in different minutes!
$o = `./parsetest \"$$i[0] $$j[0]\" $show_stderr`;
$run_time = time();
## Set variables for $run_time before calculating $offset
($s, $mi, $h, $d, $mo, $y, $wd, $yd, $dst) = localtime($run_time);
$mo += 1;
$y += 1900;
if (defined $$i[6])
{
if (defined $$j[6])
{
$offset = eval "($$i[6]) + ($$j[6])";
}
else
{
$offset = eval "$$i[6]";
}
}
elsif (defined $$j[6])
{
$offset = eval "$$j[6]";
}
$epoch_time = strftime("%s",
0,
eval "$$i[5]",
eval "$$i[4]",
eval "$$j[2]",
eval "$$j[1] - 1",
eval "$$j[3] - 1900",
-1, # wday
-1, # yday
-1, # isdst
);
## Adjust +-1 hour when moving in or out of DST
if ( is_dst($epoch_time) && ! is_dst($epoch_time + $offset))
{ # DST to no DST
$epoch_time += 1 * HOUR;
}
elsif (! is_dst($epoch_time) && is_dst($epoch_time + $offset))
{ # no DST to DST
$epoch_time -= 1 * HOUR;
}
$t = strftime("%a %b %e %H:%M:00 %Y", localtime($epoch_time + $offset));
chomp $o;
print $o eq $t ? "ok" : "not ok", "\n";
print "'$$i[0] $$j[0]': '$o' =? '$t'\n"
if ($verbose > 1 || ($verbose == 1 && $o ne $t));
}
}
#
# Run time + inc_dec and date + inc_dec tests
#
foreach my $i (@date_time_tests_time, @date_time_tests_date)
{
foreach my $j (@inc_dec_tests)
{
my $s; # current second
my $mi; # current minute
my $h; # current hour
my $d; # current day
my $mo; # current month
my $y; # current year
my $wd; # current week day
my $yd; # current year day
my $dst; # is daylight savings time?
my $epoch_time; # time string in epoch seconds
my $offset = 0; # offset for test in epoch seconds
my $t; # time string to test against
my $o; # output of parsetest command
my $run_time; # internal timestamp used for comparison
## WARNING: Next two statements could run in different minutes!
$o = `./parsetest \"$$i[0] $$j[0]\" $show_stderr`;
$run_time = time();
## Set variables for $run_time before calculating $offset
($s, $mi, $h, $d, $mo, $y, $wd, $yd, $dst) = localtime($run_time);
$mo += 1;
$y += 1900;
if (defined $$i[6])
{
if (defined $$j[6])
{
$offset = eval "($$i[6]) + ($$j[6])";
}
else
{
$offset = eval "$$i[6]";
}
}
elsif (defined $$j[6])
{
$offset = eval "$$j[6]";
}
$epoch_time = strftime("%s",
0,
eval "$$i[5]",
eval "$$i[4]",
eval "eval \"$$j[2]\"",
eval "eval \"$$j[1] - 1\"",
eval "eval \"$$j[3] - 1900\"",
-1, # wday
-1, # yday
-1, # isdst
);
## Adjust +-1 hour when moving in or out of DST
if ( is_dst($epoch_time) && ! is_dst($epoch_time + $offset))
{ # DST to no DST
$epoch_time += 1 * HOUR;
}
elsif (! is_dst($epoch_time) && is_dst($epoch_time + $offset))
{ # no DST to DST
$epoch_time -= 1 * HOUR;
}
$t = strftime("%a %b %e %H:%M:00 %Y", localtime($epoch_time + $offset));
chomp $o;
print $o eq $t ? "ok" : "not ok", "\n";
print "'$$i[0] $$j[0]': '$o' =? '$t'\n"
if ($verbose > 1 || ($verbose == 1 && $o ne $t));
}
}
exit 0;
#
# Subroutine:
# is_dst
#
# Description:
# returns true if the time passed in is in DST, else
# returns false if the time passed in is not in DST
#
# Arg 1:
# [Optional] time in epoch seconds; defaults to the current
# time if no argument is given
#
sub is_dst (;$)
{
my $t = shift || time();
return ((localtime($t))[8] > 0);
}
#
# Subroutine:
# get_utc_offset
#
# Description:
# returns the number of offest hours from UTC for the current timezone
#
# Arg 1:
# [Optional] time in epoch seconds; defaults to the current
# time if no argument is given
#
sub get_utc_offset (;$)
{
my $t = shift || time();
my @t = localtime($t);
my $is_dst = $t[8];
return ((timelocal(@t) - timegm(@t) + ($is_dst > 0 ? HOUR : 0)) / MINUTE);
}