Commit 5b7ec43c authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen

Add ps-mode-tests.el and remove a compilation warning

* lisp/progmodes/ps-mode.el (ps-mode-octal-region): Remove a
string-make-unibyte that apparently had no effect here.
* test/lisp/progmodes/ps-mode-tests.el: New file.
parent b334124a
Pipeline #2022 failed with stage
in 6 seconds
......@@ -738,7 +738,8 @@ Only one `%' is removed, and it has to be in the first column."
(while (re-search-forward "[\200-\377]" (marker-position endm) t)
(setq i (1+ i))
(insert (format "\\%03o" (string-to-char (string-make-unibyte (buffer-substring (point) (1+ (point)))))))
(insert (format "\\%03o" (string-to-char
(buffer-substring (point) (1+ (point))))))
(delete-char 1))
(message "%d change%s made" i (if (= i 1) "" "s"))
(set-marker endm nil)))))
;;; ps-mode-tests.el --- Test suite for ps-mode
;; Copyright (C) 2019 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <>.
;;; Commentary:
;;; Code:
(require 'ert)
(require 'ps-mode)
(ert-deftest ps-mode-test-octal-region ()
(set-buffer-multibyte nil)
(insert "foo" #x90 #x91 #x92 "bar")
(ps-mode-octal-region (point-min) (point-max))
(should (equal (buffer-string)
(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