(import test)
(import define-macro)

(test-group "anwser of the universe"
  (define-macro (answer x)
    `(define ,x 42))
  (answer a)
  (test-assert (= a 42)))

(test-group "test-gensym"
  (define a 42)
  (define-macro (mac)
    (let ((a (gensym)))
      (define ,a 0)))
  (test-assert (= a 42)))