From f01b08bf8af0ba49b3bbded4ae6bd0fa832d987c Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Fri, 1 Apr 2005 23:49:35 +0000 Subject: [PATCH] (lset-union): More tests. --- test-suite/tests/srfi-1.test | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/test-suite/tests/srfi-1.test b/test-suite/tests/srfi-1.test index b8713b12e..a26dd69ca 100644 --- a/test-suite/tests/srfi-1.test +++ b/test-suite/tests/srfi-1.test @@ -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"