From: Andrew Hyatt <ahyatt@gmail.com>
Date: Sat, 21 May 2016 04:08:27 +0000 (-0400)
Subject: Added tests for dos unibyte decoding.
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/44d743c20fa84fe041581dd3e0e2c5b9d86189e7

Added tests for dos unibyte decoding.

The underlying bug was previously fixed by Eli Zaretskii in commit
c8109d9c4057d8cac79e2c139758cadd410e7446.
---

diff --git a/test/lisp/legacy/coding-tests.el b/test/lisp/legacy/coding-tests.el
index cba8c7bc25..772c873551 100644
--- a/test/lisp/legacy/coding-tests.el
+++ b/test/lisp/legacy/coding-tests.el
@@ -48,3 +48,11 @@
          (let ((coding-system-for-write (intern "\"us-ascii\"")))
            (write-region "some text" nil test-file))))
     (coding-tests-remove-files)))
+
+;; See issue #5251.
+(ert-deftest ert-test-unibyte-buffer-dos-eol-decode ()
+  (with-temp-buffer
+    (set-buffer-multibyte nil)
+    (insert (encode-coding-string "あ" 'euc-jp) "\xd" "\n")
+    (decode-coding-region (point-min) (point-max) 'euc-jp-dos)
+    (should-not (string-match-p "\^M" (buffer-string)))))