   (testing "Exceptions during testing are caught. They're also shrunk as long
            as they continue to throw."
            (is (= [exception [0]]
-                  (let [result (sc/quick-check 100 exception-thrower [gen/int])]
+                  (let [result (sc/quick-check 1000 exception-thrower [gen/int])]
                     [(:result result) (get-in result [:shrunk :smallest])])))))
 
 ;; Count and concat work as expected

(deftest reverse-equal?
  (testing "For all lists L, reverse(reverse(L)) == L"
           (is (let [v (gen/vector gen/int)]
                 (:result (sc/quick-check 100 reverse-equal?-helper [v]))))))

;; failing reverse
;; ---------------------------------------------------------------------------

  (testing "For all lists L, L == reverse(L). Not true"
           (is (false?
                 (let [v (gen/vector gen/int)]
                   (:result (sc/quick-check 1000 #(= (reverse %) %) [v])))))))

;; failing element remove
;; ---------------------------------------------------------------------------
