mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 17:00:23 +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 20:58:01 +00:00
parent 62a7e5d4ee
commit 1692522d53
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

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