diff options
| -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 |