Add regression test for iconv_mime_decode_headers()

diff --git a/ext/iconv/tests/iconv_mime_decode_headers.phpt b/ext/iconv/tests/iconv_mime_decode_headers.phpt
new file mode 100644 (file)
index 0000000..b509ca3
--- /dev/null
+++ b/ext/iconv/tests/iconv_mime_decode_headers.phpt
@@ -0,0 +1,89 @@
+--TEST--
+iconv_mime_decode_headers()
+--SKIP--
+<?php extension_loaded('iconv') or die('skip iconv extension is not available'); ?>
+--INI--
+iconv.internal_charset=iso-8859-1
+--FILE--
+<?php
+$headers = <<<HERE
+Return-Path: <internals-return-5651-***=***.example.com@lists.php.net>
+Received: from pb1.pair.com (pb1.pair.com [16.92.131.4]) by ***.example.com 
+    (8.12.10/8.12.10/1970-09-30) with SMTP id hALLmpea023899 for
+    <***@***.example.com>; Sat, 22 Jan 1970 06:48:51 +0900 (JST)
+    (envelope-from
+    internals-return-5651-***=***.example.com@lists.php.net)
+Received: (qmail 63472 invoked by uid 1010); 1 Jan 1970 0:00:00 -0000
+Mailing-List: contact internals-help@lists.php.net; run by ezmlm
+Precedence: bulk
+List-Help: <mailto:internals-help@lists.php.net>
+List-Unsubscribe: <mailto:internals-unsubscribe@lists.php.net>
+List-Post: <mailto:internals@lists.php.net>
+Delivered-To: mailing list internals@lists.php.net
+Received: (qmail 63459 invoked by uid 1010); 1 Jan 1970 0:00:00 -0000
+Delivered-To: ezmlm-scan-internals@lists.php.net
+Delivered-To: ezmlm-internals@lists.php.net
+Date: Thu, 1 Jan 1970 00:00:00 -0000 (GMT)
+From: *** *** *** <***@***.example.com>
+X-X-Sender: ***@***.example.com 
+To: internals@lists.php.net
+Message-Id: <Pine.LNX.4.58.************@***.example.com>
+MIME-Version: 1.0
+Content-Type: TEXT/PLAIN; charset=US-ASCII
+Subject: [PHP-DEV] [ICONV] test for =?US-ASCII?Q?iconv_mime_decode_headers=28=29?=
+X-UIDL: @eH!!h2:!!EOS!!A_c"!
+HERE;
+var_dump(iconv_mime_decode_headers($headers));
+?>
+--EXPECT--
+array(17) {
+  ["Return-Path"]=>
+  string(57) "<internals-return-5651-***=***.example.com@lists.php.net>"
+  ["Received"]=>
+  array(3) {
+    [0]=>
+    string(259) "from pb1.pair.com (pb1.pair.com [16.92.131.4]) by ***.example.com (8.12.10/8.12.10/1970-09-30) with SMTP id hALLmpea023899 for <***@***.example.com>; Sat, 22 Jan 1970 06:48:51 +0900 (JST) (envelope-from internals-return-5651-***=***.example.com@lists.php.net)"
+    [1]=>
+    string(59) "(qmail 63472 invoked by uid 1010); 1 Jan 1970 0:00:00 -0000"
+    [2]=>
+    string(59) "(qmail 63459 invoked by uid 1010); 1 Jan 1970 0:00:00 -0000"
+  }
+  ["Mailing-List"]=>
+  string(50) "contact internals-help@lists.php.net; run by ezmlm"
+  ["Precedence"]=>
+  string(4) "bulk"
+  ["List-Help"]=>
+  string(37) "<mailto:internals-help@lists.php.net>"
+  ["List-Unsubscribe"]=>
+  string(44) "<mailto:internals-unsubscribe@lists.php.net>"
+  ["List-Post"]=>
+  string(32) "<mailto:internals@lists.php.net>"
+  ["Delivered-To"]=>
+  array(3) {
+    [0]=>
+    string(36) "mailing list internals@lists.php.net"
+    [1]=>
+    string(34) "ezmlm-scan-internals@lists.php.net"
+    [2]=>
+    string(29) "ezmlm-internals@lists.php.net"
+  }
+  ["Date"]=>
+  string(36) "Thu, 1 Jan 1970 00:00:00 -0000 (GMT)"
+  ["From"]=>
+  string(33) "*** *** *** <***@***.example.com>"
+  ["X-X-Sender"]=>
+  string(19) "***@***.example.com"
+  ["To"]=>
+  string(23) "internals@lists.php.net"
+  ["Message-Id"]=>
+  string(44) "<Pine.LNX.4.58.************@***.example.com>"
+  ["MIME-Version"]=>
+  string(3) "1.0"
+  ["Content-Type"]=>
+  string(28) "TEXT/PLAIN; charset=US-ASCII"
+  ["Subject"]=>
+  string(54) "[PHP-DEV] [ICONV] test for iconv_mime_decode_headers()"
+  ["X-UIDL"]=>
+  string(20) "@eH!!h2:!!EOS!!A_c"!"
+}
+