Test for bug 9137

git-svn-id: http://svn.php.net/repository/pear/packages/Mail/trunk@239269 c90b9560-bf6c-de11-be94-00142212c4b1

tests/9137.phpt

@@ -0,0 +1,30 @@
+--TEST--
+Mail: Test for bug #9137
+--FILE--
+<?php
+
+require_once 'Mail/RFC822.php';
+require_once 'PEAR.php';
+
+$addresses = array(
+    array('name' => 'John Doe', 'email' => 'test@example.com'),
+    array('name' => 'John Doe\\', 'email' => 'test@example.com'),
+);
+
+for ($i = 0; $i < count($addresses); $i++) {
+    // construct the address
+    $address = "\"" . addslashes($addresses[$i]['name']) . "\" ".
+        "<".$addresses[$i]['email'].">";
+
+    $parsedAddresses = Mail_RFC822::parseAddressList($address);
+
+    if (PEAR::isError($parsedAddresses)) {
+        echo $address." :: Failed to validate\n";
+    } else {
+        echo $address." :: Parsed\n";
+    }
+}
+
+--EXPECT--
+"John Doe" <test@example.com> :: Parsed
+"John Doe\\" <test@example.com> :: Parsed