CLJS-3335: test-and-or-code-gen-pass fails on Windows

Author: mfikes

src/test/clojure/cljs/analyzer_pass_tests.clj

@@ -14,6 +14,7 @@
             [cljs.compiler :as comp]
             [cljs.compiler-tests :as comp-tests :refer [compile-form-seq emit]]
             [cljs.env :as env]
+            [cljs.test-util :refer [equiv-modulo-newlines]]
             [clojure.string :as string]
             [clojure.test :as test :refer [deftest is testing]]))
 
@@ -77,7 +78,7 @@
                      `(let [~local true]
                         (and true (or ~local false))))
           code     (with-out-str (emit ast))]
-      (is (= code
+      (is (equiv-modulo-newlines code
             (string/replace
               "(function (){var $SYM = true;\nreturn ((true) && ((($SYM) || (false))));\n})()"
               "$SYM" (str local)))))))

src/test/clojure/cljs/test_util.clj

@@ -72,6 +72,12 @@
   (with-out-str
     (run! println lines)))
 
+(defn equiv-modulo-newlines
+  "Returns whether strings are equivalent, disregarding differences in
+  embedded system-dependent newlines."
+  [s & more]
+  (== 1 (count (group-by string/split-lines (list* s more)))))
+
 (defmethod clojure.test/assert-expr 'thrown-with-cause-msg? [msg form]
   ;; (is (thrown-with-cause-msg? c re expr))
   ;; Asserts that evaluating expr throws an exception of class c.