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

Add seq-set-equal-p to test for set equality

Browse source 
* lisp/emacs-lisp/seq.el (seq-set-equal-p): Add function to compare
  two lists as if they were sets.

* test/lisp/emacs-lisp/seq-tests.el (test-seq-set-equal-p): Add test
  for seq-set-equal-p.
This commit is contained in:
Damien Cassou 2017-04-17 11:01:39 +02:00 • committed by Nicolas Petton
parent 250d24fa73
commit 88f96e69cf
4 changed files with 61 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

25
test/lisp/emacs-lisp/seq-tests.el
View file

@ -197,6 +197,31 @@ Evaluate BODY for each created sequence.
(should (seq-every-p #'identity seq))
(should (seq-every-p #'test-sequences-evenp seq))))
(ert-deftest test-seq-set-equal-p ()
(with-test-sequences (seq1 '(1 2 3))
(should (seq-set-equal-p seq1 seq1))
(should (seq-set-equal-p seq1 seq1 #'eq))
(with-test-sequences (seq2 '(3 2 1))
(should (seq-set-equal-p seq1 seq2))
(should (seq-set-equal-p seq2 seq1))
(should (seq-set-equal-p seq1 seq2 #'eq))
(should (seq-set-equal-p seq2 seq1 #'eq)))
(with-test-sequences (seq2 '(3 1))
(should-not (seq-set-equal-p seq1 seq2))
(should-not (seq-set-equal-p seq2 seq1))))
(should (seq-set-equal-p '("a" "b" "c")
'("c" "b" "a")))
(should-not (seq-set-equal-p '("a" "b" "c")
'("c" "b" "a") #'eq))
(should-not (seq-set-equal-p '(("a" 1) ("b" 1) ("c" 1))
'(("c" 2) ("b" 2) ("a" 2))))
(should (seq-set-equal-p '(("a" 1) ("b" 1) ("c" 1))
'(("c" 2) ("b" 2) ("a" 2))
(lambda (i1 i2) (equal (car i1) (car i2))))))
(ert-deftest test-seq-empty-p ()
(with-test-sequences (seq '(0))
(should-not (seq-empty-p seq)))