byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make it more obvious that ->address is stringified

Browse Source
This commit is contained in:
Matt Simerson 2014-09-18 11:11:11 -07:00
parent 92fadd703a
commit 7a7af4c2bb
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
t/qpsmtpd-address.t
View File

@ -15,8 +15,6 @@ BEGIN {
} }
__new(); __new();
done_testing() and exit;
__config(); __config();
__parse(); __parse();
@ -56,17 +54,20 @@ sub __new {
is_deeply($ao, undef, "illegal $as, deeply"); is_deeply($ao, undef, "illegal $as, deeply");
$ao = Qpsmtpd::Address->new(undef); $ao = Qpsmtpd::Address->new(undef);
is('<>', $ao, "new, user=undef, format"); is('<>', $ao, "new, user=undef, stringified");
is('<>', $ao->format, "new, user=undef, format");
is_deeply(bless({_user => undef, _host=>undef}, 'Qpsmtpd::Address'), $ao, "new, user=undef, deeply"); is_deeply(bless({_user => undef, _host=>undef}, 'Qpsmtpd::Address'), $ao, "new, user=undef, deeply");
$ao = Qpsmtpd::Address->new('<matt@test.com>'); $ao = Qpsmtpd::Address->new('<matt@test.com>');
is('<matt@test.com>', $ao, 'new, user=matt@test.com, format'); is('<matt@test.com>', $ao, 'new, user=matt@test.com, stringified');
is('<matt@test.com>', $ao->format, 'new, user=matt@test.com, format');
is_deeply(bless( { '_host' => 'test.com', '_user' => 'matt' }, 'Qpsmtpd::Address' ), is_deeply(bless( { '_host' => 'test.com', '_user' => 'matt' }, 'Qpsmtpd::Address' ),
$ao, $ao,
'new, user=matt@test.com, deeply'); 'new, user=matt@test.com, deeply');
$ao = Qpsmtpd::Address->new('postmaster'); $ao = Qpsmtpd::Address->new('postmaster');
is('<>', $ao, "new, user=postmaster, format"); is('<>', $ao, "new, user=postmaster, stringified");
is('<>', $ao->format, "new, user=postmaster, format");
is_deeply(bless({_user => undef, _host=>undef}, 'Qpsmtpd::Address'), $ao, "new, user=postmaster, deeply"); is_deeply(bless({_user => undef, _host=>undef}, 'Qpsmtpd::Address'), $ao, "new, user=postmaster, deeply");
} }