diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-13 03:03:26 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-13 03:03:26 +0200 |
| commit | c25e3754ed85b668f2a9b56db8eb5572cf973826 (patch) | |
| tree | e19ccd29096247510d7b3ca3603d68c1a07bdb5b | |
| parent | 986e333eaafd581f3d4d97793723a9333fce9790 (diff) | |
| download | emacs-c25e3754ed85b668f2a9b56db8eb5572cf973826.tar.gz | |
Add more ps-mode octal tests
* test/lisp/progmodes/ps-mode-tests.el
(ps-mode-test-octal-region-multibyte): New test.
| -rw-r--r-- | test/lisp/progmodes/ps-mode-tests.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/test/lisp/progmodes/ps-mode-tests.el b/test/lisp/progmodes/ps-mode-tests.el index aa0c4f3a059..9f157e022a1 100644 --- a/test/lisp/progmodes/ps-mode-tests.el +++ b/test/lisp/progmodes/ps-mode-tests.el @@ -24,7 +24,7 @@ (require 'ert) (require 'ps-mode) -(ert-deftest ps-mode-test-octal-region () +(ert-deftest ps-mode-test-octal-region-unibyte () (with-temp-buffer (set-buffer-multibyte nil) (insert "foo" #x90 #x91 #x92 "bar") @@ -32,6 +32,17 @@ (should (equal (buffer-string) "foo\\220\\221\\222bar")))) +(ert-deftest ps-mode-test-octal-region-multibyte () + (with-temp-buffer + (insert "foo" + (unibyte-char-to-multibyte #x90) + (unibyte-char-to-multibyte #x91) + (unibyte-char-to-multibyte #x92) + "bar") + (ps-mode-octal-region (point-min) (point-max)) + (should (equal (buffer-string) + "foo\\220\\221\\222bar")))) + (provide 'ps-mode-tests) ;;; ps-mode-tests.el ends here |