cvs commit: qpsmtpd/t qpsmtpd-address.t
[email protected] (Ask "Bj?rn" Hansen)
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/11/15 18:15:22 Modified: t qpsmtpd-address.t Log: really really fix the parse test this time. Revision Changes Path 1.8 +2 -2 qpsmtpd/t/qpsmtpd-address.t Index: qpsmtpd-address.t =================================================================== RCS file: /cvs/public/qpsmtpd/t/qpsmtpd-address.t,v retrieving revision 1.7 retrieving revision 1.8 diff -u -r1.7 -r1.8 --- qpsmtpd-address.t 16 Nov 2004 02:07:39 -0000 1.7 +++ qpsmtpd-address.t 16 Nov 2004 02:15:22 -0000 1.8 @@ -71,8 +71,8 @@ ok ($ao, "new $as"); is ($ao->format, $as, "format $as"); -$as = '<[email protected]>'; -ok ($ao = Qpsmtpd::Address->parse($as), "parse $as"); +$as = '[email protected]'; +ok ($ao = Qpsmtpd::Address->parse("<$as>"), "parse <$as>"); is ($ao && $ao->address, $as, "address $as");