tests/011/place.tl


1
2
3
4
5
6
7
8
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")