mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2019-06-13 02:48:41 +02:00
parent b334124a23
commit 5b7ec43c61
2 changed files with 39 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/progmodes/ps-mode.el
View file

@ -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))
(backward-char)
(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)))))

37
test/lisp/progmodes/ps-mode-tests.el Normal file
View file

@ -0,0 +1,37 @@
;;; 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
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; 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 <https://www.gnu.org/licenses/>.
;;; Commentary:
;;; Code:
(require 'ert)
(require 'ps-mode)
(ert-deftest ps-mode-test-octal-region ()
(with-temp-buffer
(set-buffer-multibyte nil)
(insert "foo" #x90 #x91 #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