mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

; Strengthen value< tests slightly

Browse Source 
* test/src/fns-tests.el (fns-value<-ordered, fns-value<-unordered):
Check equality and/or unordered results using lexicographic constructs.
This commit is contained in:
Mattias Engdegård 2024-07-04 15:39:32 +02:00
parent f9f4f054bc
commit 0b061ab2ed
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/src/fns-tests.el
View File

@ -1672,7 +1672,11 @@
(should (value< x y))
(should-not (value< y x))
(should-not (value< x x))
(should-not (value< y y))))
(should-not (value< y y))
(should (value< (vector x 2) (vector y 1)))
(should-not (value< (vector y 1) (vector x 2)))
(should (value< (vector x 1) (vector x 2)))
(should (value< (vector y 1) (vector y 2)))))
(delete-process proc2)
(delete-process proc1)
@ -1707,7 +1711,9 @@
(let ((x (car c))
(y (cdr c)))
(should-not (value< x y))
(should-not (value< y x))))))
(should-not (value< y x))
(should (value< (cons x 1) (cons y 2)))
(should-not (value< (cons x 2) (cons y 1)))))))
(ert-deftest fns-value<-type-mismatch ()
;; values of disjoint (incomparable) types