really really fix the parse test this time.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@339 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2004-11-16 02:15:22 +00:00
parent 452c0746d0
commit e78ee79569

View File

@ -71,8 +71,8 @@ $ao = Qpsmtpd::Address->new($as);
ok ($ao, "new $as"); ok ($ao, "new $as");
is ($ao->format, $as, "format $as"); is ($ao->format, $as, "format $as");
$as = '<foo@foo.x.example.com>'; $as = 'foo@foo.x.example.com';
ok ($ao = Qpsmtpd::Address->parse($as), "parse $as"); ok ($ao = Qpsmtpd::Address->parse("<$as>"), "parse <$as>");
is ($ao && $ao->address, $as, "address $as"); is ($ao && $ao->address, $as, "address $as");