conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use lset= to compare list sets. 

Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
This commit is contained in:
OGINO Masanori 2015-07-21 15:35:56 +09:00
parent 643d86c709
commit 1018a7cce8
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
contrib/40.srfi/t/1.scm
View File

@ -262,23 +262,23 @@
(test #t (lset= eq?))
(test #t (lset= eq? '(a)))
(test '(u o i a b c d c e) (lset-adjoin eq? '(a b c d c e) 'a 'e 'i 'o 'u))
(test '(u o i a b c d c e) (lset-adjoin eq? '(a b c d c e) 'a 'e 'i 'o 'u) lset=)
(test '(u o i a b c d e) (lset-union eq? '(a b c d e) '(a e i o u)))
(test '(x a a c) (lset-union eq? '(a a c) '(x a x)))
(test '() (lset-union eq?))
(test '(a b c) (lset-union eq? '(a b c)))
(test '(u o i a b c d e) (lset-union eq? '(a b c d e) '(a e i o u)) lset=)
(test '(x a a c) (lset-union eq? '(a a c) '(x a x)) lset=)
(test '() (lset-union eq?) lset=)
(test '(a b c) (lset-union eq? '(a b c)) lset=)
(test '(a e) (lset-intersection eq? '(a b c d e) '(a e i o u)))
(test '(a x a) (lset-intersection eq? '(a x y a) '(x a x z)))
(test '(a b c) (lset-intersection eq? '(a b c)))
(test '(a e) (lset-intersection eq? '(a b c d e) '(a e i o u)) lset=)
(test '(a x a) (lset-intersection eq? '(a x y a) '(x a x z)) lset=)
(test '(a b c) (lset-intersection eq? '(a b c)) lset=)
(test '(b c d) (lset-difference eq? '(a b c d e) '(a e i o u)))
(test '(a b c) (lset-difference eq? '(a b c)))
(test '(b c d) (lset-difference eq? '(a b c d e) '(a e i o u)) lset=)
(test '(a b c) (lset-difference eq? '(a b c)) lset=)
(test '(d c b i o u) (lset-xor eq? '(a b c d e) '(a e i o u)))
(test '() (lset-xor eq?))
(test '(a b c d e) (lset-xor eq? '(a b c d e)))
(test '(d c b i o u) (lset-xor eq? '(a b c d e) '(a e i o u)) lset=)
(test '() (lset-xor eq?) lset=)
(test '(a b c d e) (lset-xor eq? '(a b c d e)) lset=)
; TODO: Test lset-diff+intersection
; TODO: Test lset-union!