diff options
author | Masaya Tojo <masaya@tojo.tokyo> | 2024-06-15 01:47:35 +0900 |
---|---|---|
committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-06-15 01:47:35 +0900 |
commit | 959ead049e6f22438902399eb0925e8f60e0f3e0 (patch) | |
tree | 4f2e8e887e91226798ea275aa11f0d131bade96f /tests | |
parent | a7f95e5555880f3d6d3b0fe0308f94c82b83b767 (diff) |
Add `member?` function
Diffstat (limited to 'tests')
-rw-r--r-- | tests/run.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/run.scm b/tests/run.scm index d316f75..be0845b 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -107,8 +107,10 @@ (test #f (list:every (cut member 'x <>) '((a b c) (d x f)))) (test '(x f) (list:every (cut member 'x <>) '((a x c) (d x f)))) -(test 7 (list:maximum '(1 3 7 5) <)) -(test -3 (list:minimum '(4 -3 0 1 7 8) <)) +(test #t (list:member? 3 '(1 3 7 5) =)) +(test #f (list:member? 3 '(1 7 5) =)) +(test #t (list:member? 'c '(a b c) eq?)) +(test #f (list:member? 'c '(a b) eq?)) (test-end "foldable") |