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:
parent
62a7e5d4ee
commit
1692522d53
1 changed files with 6 additions and 8 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue