1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-27 23:40:24 +02:00

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

This commit is contained in:
Kevin Ryde 2005-02-17 20:58:01 +00:00
parent 62a7e5d4ee
commit 1692522d53

View file

@ -809,14 +809,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))))
;;
;; map