Test for mb_send_mail() under language=Korean

diff --git a/ext/mbstring/tests/mb_send_mail07.phpt b/ext/mbstring/tests/mb_send_mail07.phpt
new file mode 100644 (file)
index 0000000..74c4af9
--- /dev/null
+++ b/ext/mbstring/tests/mb_send_mail07.phpt
@@ -0,0 +1,41 @@
+--TEST--
+mb_send_mail() test 7 (lang=Korean)
+--SKIPIF--
+<?php
+if (@mb_send_mail() === false || !mb_language("Korean")) {
+       die("skip mb_send_mail() not available");
+}
+if (!@mb_internal_encoding('ISO-2022-KR')) {
+       die("skip ISO-2022-KR encoding is not avaliable on this platform");
+}
+?>
+--INI--
+sendmail_path=cat
+--FILE--
+<?php
+$to = 'example@example.com';
+
+/* default setting */
+mb_send_mail($to, mb_language(), "test");
+
+/* Korean */
+if (mb_language("korean")) {
+       mb_internal_encoding('EUC-KR');
+       mb_send_mail($to, "Å×½ºÆ® ".mb_language(), "Å×½ºÆ®");
+}
+?>
+--EXPECTF--
+To: example@example.com
+Subject: %s
+Mime-Version: 1.0
+Content-Type: text/plain; charset=%s
+Content-Transfer-Encoding: %s
+
+test
+To: example@example.com
+Subject: =?ISO-2022-KR?B?GyQpQw5FVz06Ri4PIEtvcmVhbg8=?=
+Mime-Version: 1.0
+Content-Type: text/plain; charset=ISO-2022-KR
+Content-Transfer-Encoding: 7bit
+
+\e$)C\ eEW=:F.\ f