From e78ee795694ed2b29c1ded244e226ffdbfb1001d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= Date: Tue, 16 Nov 2004 02:15:22 +0000 Subject: [PATCH] really really fix the parse test this time. git-svn-id: https://svn.perl.org/qpsmtpd/trunk@339 958fd67b-6ff1-0310-b445-bb7760255be9 --- t/qpsmtpd-address.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/qpsmtpd-address.t b/t/qpsmtpd-address.t index 6d321f9..e112ea7 100644 --- a/t/qpsmtpd-address.t +++ b/t/qpsmtpd-address.t @@ -71,8 +71,8 @@ $ao = Qpsmtpd::Address->new($as); ok ($ao, "new $as"); is ($ao->format, $as, "format $as"); -$as = ''; -ok ($ao = Qpsmtpd::Address->parse($as), "parse $as"); +$as = 'foo@foo.x.example.com'; +ok ($ao = Qpsmtpd::Address->parse("<$as>"), "parse <$as>"); is ($ao && $ao->address, $as, "address $as");