# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.pl'
#########################
use lib '..';
use Test::Simple tests => 3;
# use Data::Dumper;
# use Date::Manip;
# use Benchmark qw(:all);
#########################
# TESTS
ok( 1, "Everything fine so far." ); # If we made it this far, we're ok.
my $output =
"Fri Friday Jul July Fri Jul 23:15:55 Pacific Daylight Time 1982 02 23 11 183 07 15 PM 55 26 5 26 07/02/82 23:15:55 82 1982 Pacific Daylight Time";
# '%a %A %b %B %c %d%H%I %j %m%M%p%S%U%w%W%x %X %y %Y %Z'
my $dt = new Date::Transform( '%B/%e/%y %i:%M:%S %p',
'%a %A %b %B %c %d %H %I %j %m %M %p %S %U %w %W %x %X %y %Y %Z' );
ok( defined $dt, "Date::Transform::new(). " )
; # Object successfully constructed.
my $tr = $dt->transform("july/ 2/82 11:15:55 PM");
# timethis( -3, sub { $dt->transform("july/ 2/82 11:15:55 PM") } );
# timethis( -5, sub { UnixDate( 'july/ 2/1972 12:15:55 PM', '%T %Y-%B-%d' ) } );
# print "\n\n-->$tr<--\n";
ok( $tr eq $output, "Successfully executed strftime." );