Add local variables map to 'expect'

src/main/clojure/lazytest/expect.clj

@@ -1,6 +1,12 @@
 (ns lazytest.expect
   (:import (lazytest ExpectationFailed)))
 
+(defn- local-bindings
+  "Returns a map of the names of local bindings to their values."
+  [env]
+  (reduce (fn [m sym] (assoc m `'~sym sym))
+	  {} (keys env)))
+
 (defn- function-call?
   "True if form is a list representing a normal function call."
   [form]
@@ -33,6 +39,7 @@
 		      (merge '~(meta &form)
 			     '~(meta expr)
 			     {:form '~expr
+			      :locals ~(local-bindings &env)
 			      :evaluated (list* f# args#)
 			      :result result#
 			      :file ~*file*
@@ -45,6 +52,7 @@
 		      (merge '~(meta &form)
 			     '~(meta expr)
 			     {:form '~expr
+			      :locals ~(local-bindings &env)
 			      :result result#
 			      :file ~*file*
 			      :ns *ns*}

src/test/clojure/lazytest/expect_asserts.clj

@@ -37,3 +37,11 @@
     (assert (= '(instance? java.lang.String 42) (:form reason)))
     (assert (= (list instance? java.lang.String 42) (:evaluated reason)))
     (assert (false? (:result reason)))))
+
+(let [x (+ 3 4)]
+  (let [e4 (try (expect (zero? (* x 2)))
+		false
+		(catch ExpectationFailed err err))]
+    (assert e4)
+    (let [reason (.reason e4)]
+      (assert (= {'x 7} (:locals reason))))))