 ;;; Contexts
 
 (deftype Context [parents before after])
+
+(defn context? [x]
+  (isa? (type x) ::Context))
 
 (defn- open-context
   "Opens context c, and all its parents, unless it is already active."

(ns com.stuartsierra.lazytest
  (:use [clojure.contrib.find-namespaces
         :only (find-namespaces-in-dir)]))


  [c re & body]
  `(try ~@body false
        (catch ~c e# (re-find ~re (.getMessage e#)))))

(defmacro ok?
  "Returns true if body does not throw anything."
  [& body]
  `(do ~@body true))

(defmacro are
  "A series of assertions reusing a single expression.
