procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Mark a few more map tests as unstable on Emacs 28 (Bug#46722).

Browse source 
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.
This commit is contained in:
Philipp Stephani 2022-01-15 12:40:09 +01:00
parent 7f36aca99d
commit 2dcb1bc474
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
test/lisp/emacs-lisp/map-tests.el
View file

@ -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))