diff options
Diffstat (limited to '')
-rw-r--r-- | tests/util.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/util.scm b/tests/util.scm index 33ebdcf6..6ad58a24 100644 --- a/tests/util.scm +++ b/tests/util.scm @@ -1,5 +1,10 @@ -(((util) filter-sorted)) +(((util) filter-sorted set/r!)) (test-equal "Filter sorted" '(3 4 5) (filter-sorted (lambda (x) (<= 3 x 5)) (iota 10))) + +(test-equal "set/r! single" + #f + (let ((x #t)) + (set/r! x = not))) |