[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master b48cbaf: Fix two failing tests in mh-utils-tests
From: |
Stephen Gildea |
Subject: |
master b48cbaf: Fix two failing tests in mh-utils-tests |
Date: |
Wed, 17 Nov 2021 23:28:01 -0500 (EST) |
branch: master
commit b48cbaf5c7e47c002fd274aea21554245075bfe8
Author: Mike Kupfer <mkupfer@alum.berkeley.edu>
Commit: Stephen Gildea <stepheng+emacs@gildea.com>
Fix two failing tests in mh-utils-tests
* test/lisp/mh-e/mh-utils-tests.el
(mh-test-utils-mock-call-process): Add mock for root folders.
(mh-folder-completion-function-08-plus-slash)
(mh-folder-completion-function-09-plus-slash-tmp): Skip these tests
with Mailutils, which doesn't handle root folders. (Bug#51902)
---
test/lisp/mh-e/mh-utils-tests.el | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/test/lisp/mh-e/mh-utils-tests.el b/test/lisp/mh-e/mh-utils-tests.el
index 3a03d81..0066c00 100644
--- a/test/lisp/mh-e/mh-utils-tests.el
+++ b/test/lisp/mh-e/mh-utils-tests.el
@@ -211,6 +211,10 @@ The tests use this method if no configured MH variant is
found."
"/abso-folder/bar has no messages."
"/abso-folder/foo has no messages."
"/abso-folder/food has no messages."))
+ (("folders" "-noheader" "-norecurse" "-nototal" "+/") .
+ ("/+ has no messages ; (others)."
+ "//abso-folder has no messages ; (others)."
+ "//tmp has no messages ; (others)."))
))
(arglist (cons (file-name-base program) args)))
(let ((response-list-cons (assoc arglist argument-responses)))
@@ -437,7 +441,10 @@ and the `should' macro requires idempotent evaluation
anyway."
(ert-deftest mh-folder-completion-function-08-plus-slash ()
"Test `mh-folder-completion-function' with `+/'."
- :tags '(:unstable)
+ ;; This test fails with Mailutils 3.5, 3.7, and 3.13.
+ (with-mh-test-env
+ (skip-unless (not (and (stringp mh-variant-in-use)
+ (string-search "GNU Mailutils"
mh-variant-in-use)))))
(mh-test-folder-completion-1 "+/" "+/" "tmp/" t)
;; case "bb"
(with-mh-test-env
@@ -447,7 +454,10 @@ and the `should' macro requires idempotent evaluation
anyway."
(ert-deftest mh-folder-completion-function-09-plus-slash-tmp ()
"Test `mh-folder-completion-function' with `+/tmp'."
- :tags '(:unstable)
+ ;; This test fails with Mailutils 3.5, 3.7, and 3.13.
+ (with-mh-test-env
+ (skip-unless (not (and (stringp mh-variant-in-use)
+ (string-search "GNU Mailutils"
mh-variant-in-use)))))
(mh-test-folder-completion-1 "+/tmp" "+/tmp/" "tmp/" t))
(ert-deftest mh-folder-completion-function-10-plus-slash-abs-folder ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master b48cbaf: Fix two failing tests in mh-utils-tests,
Stephen Gildea <=