diff options
| author |  Peter McGoron
| 2025-04-12 12:54:35 -0400 |
|---|---|---|
| committer | Peter McGoron
| 2025-04-12 12:54:35 -0400 |
| commit | 638df69633e1a36079a9c53bf35b4f9090609bb4 (patch) | |
| tree | 062e091c1f0341898c1c89bda6673d6911a93b92 /tests | |
| parent | trigger a manual minor garbage collection to try and smoke out stack corruption (diff) | |
test predicates on non-procedures0.9.0
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/run.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/run.scm b/tests/run.scm index b35427d..bdc08c2 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -74,4 +74,12 @@ (test "get-tag-foo" 'foo (get-tag-foo tagged)) (test "get-tag-baz" 'baz (get-tag-baz tagged)))) +(test-group "predicates on other objects" + (test-assert "integers are not tagged" (not (tag-foo? 0))) + (test-assert "strings are not tagged" (not (tag-foo? "hello"))) + (test-assert "bytevectors are not tagged" (not (tag-foo? #u8(1 2 3 4)))) + (test-assert "vectors are not tagged" (not (tag-foo? #(call/cc)))) + (test-assert "lists are not tagged" (not (tag-foo? '(1 2 3 4)))) + (test-assert "non-tagged procedures are not tagged" (not (tag-foo? call/cc)))) + (test-end "SRFI 259") |