diff options
| author | Philipp Stephani <phst@google.com> | 2022-01-15 12:40:09 +0100 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2022-01-15 12:40:09 +0100 |
| commit | 2dcb1bc47485791177917bfbd8fba95d69454135 (patch) | |
| tree | 02b66e44030ddf23ce344932c2f8d6ed4155bde5 /test/lisp/emacs-lisp/map-tests.el | |
| parent | 7f36aca99dc1387cfeb599c9f2bb781036f79cf1 (diff) | |
| download | emacs-2dcb1bc47485791177917bfbd8fba95d69454135.tar.gz emacs-2dcb1bc47485791177917bfbd8fba95d69454135.tar.bz2 emacs-2dcb1bc47485791177917bfbd8fba95d69454135.zip | |
Mark a few more map tests as unstable on Emacs 28 (Bug#46722).
At least for me, these tests still occasionally fail.
Do not merge to master.
* test/lisp/emacs-lisp/map-tests.el (test-map-into-hash-test)
(test-map-merge, test-map-merge-with, test-map-merge-empty): Mark as
unstable.
Diffstat (limited to 'test/lisp/emacs-lisp/map-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/map-tests.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/map-tests.el b/test/lisp/emacs-lisp/map-tests.el index 31be0784ecb..4fca8b36199 100644 --- a/test/lisp/emacs-lisp/map-tests.el +++ b/test/lisp/emacs-lisp/map-tests.el @@ -443,6 +443,9 @@ Evaluate BODY for each created map." (ert-deftest test-map-into-hash-test () "Test `map-into' with different hash-table test functions." + ;; This test is unstable in Emacs 28, but the problem has been fixed + ;; in Emacs 29 (bug#46722). + :tags '(:unstable) (should (eq (hash-table-test (map-into () 'hash-table)) #'equal)) (should (eq (hash-table-test (map-into () '(hash-table))) #'eql)) (should (eq (hash-table-test (map-into () '(hash-table :test eq))) #'eq)) @@ -473,6 +476,9 @@ Evaluate BODY for each created map." (ert-deftest test-map-merge () "Test `map-merge'." + ;; This test is unstable in Emacs 28, but the problem has been fixed + ;; in Emacs 29 (bug#46722). + :tags '(:unstable) (should (equal (sort (map-merge 'list '(a 1) '((b . 2) (c . 3)) #s(hash-table data (c 4))) (lambda (x y) (string< (car x) (car y)))) @@ -482,6 +488,9 @@ Evaluate BODY for each created map." (should (equal (map-merge 'plist () '(:a 1)) '(:a 1)))) (ert-deftest test-map-merge-with () + ;; This test is unstable in Emacs 28, but the problem has been fixed + ;; in Emacs 29 (bug#46722). + :tags '(:unstable) (should (equal (sort (map-merge-with 'list #'+ '((1 . 2)) '((1 . 3) (2 . 4)) @@ -494,6 +503,9 @@ Evaluate BODY for each created map." (ert-deftest test-map-merge-empty () "Test merging of empty maps." + ;; This test is unstable in Emacs 28, but the problem has been fixed + ;; in Emacs 29 (bug#46722). + :tags '(:unstable) (should-not (map-merge 'list)) (should-not (map-merge 'alist)) (should-not (map-merge 'plist)) |