From: Stefan Kangas <stefan@marxist.se>
Date: Mon, 1 Feb 2021 05:47:36 +0000 (+0100)
Subject: * test/src/minibuf-tests.el (test-inhibit-interaction): Fix test.
X-Git-Tag: emacs-28.0.90~3980
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b708f42682cf963e33aed3e8618c1a73c589743;p=emacs.git

* test/src/minibuf-tests.el (test-inhibit-interaction): Fix test.
---

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