emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[nongnu] elpa/bash-completion bac0fb55f1 124/313: More integration test


From: ELPA Syncer
Subject: [nongnu] elpa/bash-completion bac0fb55f1 124/313: More integration test cleanup made possible by the move to ert.
Date: Sat, 3 Dec 2022 10:59:23 -0500 (EST)

branch: elpa/bash-completion
commit bac0fb55f149ce5274504f2bb1e1b58b32eebf11
Author: Stephane Zermatten <stephane@boomer.local>
Commit: Stephane Zermatten <stephane@boomer.local>

    More integration test cleanup made possible by the move to ert.
---
 bash-completion-test.el | 35 +++++++++++++----------------------
 1 file changed, 13 insertions(+), 22 deletions(-)

diff --git a/bash-completion-test.el b/bash-completion-test.el
index 4fa2dbf2d5..5e0eb941c4 100644
--- a/bash-completion-test.el
+++ b/bash-completion-test.el
@@ -624,31 +624,22 @@ garbage
 
 (ert-deftest bash-completion-interaction-test ()
   (skip-unless (file-executable-p bash-completion-prog))
-  (should (equal
-          '(nil t t t "t\n" nil nil)
-          (bash-completion_test-harness
-           (list
-            (bash-completion-is-running)
-            (buffer-live-p (bash-completion-buffer))
-            (bash-completion-is-running)
-            (not (null
-                  (member "help "
-                          (bash-completion-comm "hel" 4 '("hel") 0 nil))))
-            (progn
-              (bash-completion-send "echo $EMACS_BASH_COMPLETE")
-              (with-current-buffer (bash-completion-buffer)
-                (buffer-string)))
-            (bash-completion-reset)
-            (bash-completion-is-running))))))
+  (bash-completion_test-harness
+   (should-not (bash-completion-is-running))
+   (should (buffer-live-p (bash-completion-buffer)))
+   (should (bash-completion-is-running))
+   (should-not (null (member
+                     "help "
+                     (bash-completion-comm "hel" 4 '("hel") 0 nil))))
+   (bash-completion-reset)
+   (should-not (bash-completion-is-running))))
 
 (ert-deftest bash-completion-setenv-test ()
   (skip-unless (file-executable-p bash-completion-prog))
-  (should (equal
-          "t\n"
-          (bash-completion_test-harness
-           (bash-completion-send "echo $EMACS_BASH_COMPLETE")
-           (with-current-buffer (bash-completion-buffer)
-             (buffer-string))))))
+  (bash-completion_test-harness
+   (bash-completion-send "echo $EMACS_BASH_COMPLETE")
+   (with-current-buffer (bash-completion-buffer)
+     (should (equal "t\n" (buffer-string))))))
 
 (ert-deftest bash-completion-one-completion-test ()
   (skip-unless (file-executable-p bash-completion-prog))



reply via email to

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