From 094253ae6d673fb3f67dae105550c39072d216d7 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Tue, 19 Aug 2025 10:55:22 +0200 Subject: Add another case to the tests for slset<= Not essential, and the code already handled this. --- tests/run.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))))) -- cgit v1.2.3