view release on metacpan or  search on metacpan

t/03-iCalendar.t  view on Meta::CPAN

#!perl
use strict;
use warnings;
use Test::More;
use Date::HolidayParser::iCalendar;
use FindBin;
use Data::Dumper;
use POSIX qw(tzset);

my $tests = 106;
my @timezones = qw(GMT CET EST);
if (defined $ENV{TZ})
{
	if(not grep($ENV{TZ},@timezones))
	{
		push(@timezones,$ENV{TZ});
	}
}
plan tests => ($tests*scalar(@timezones));

sub runTests