   (= 1 (count (deref reported))))
 
 (defn raw-report [] (println @reported))
+

					 (= (first form) 'expect)))]
     (assert (form-is-expect? expect-form))
     (assert (every? #(not (form-is-expect? %)) check-forms))
     `(do 
	(binding [report (fn [report-map#] (swap! reported conj report-map#))]
	  (reset! reported [])
	  ~expect-form)
	~@check-forms))))

(defn last-type? [expected]
  (= (:type (last (deref reported))) expected))


(def reported (atom []))

(defn run-and-check [run-form check-forms]
  `(do 
     (binding [report (fn [report-map#] (swap! reported conj report-map#))]
       (reset! reported [])
       ~run-form)
     ~@check-forms))


(defmacro one-case 
  ([description]
   `(println "PENDING:"  ~description))
