mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

(lset-adjoin): Amend tests to expect duplicates among args cast out.

Browse source
This commit is contained in:
Kevin Ryde 2005-02-17 21:15:46 +00:00
parent 85c981f61a
commit a115b0feaa
1 changed files with 6 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

14
test-suite/tests/srfi-1.test
View file

@ -925,14 +925,12 @@
'(1) 2)
good))
(pass-if "called against arg list only"
(let ((good #t))
(lset-adjoin (lambda (x y)
(set! good (and good
(= x 1)
(or (= y 2) (= y 3)))))
'(1) 2 3)
good)))
(pass-if "(1 1) 1 1"
(equal? '(1 1) (lset-adjoin = '(1 1) 1 1)))
;; duplicates among args are cast out
(pass-if "(2) 1 1"
(equal? '(1 2) (lset-adjoin = '(2) 1 1))))
;;
;; member