summaryrefslogtreecommitdiffstats
path: root/tests/011/place.tl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/011/place.tl')
-rw-r--r--tests/011/place.tl9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/011/place.tl b/tests/011/place.tl
new file mode 100644
index 00000000..eb0dcb46
--- /dev/null
+++ b/tests/011/place.tl
@@ -0,0 +1,9 @@
+(load "../common")
+
+(defvar h (hash))
+
+(mtest
+ (let ((x 0)) (ensure (gethash h (pinc x)) "a") x) 1
+ [h 0] "a"
+ (let ((x 0)) (ensure (gethash h 0) (pinc x)) x) 0
+ [h 0] "a")