DateTime-Format-Strptime-1.52/t/007_edge.t

6 use DateTime;
7 use DateTime::Format::Strptime;
20     my $parser = DateTime::Format::Strptime->new(
25     isa_ok( $parser, 'DateTime::Format::Strptime' );
27     isa_ok( $parsed, 'DateTime' );
33     my $parser = DateTime::Format::Strptime->new(
37     isa_ok( $parser, 'DateTime::Format::Strptime' );
40     isa_ok( $parsed, 'DateTime' );
47 my $bad_input_test = DateTime::Format::Strptime->new(
62     my $parser = new DateTime::Format::Strptime( pattern => '%O' );
70         = new DateTime::Format::Strptime( pattern => '%O', diagnostic => 1 );
77     my $parser = new DateTime::Format::Strptime( pattern => '%O',
84     my $parser = DateTime::Format::Strptime->new( pattern => "%d%b%y" );
92     my $strptime = DateTime::Format::Strptime->new(
99     isa_ok( $strptime, 'DateTime::Format::Strptime' );
102     isa_ok( $parsed, 'DateTime' );