diff options
| author | Peter Bex <peter@more-magic.net> | 2025-08-19 10:55:22 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2025-08-19 11:27:50 +0200 |
| commit | 094253ae6d673fb3f67dae105550c39072d216d7 (patch) | |
| tree | 0ba1dd39af24d55f8df3ad2c0582268ea945a8ec | |
| parent | 9dae8d93d027ef1941d8f85f0e2801fb6e6d33ed (diff) | |
| download | slset-094253ae6d673fb3f67dae105550c39072d216d7.tar.gz | |
Add another case to the tests for slset<=
Not essential, and the code already handled this.
| -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))))) |