diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-27 01:07:50 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-27 01:07:50 +0200 |
commit | 3d2b30f5c8bfb4363eeb676257c738dd596e6191 (patch) | |
tree | 0de106805a542b7ea0e5339355b9eba5711c1fed /tests/util.scm | |
parent | Improve opt parsing in test runner. (diff) | |
download | calp-3d2b30f5c8bfb4363eeb676257c738dd596e6191.tar.gz calp-3d2b30f5c8bfb4363eeb676257c738dd596e6191.tar.xz |
Merge mod!:s functionality into set!
Diffstat (limited to 'tests/util.scm')
-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))) |