date_parse_failure.t

#!/usr/bin/perl 

use strict;
use warnings;

use Test::More qw{no_plan};
use Date::Parse;

my ($ss,$mm,$hh,$day,$month,$year,$zone) = strptime('December 2009');
is ( $day , undef, q{seems like day parse is wrong});
is ( $year, 109,   q{seems like year parse is wrong});

is ( $Date::Parse::VERSION, '2.30', q{version is current});

__END__
not ok 1 - seems like day parse is wrong
#   Failed test 'seems like day parse is wrong'
#   at /home/benh/tmp/date_parse_failure.t line 10.
#          got: '2009'
#     expected: undef
not ok 2 - seems like year parse is wrong
#   Failed test 'seems like year parse is wrong'
#   at /home/benh/tmp/date_parse_failure.t line 11.
#          got: undef
#     expected: '109'
ok 3 - version is current
1..3
# Looks like you failed 2 tests of 3.