diff options
| author | Stefan Kangas <stefan@marxist.se> | 2021-02-01 06:47:36 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2021-02-01 12:29:10 +0100 |
| commit | 3b708f42682cf963e33aed3e8618c1a73c589743 (patch) | |
| tree | de97019854cda524b12310e4c61ffeb5e414b419 | |
| parent | d987ca6f2267f5107a3e543fca4e8eaca983afa6 (diff) | |
| download | emacs-3b708f42682cf963e33aed3e8618c1a73c589743.tar.gz | |
* test/src/minibuf-tests.el (test-inhibit-interaction): Fix test.
| -rw-r--r-- | test/src/minibuf-tests.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/src/minibuf-tests.el b/test/src/minibuf-tests.el index 28119fc999e..c55611eb84b 100644 --- a/test/src/minibuf-tests.el +++ b/test/src/minibuf-tests.el @@ -412,11 +412,11 @@ (ert-deftest test-inhibit-interaction () (let ((inhibit-interaction t)) - (should-error (read-from-minibuffer "foo: ")) + (should-error (read-from-minibuffer "foo: ") :type 'inhibited-interaction) - (should-error (y-or-n-p "foo: ")) - (should-error (yes-or-no-p "foo: ")) - (should-error (read-blanks-no-input "foo: ")) + (should-error (y-or-n-p "foo: ") :type 'inhibited-interaction) + (should-error (yes-or-no-p "foo: ") :type 'inhibited-interaction) + (should-error (read-no-blanks-input "foo: ") :type 'inhibited-interaction) ;; See that we get the expected error. (should (eq (condition-case nil |