Commit c25e3754 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Add more ps-mode octal tests

* test/lisp/progmodes/ps-mode-tests.el
(ps-mode-test-octal-region-multibyte): New test.
parent 986e333e
......@@ -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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment