aboutsummaryrefslogtreecommitdiffstats
path: root/test/src/coding-tests.el
diff options
context:
space:
mode:
Diffstat (limited to 'test/src/coding-tests.el')
-rw-r--r--test/src/coding-tests.el8
1 files changed, 8 insertions, 0 deletions
diff --git a/test/src/coding-tests.el b/test/src/coding-tests.el
index 094a1fad8fa..110ff126964 100644
--- a/test/src/coding-tests.el
+++ b/test/src/coding-tests.el
@@ -375,6 +375,14 @@
375 (with-temp-buffer (insert-file-contents (car file)))))) 375 (with-temp-buffer (insert-file-contents (car file))))))
376 (insert (format "%s: %s\n" (car file) result))))))) 376 (insert (format "%s: %s\n" (car file) result)))))))
377 377
378(ert-deftest coding-nocopy-trivial ()
379 "Check that the NOCOPY parameter works for the trivial coding system."
380 (let ((s "abc"))
381 (should-not (eq (decode-coding-string s nil nil) s))
382 (should (eq (decode-coding-string s nil t) s))
383 (should-not (eq (encode-coding-string s nil nil) s))
384 (should (eq (encode-coding-string s nil t) s))))
385
378;; Local Variables: 386;; Local Variables:
379;; byte-compile-warnings: (not obsolete) 387;; byte-compile-warnings: (not obsolete)
380;; End: 388;; End: