diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/run.scm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/run.scm b/tests/run.scm index e2bf76b..4d15ea7 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -56,6 +56,27 @@ (test-group "all symbols used here still clean" (test-assert (clean? '(a b c d e i o u x))))) + (test-group "slset-delete" + (test-group "some examples" + (test '(a c d a c e) + (slset-delete '(a b c d a c e) 'b)) + (test '(b c d c) + (slset-delete '(a b c d a c e) 'a 'e 'i)) + (test '(b c d c e) + (slset-delete '(a b c d a c e) 'a 'a 'a)) + (test '(a b c d a c e) + (slset-delete '(a b c d a c e) 'i))) + (test-group "all symbols used here still clean" + (test-assert (clean? '(a b c d e i))))) + + (test-group "slset-contains?" + (test-group "some examples" + (test #t (slset-contains? '(a b c d a c e) 'a)) + (test #t (slset-contains? '(a b c d a c e) 'a)) + (test #f (slset-contains? '(a b c d a c e) 'i))) + (test-group "all symbols used here still clean" + (test-assert (clean? '(a b c d e i))))) + (test-group "slset-union" (test-group "examples from srfi-1 document" (test '(u o i a b c d e) (slset-union '(a b c d e) '(a e i o u))) |