diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-30 20:31:14 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-08-30 20:31:14 +0200 |
| commit | 37ce10b30af08d7003ed12ee6072368be6519a79 (patch) | |
| tree | eb873761ae436bf9856108ea9d7037aa5ebd4471 /tests | |
| parent | Allow partial change and removal of XML Namespaces. (diff) | |
| download | calp-37ce10b30af08d7003ed12ee6072368be6519a79.tar.gz calp-37ce10b30af08d7003ed12ee6072368be6519a79.tar.xz | |
Fix minor syntax error for set/r!
Diffstat (limited to 'tests')
| -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)")) |