 (assert (= [c4 c5] (:contexts t11)))
 (assert (= [t9 t10] (:children t11)))
 
-;; Assertions can be compiled on-the-fly
-(def t12 (TestCase [c2] [(Assertion '[a] '(= a 2))
-                         (Assertion '[a] '(> a 1))]))
-(assert (success? (t12)))
+;; 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))
 
-;; 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)))
+;;     (deftest failure "This test always fails." [] (= 1 0))
 
-    (success? (random-addition))
+;;     (defsuite all-tests [] addition random-addition failure)
 
-    (deftest failure "This test always fails." [] (= 1 0))
-
-    (defsuite all-tests [] addition random-addition failure)
-
-    (success? (all-tests))
-    ;;=> false
+;;     (success? (all-tests))
+;;     ;;=> false

           (type (first (:children (run-test-case t2))))))

;; TestCase with multiple Contexts
(def a2 (assertion [x y] (< x y)))

(def t3 (TestCase [c2 c4] [a2 a2]))


    (dorun (result-seq results))
    (assert (= @*log* [:c6-open :a3 :a4 :a3 :a4]))))


;; defcontext form
(defcontext c7 "Context c7" [s5 c5]
