From 7a7af4c2bb198bb71d5f8f28262528c1c9233e2f Mon Sep 17 00:00:00 2001 From: Matt Simerson Date: Thu, 18 Sep 2014 11:11:11 -0700 Subject: [PATCH] make it more obvious that ->address is stringified --- t/qpsmtpd-address.t | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/t/qpsmtpd-address.t b/t/qpsmtpd-address.t index 8db4a14..c9123b8 100644 --- a/t/qpsmtpd-address.t +++ b/t/qpsmtpd-address.t @@ -15,8 +15,6 @@ BEGIN { } __new(); -done_testing() and exit; - __config(); __parse(); @@ -56,17 +54,20 @@ sub __new { is_deeply($ao, undef, "illegal $as, deeply"); $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"); $ao = Qpsmtpd::Address->new(''); - is('', $ao, 'new, user=matt@test.com, format'); + is('', $ao, 'new, user=matt@test.com, stringified'); + is('', $ao->format, 'new, user=matt@test.com, format'); is_deeply(bless( { '_host' => 'test.com', '_user' => 'matt' }, 'Qpsmtpd::Address' ), $ao, 'new, user=matt@test.com, deeply'); $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"); }