gistfile1.clj

(ns static.core-test
  (:require [clojure.test :refer :all]
            [static.core :as s]))

(defmacro with-env [eval-sym & body]
  `(let [env# (s/create-env)
         ~eval-sym (partial s/-eval env#)]
     ~@body))

(deftest scoping
  (with-env eval
    (testing "Let binding closing over fn"
      (eval
        '(let [x (fn [y] y)]
           (defn foo "foo" {:a :b} [a b c] {:pre (+ 1 2) :post (+ 1 2)}
             (if true "a" (+ 1 2))
             ;;(+ 1 2 3)
             (let [a (if true 1 :a)]
               (x b)))))

      (let [resp (eval '(foo 1 2 3))]
        (is (= 2 (-> resp :output :output :value)))))))