   (testing "If two runs are started with the same seed, they should
            return the same results."
            (is (:result
-                 (sc/quick-check 100 equiv-runs [gen/int])))))
+                 (sc/quick-check 1000 equiv-runs [gen/int])))))


(defn unique-test
  [seed]
  (sc/quick-check 100 vector-elements-are-unique
                  [(gen/vector gen/int)] :seed seed))

(defn equiv-runs

  (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 1000 exception-thrower [gen/int])]
                    [(:result result) (get-in result [:shrunk :smallest])])))))

;; Count and concat work as expected
