|
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 $clone_it = sub {
|
|
Packit |
9002b2 |
my $obj = shift;
|
|
Packit |
9002b2 |
my $method = shift;
|
|
Packit |
9002b2 |
my $clone = $obj->$method();
|
|
Packit |
9002b2 |
isa_ok( $clone => 'DateTime::Format::Builder' );
|
|
Packit |
9002b2 |
my $p1 = $obj->get_parser();
|
|
Packit |
9002b2 |
my $p2 = $clone->get_parser();
|
|
Packit |
9002b2 |
is( $p1 => $p2, "Parser cloned" );
|
|
Packit |
9002b2 |
};
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
my $obj = DateTime::Format::Builder->new();
|
|
Packit |
9002b2 |
isa_ok( $obj => 'DateTime::Format::Builder' );
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
for my $method (qw( new clone )) {
|
|
Packit |
9002b2 |
$clone_it->( $obj, $method );
|
|
Packit |
9002b2 |
}
|
|
Packit |
9002b2 |
|
|
Packit |
9002b2 |
done_testing();
|