emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 3b708f4 7/7: * test/src/minibuf-tests.el (test-inhibit-interactio


From: Stefan Kangas
Subject: master 3b708f4 7/7: * test/src/minibuf-tests.el (test-inhibit-interaction): Fix test.
Date: Mon, 1 Feb 2021 08:01:20 -0500 (EST)

branch: master
commit 3b708f42682cf963e33aed3e8618c1a73c589743
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    * 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 28119fc..c55611e 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]