 
 (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)))))
+    (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"

(defspec levenshtein-distance-is-at-least-difference-between-string-lenghts 100
  (prop/for-all [s1 (gen/not-empty gen/string)
                 s2 (gen/not-empty gen/string)]
    (is (>= (str/distance s1 s2)
            (- (max (.length s1) (.length s2))
               (min (.length s1) (.length s2)))))))

(defspec levenshtein-distance-is-at-most-length-of-longest-string 100
  (prop/for-all [s1 (gen/not-empty gen/string)
                 s2 (gen/not-empty gen/string)]
    (is (<= (str/distance s1 s2)
            (max (.length s1) (.length s2))))))

(defspec levenshtein-distance-is-zero-for-equal-strings 100
  (prop/for-all [s (gen/not-empty gen/string)]
    (is (= 0 (str/distance s s)))))

(defspec levenshtein-distance-is-zero-means-equal-strings 100
  (prop/for-all [s1 (gen/not-empty gen/string)
                 s2 (gen/not-empty gen/string)]
    (if (= (str/distance s1 s2) 0)
      (is (= s1 s2))
      true)))

(defspec levenshtein-triangle 100

  (prop/for-all [s (gen/not-empty gen/string-alphanumeric)
                 ws1 (gen/not-empty whitespace)
                 ws2 (gen/not-empty whitespace)]
    (= (+ (.length s) 2)
       (.length (str/collapse-whitespace (str ws1 s ws2))))))

(defexamples collapse-whitespace-test
  (str/collapse-whitespace "foo
