(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")