diff options
Diffstat (limited to 'test/src/coding-tests.el')
| -rw-r--r-- | test/src/coding-tests.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test/src/coding-tests.el b/test/src/coding-tests.el index 93e6709d442..83a06b8179e 100644 --- a/test/src/coding-tests.el +++ b/test/src/coding-tests.el | |||
| @@ -388,6 +388,23 @@ | |||
| 388 | (let* ((uni (apply #'string (number-sequence 0 127))) | 388 | (let* ((uni (apply #'string (number-sequence 0 127))) |
| 389 | (multi (string-to-multibyte uni))) | 389 | (multi (string-to-multibyte uni))) |
| 390 | (dolist (s (list uni multi)) | 390 | (dolist (s (list uni multi)) |
| 391 | (dolist (coding '(us-ascii-unix iso-latin-1-unix utf-8-unix)) | ||
| 392 | (should-not (eq (decode-coding-string s coding nil) s)) | ||
| 393 | (should-not (eq (encode-coding-string s coding nil) s)) | ||
| 394 | (should (eq (decode-coding-string s coding t) s)) | ||
| 395 | (should (eq (encode-coding-string s coding t) s))))) | ||
| 396 | (let* ((uni (apply #'string (number-sequence 15 127))) | ||
| 397 | (multi (string-to-multibyte uni))) | ||
| 398 | (dolist (s (list uni multi)) | ||
| 399 | (dolist (coding '(us-ascii iso-latin-1 utf-8)) | ||
| 400 | (should-not (eq (decode-coding-string s coding nil) s)) | ||
| 401 | (should-not (eq (encode-coding-string s coding nil) s)) | ||
| 402 | (should (eq (decode-coding-string s coding t) s)) | ||
| 403 | (should (eq (encode-coding-string s coding t) s))))) | ||
| 404 | (let* ((uni (apply #'string (number-sequence 0 127))) | ||
| 405 | (multi (string-to-multibyte uni)) | ||
| 406 | (inhibit-eol-conversion t)) | ||
| 407 | (dolist (s (list uni multi)) | ||
| 391 | (dolist (coding '(us-ascii iso-latin-1 utf-8)) | 408 | (dolist (coding '(us-ascii iso-latin-1 utf-8)) |
| 392 | (should-not (eq (decode-coding-string s coding nil) s)) | 409 | (should-not (eq (decode-coding-string s coding nil) s)) |
| 393 | (should-not (eq (encode-coding-string s coding nil) s)) | 410 | (should-not (eq (encode-coding-string s coding nil) s)) |