 ;;; 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"))))
+(def a1 pos?)
 
 ;; Contexts
 (def c1 (Context nil nil nil))

           (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]))


(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
