|
Packit |
9002b2 |
use strict;
|
|
Packit |
9002b2 |
use warnings;
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
use Test::More;
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
use DateTime::Format::Builder;
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
my %common = (
|
|
Packit |
9002b2 |
version => 4.00,
|
|
Packit |
9002b2 |
parsers => {
|
|
Packit |
9002b2 |
parse_datetime => {
|
|
Packit |
9002b2 |
params => [qw( year month day hour minute second )],
|
|
Packit |
9002b2 |
regex => qr/^(\d\d\d\d)(\d\d)(\d\d)T(\d\d)(\d\d)(\d\d)$/,
|
|
Packit |
9002b2 |
}
|
|
Packit |
9002b2 |
},
|
|
Packit |
9002b2 |
);
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
# Does create_class() work properly?
|
|
Packit |
9002b2 |
{
|
|
Packit |
9002b2 |
my $sample = "20030716T163245";
|
|
Packit |
9002b2 |
my $newclass = "DateTime::Format::ICal15";
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
DateTime::Format::Builder->create_class(
|
|
Packit |
9002b2 |
%common,
|
|
Packit |
9002b2 |
class => $newclass,
|
|
Packit |
9002b2 |
);
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
my $parser = $newclass->new();
|
|
Packit |
9002b2 |
cmp_ok( $newclass->VERSION, '==', '4.00', "Version matches" );
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
{
|
|
Packit |
9002b2 |
my $dt = $parser->parse_datetime($sample);
|
|
Packit |
9002b2 |
isa_ok( $dt => "DateTime" );
|
|
Packit |
9002b2 |
my %methods = qw(
|
|
Packit |
9002b2 |
hour 16 minute 32 second 45
|
|
Packit |
9002b2 |
year 2003 month 7 day 16
|
|
Packit |
9002b2 |
);
|
|
Packit |
9002b2 |
while ( my ( $method, $expected ) = each %methods ) {
|
|
Packit |
9002b2 |
is(
|
|
Packit |
9002b2 |
$dt->$method() => $expected,
|
|
Packit |
9002b2 |
"\$dt->$method() == $expected"
|
|
Packit |
9002b2 |
);
|
|
Packit |
9002b2 |
}
|
|
Packit |
9002b2 |
}
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
# New with args
|
|
Packit |
9002b2 |
{
|
|
Packit |
9002b2 |
eval { $newclass->new( "with", "args" ) };
|
|
Packit |
9002b2 |
ok( $@, "Should have errors" );
|
|
Packit |
9002b2 |
like( $@, qr{ takes no parameters}, "Right error" );
|
|
Packit |
9002b2 |
}
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
# New from object
|
|
Packit |
9002b2 |
{
|
|
Packit |
9002b2 |
my $new = $parser->new();
|
|
Packit |
9002b2 |
isa_ok( $new, $newclass, "New from object gives right class" );
|
|
Packit |
9002b2 |
}
|
|
Packit |
9002b2 |
}
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
# New class, with given new
|
|
Packit |
9002b2 |
{
|
|
Packit |
9002b2 |
my $newclass = "DateTime::Format::ICalTest";
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
DateTime::Format::Builder->create_class(
|
|
Packit |
9002b2 |
%common,
|
|
Packit |
9002b2 |
class => $newclass,
|
|
Packit |
9002b2 |
constructor => sub { bless { "Foo" => "Bar" }, shift },
|
|
Packit |
9002b2 |
);
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
my $parser = $newclass->new();
|
|
Packit |
9002b2 |
cmp_ok( $newclass->VERSION, '==', '4.00', "Version matches" );
|
|
Packit |
9002b2 |
is( $parser->{"Foo"} => "Bar", "Used the right constructor" );
|
|
Packit |
9002b2 |
}
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
# New class, with undef new
|
|
Packit |
9002b2 |
{
|
|
Packit |
9002b2 |
my $newclass = "DateTime::Format::ICalTestUndef";
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
eval {
|
|
Packit |
9002b2 |
DateTime::Format::Builder->create_class(
|
|
Packit |
9002b2 |
%common,
|
|
Packit |
9002b2 |
class => $newclass,
|
|
Packit |
9002b2 |
constructor => undef,
|
|
Packit |
9002b2 |
);
|
|
Packit |
9002b2 |
};
|
|
Packit |
9002b2 |
ok( !$@, "Should be no errors with undef new" );
|
|
Packit |
9002b2 |
ok( !( UNIVERSAL::can( $newclass, 'new' ) ), "Should be no constructor" );
|
|
Packit |
9002b2 |
}
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
done_testing();
|