diff options
Diffstat (limited to 'tests/util.scm')
| -rw-r--r-- | tests/util.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/util.scm b/tests/util.scm index ed5abfd1..57d2e538 100644 --- a/tests/util.scm +++ b/tests/util.scm @@ -8,7 +8,11 @@ '(3 4 5) (filter-sorted (lambda (x) (<= 3 x 5)) (iota 10))) -(test-equal "set/r! single" +(test-equal "set/r! = single" #f (let ((x #t)) (set/r! x = not))) + +(test-error + 'syntax-error + (test-read-eval-string "(set/r! x err not)")) |