(import (scheme base)
        (picrin test))

(test-begin)

(define a #f)

(parameterize ()
  (set! a (make-parameter 1)))

(test 1 (a))

(test-end)