Compare strings ignoring differences in whitespace - useful in unit tests!

string-equal-ignore-whitespace.clj

(require '[clojure.string :as s])

(defn string-equal-ignore-whitespace?
  "if `a` and `b` are both strings, ignore whitespace changes when comparing them;
  othewise just check for ordinary equality. Return true if `a` and `b` are identical
  modulo whitespace changes. Written because I didn't want unit tests to fail just 
  because of emitted whitespace changes"
  [a b]
  (if
  (and
   (string? a)
   (string? b))
   (let
     [pattern #"[\s]+"
      aa (s/replace a pattern " ")
      bb (s/replace b pattern " ")]
     (= aa bb))
    (= a b)))