From 1018a7cce8132cbcf51b9ea09f17339fe7b528b7 Mon Sep 17 00:00:00 2001 From: OGINO Masanori Date: Tue, 21 Jul 2015 15:35:56 +0900 Subject: [PATCH] Use lset= to compare list sets. Signed-off-by: OGINO Masanori --- contrib/40.srfi/t/1.scm | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/contrib/40.srfi/t/1.scm b/contrib/40.srfi/t/1.scm index 0e00fed6..0909d506 100644 --- a/contrib/40.srfi/t/1.scm +++ b/contrib/40.srfi/t/1.scm @@ -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!