Feedback

metabase · May 23, 2024 · b548b04 · b548b04
1 parent 234b7d4
commit b548b04
Show file tree

Hide file tree

Showing 4 changed files with 28 additions and 4 deletions.
diff --git a/.clj-kondo/config.edn b/.clj-kondo/config.edn
@@ -16,7 +16,8 @@
 
   :refer
   {:level   :warning
-   :exclude [clojure.test]}
+   :exclude [clojure.test
+             macaw.test.util]}
 
   :docstring-leading-trailing-whitespace {:level :warning}
   :keyword-binding                       {:level :warning}

diff --git a/test/macaw/core_test.clj b/test/macaw/core_test.clj
@@ -2,8 +2,7 @@
   (:require
    [clojure.test :refer [deftest is testing]]
    [macaw.core :as m]
-   #_{:clj-kondo/ignore [:refer]}
-   [macaw.test-utils :refer [ws=]]
+   [macaw.test.util :refer [ws=]]
    [macaw.walk :as mw])
   (:import
    (net.sf.jsqlparser.schema Table)))

diff --git a/test/macaw/test_utils.clj → test/macaw/test/util.clj b/test/macaw/test_utils.clj → test/macaw/test/util.clj
@@ -1,4 +1,4 @@
-(ns macaw.test-utils
+(ns macaw.test.util
   (:require
    [clojure.string :as str]
    [clojure.test :refer :all]

diff --git a/test/macaw/test/util_test.clj b/test/macaw/test/util_test.clj
@@ -0,0 +1,24 @@
+(ns macaw.test.util-test
+  (:require
+   [clojure.string :as str]
+   [clojure.test :refer :all]
+   [macaw.test.util :refer [ws=]]))
+
+(deftest ^:parallel ws=-test
+  (testing "Code indentation is ignored"
+    (is (ws= "ABC
+                DEF
+              XXX"
+             (str/replace "ABC
+                             DEF
+                           GHI"
+                          "GHI" "XXX"))))
+
+  (testing "Comparison is still whitespace sensitive"
+    (is (not (ws= "A    B" "A B")))
+    (is (not (ws= "A
+                   B
+                   C"
+                  "A
+                    B
+                   C")))))