diff options
| author | Thierry Volpiatto | 2023-11-30 11:04:47 +0100 |
|---|---|---|
| committer | Thierry Volpiatto | 2023-12-02 06:35:59 +0100 |
| commit | cd6e66f955d20d31686a617ed8a5cd043585c71f (patch) | |
| tree | bb7f27ac76eac1ae021eed01d9ed088b6e58d2c1 /test | |
| parent | 408126b6d56a0cc36f621348212e16d0715fd671 (diff) | |
| download | emacs-cd6e66f955d20d31686a617ed8a5cd043585c71f.tar.gz emacs-cd6e66f955d20d31686a617ed8a5cd043585c71f.zip | |
Delete register-tests.el now no more needed
* register-tests.el: Deleted file.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/register-tests.el | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/test/lisp/register-tests.el b/test/lisp/register-tests.el deleted file mode 100644 index 6283d1c31e0..00000000000 --- a/test/lisp/register-tests.el +++ /dev/null | |||
| @@ -1,43 +0,0 @@ | |||
| 1 | ;;; register-tests.el --- tests for register.el -*- lexical-binding: t-*- | ||
| 2 | |||
| 3 | ;; Copyright (C) 2017-2023 Free Software Foundation, Inc. | ||
| 4 | |||
| 5 | ;; Author: Tino Calancha <tino.calancha@gmail.com> | ||
| 6 | ;; Keywords: | ||
| 7 | |||
| 8 | ;; This file is part of GNU Emacs. | ||
| 9 | |||
| 10 | ;; GNU Emacs is free software: you can redistribute it and/or modify | ||
| 11 | ;; it under the terms of the GNU General Public License as published by | ||
| 12 | ;; the Free Software Foundation, either version 3 of the License, or | ||
| 13 | ;; (at your option) any later version. | ||
| 14 | |||
| 15 | ;; GNU Emacs is distributed in the hope that it will be useful, | ||
| 16 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| 17 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||
| 18 | ;; GNU General Public License for more details. | ||
| 19 | |||
| 20 | ;; You should have received a copy of the GNU General Public License | ||
| 21 | ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. | ||
| 22 | |||
| 23 | ;;; Commentary: | ||
| 24 | |||
| 25 | |||
| 26 | ;;; Code: | ||
| 27 | (require 'ert) | ||
| 28 | (require 'cl-lib) | ||
| 29 | |||
| 30 | (ert-deftest register-test-bug27634 () | ||
| 31 | "Test for https://debbugs.gnu.org/27634 ." | ||
| 32 | (dolist (event (list ?\C-g 'escape ?\C-\[)) | ||
| 33 | (cl-letf (((symbol-function 'read-key) #'ignore) | ||
| 34 | (last-input-event event) | ||
| 35 | (register-alist nil)) | ||
| 36 | (should (equal 'quit | ||
| 37 | (condition-case err | ||
| 38 | (call-interactively 'point-to-register) | ||
| 39 | (quit (car err))))) | ||
| 40 | (should-not register-alist)))) | ||
| 41 | |||
| 42 | (provide 'register-tests) | ||
| 43 | ;;; register-tests.el ends here | ||