Raynes · December 10, 2011 08:42
diff --git a/core_test.clj b/core_test.clj
 (letfn [(status-map [status] {:status status :body [0]})]
  (tabular
   (fact
    (safe-parse {:status ?status :body "[0]"}) => (contains ?expected))
   ?status ?expected
   404     (status-map 404)
   400     (status-map 400)
   422     (status-map 422)
   500     (status-map 500)
   204     (status-map 204)
   200     [0]))
	(letfn [(status-map [status] {:status status :body [0]})]
	(tabular
	(fact
	(safe-parse {:status ?status :body "[0]"}) => (contains ?expected))
	?status ?expected
	404 (status-map 404)
	400 (status-map 400)
	422 (status-map 422)
	500 (status-map 500)
	204 (status-map 204)
	200 [0]))