#!/perl -I..
use strict;
use Test::More tests => 6;
BEGIN { $Time::Format::NOXS = 1 }
BEGIN { use_ok 'Time::Format', qw(%manip) }
my $manip_bad;
BEGIN
{
unless (eval 'use Date::Manip (); 1')
{
$manip_bad = 'Date::Manip is not available';
}
else
{
# If Date::Manip can't determine the time zone, it'll bomb out of the tests.
$manip_bad = 'Date::Manip cannot determine time zone'
unless eval 'Date::Manip::Date_TimeZone(); 1';
}
delete $INC{'Date/Manip.pm'};
%Date::Manip:: = ();
}
my $t = 'first thursday in june 2003';
SKIP:
{
skip $manip_bad, 5 if $manip_bad;
is $manip{'%Y',$t}, '2003' => 'year';
is $manip{'%d',$t}, '05' => 'day of month';
is $manip{'%D',$t}, '06/05/03' => '%D';
is $manip{'%e',$t}, ' 5' => 'spaced day';
is $manip{'%H',$t}, '00' => 'hour';
}