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:
parent
452c0746d0
commit
e78ee79569
@ -71,8 +71,8 @@ $ao = Qpsmtpd::Address->new($as);
|
||||
ok ($ao, "new $as");
|
||||
is ($ao->format, $as, "format $as");
|
||||
|
||||
$as = '<foo@foo.x.example.com>';
|
||||
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");
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user