mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(lset-union): More tests.

Browse source
This commit is contained in:
Kevin Ryde 2005-04-01 23:49:35 +00:00
parent 62a8750001
commit f01b08bf8a
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1071,6 +1071,21 @@
(pass-if "one arg"
(equal? '(1 2 3) (lset-union eq? '(1 2 3))))
(pass-if "'() '()"
(equal? '() (lset-union eq? '() '())))
(pass-if "'() '(1 2 3)"
(equal? '(1 2 3) (lset-union eq? '() '(1 2 3))))
(pass-if "'(1 2 3) '()"
(equal? '(1 2 3) (lset-union eq? '(1 2 3) '())))
(pass-if "'(1 2 3) '(4 3 5)"
(equal? '(5 4 1 2 3) (lset-union eq? '(1 2 3) '(4 3 5))))
(pass-if "'(1 2 3) '(4) '(3 5))"
(equal? '(5 4 1 2 3) (lset-union eq? '(1 2 3) '(4) '(3 5))))
;; in guile 1.6.7 and earlier, `=' was called with the arguments the wrong
;; way around
(pass-if "called arg order"