From 3b708f42682cf963e33aed3e8618c1a73c589743 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 1 Feb 2021 06:47:36 +0100 Subject: [PATCH] * test/src/minibuf-tests.el (test-inhibit-interaction): Fix test. --- test/src/minibuf-tests.el | 8 ++++---- 1 file 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 -- 2.39.2