 
 (defspec title-case-starts-with-upper 100
   (prop/for-all [s (gen/not-empty gen/string)]
-    (is (upper-if-upper-exists? (first (str/title-case s))))))
+    (upper-if-upper-exists? (first (str/title-case s)))))
 
 (defspec title-case-rest-is-all-lower-case 100
   (prop/for-all [s (gen/not-empty gen/string)]
-    (is (reduce (fn [acc c] (and acc (lower-if-lower-exists? c))) true
-                (rest (str/title-case s))))))
+    (reduce (fn [acc c] (and acc (lower-if-lower-exists? c))) true
+            (rest (str/title-case s)))))
 
 (defspec upper-case?-returns-true-on-all-upper 100
   (prop/for-all [s (gen/not-empty gen/string)]
-    (is (str/upper-case? (str/upper-case s)))))
+    (str/upper-case? (str/upper-case s))))
 
 (defspec upper-case?-returns-nil-on-all-lower 100
   (prop/for-all [s (gen/such-that not-empty
                                   (gen/fmap str/join (gen/vector gen/char-alpha)))]
-    (is (not (str/upper-case? (str/lower-case s))))))
+    (not (str/upper-case? (str/lower-case s)))))
 
 (deftest upper-case-test
   (str/upper-case? "UPPER") "UPPER"


(defspec lisp-case-is-all-lower 100
  (prop/for-all [s (gen/not-empty gen/string)]
    (is (reduce (fn [acc c] (and acc (lower-if-lower-exists? c))) true
                (str/lisp-case s)))))

(defexamples lisp-case-test
  (str/lisp-case "PascalCase") "pascal-case"

  (prop/for-all [before (gen/not-empty gen/string)
                 needle (gen/not-empty gen/string)
                 after (gen/not-empty gen/string)]
    (str/contains-any? (str before needle after) [needle])))

(defspec contains-any-can-ignore-case 100
  (prop/for-all [before (gen/not-empty gen/string)
