diff options
Diffstat (limited to 'tests/run.scm')
| -rw-r--r-- | tests/run.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/run.scm b/tests/run.scm index 1c209c2..8ec1a5a 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -27,7 +27,8 @@ (test-assert "trivial case no args" (slset<=)) (test-assert "trivial case one arg" (slset<= '(a)))) (test-group "negatives" - (test-assert (not (slset<= '(a b a) '(a b c c) '(a)))) + (test-assert (not (slset<= '(a b) '(a)))) + (test-assert (not (slset<= '(a b c c) '(a b a)))) (test-assert (not (slset<= '(a b) '(a c))))) (test-group "all symbols used here still clean" (test-assert (clean? '(a b c))))) |