1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
# $Id$
use strict;
use Test::More tests => 8;
use vars qw( $class );
BEGIN {
$class = 'DateTime::Format::Mail';
use_ok $class;
}
# Do new() and clone() work properly?
{
eval { $class->new('fnar') };
ok( ($@ and $@ =~ /^Odd number/), "Odd number of args spotted." );
my $obj = eval { $class->new( loose => 1, year_cutoff => 4 ) };
ok( !$@, "Created object" );
diag $@ if $@;
isa_ok( $obj, $class );
my $clone = $obj->clone;
ok( eq_hash( $obj, $clone ), "Clones are equal" );
my $second = $clone->new;
my $third = $obj->new;
ok( eq_hash( $obj, $second ), "2nd clone equal" );
ok( eq_hash( $obj, $third ), "3rd clone equal" );
ok( eq_hash( $third, $clone ), "3rd and 1st clones equal" );
}
|