     (dorun (result-seq results))
     (assert (= @*log* [:c6-open :a3 :a4 :a3 :a4]))))
 
-;; defassert form
-(defassert a5 "Assertion a5" [a b]
-  (comment "stuff")
-  (< a b))
-
-(assert (fn? a5))
-(assert (= 'a5 (:name (meta a5))))
-(assert (= *ns* (:ns (meta a5))))
-(assert (= "Assertion a5" (:doc (meta a5))))
-(assert (= :com.stuartsierra.lazytest/AssertionPassed (type (a5 1 2))))
-(assert (= :com.stuartsierra.lazytest/AssertionFailed (type (a5 2 1))))
-(assert (= :com.stuartsierra.lazytest/AssertionThrown (type (a5 "a" "b"))))
 
 ;; defcontext form
 (defcontext c7 "Context c7" [s5 c5]

;;; SELF-TESTS

;; Assertions
(def a1 (assertion [a] (pos? a)))

(assert (= :com.stuartsierra.lazytest/AssertionPassed (type (a1 1))))
(assert (= :com.stuartsierra.lazytest/AssertionFailed (type (a1 -1))))
(assert (= :com.stuartsierra.lazytest/AssertionThrown (type (a1 "string"))))

;; Contexts
(def c1 (Context nil nil nil))

(assert (= [c4 c5] (:contexts t11)))
(assert (= [t9 t10] (:children t11)))

;; README examples
;;     (defassert positive [x] (pos? x))
;;     (success? (positive 1))
;;     ;;=> true
;;     (success? (positive -1))
;;     ;;=> false
;;     (success? (positive "hello"))
;;     ;;=> false
;;     (deftest addition [a 1, b 2]
;;       (integer? a)
;;       (integer? b)
;;       (integer? (+ a b)))
;;     (success? (addition))
;;     ;;=> true
;;     (defcontext random-int []
;;       (rand-int Integer/MAX_VALUE))
;;     (deftest random-addition [a random-int, b random-int]
;;       (integer? (+ a b))
;;       (= (+ a b) (+ b a)))

;;     (success? (random-addition))

;;     (deftest failure "This test always fails." [] (= 1 0))

;;     (defsuite all-tests [] addition random-addition failure)

;;     (success? (all-tests))
;;     ;;=> false
