more windows test debug

Author: puredanger

src/main/clojure/clojure/tools/build/tasks/uber.clj

@@ -77,9 +77,13 @@
         new-content (stream->string in)
         new-content-lower (str/lower-case new-content)
         seen (or (get-in state [:append-dedupe path]) #{existing-lower})]
-    ;(println "\nconflict-append-dedupe, seen=" seen)
-    ;(println "new content:" new-content)
-    ;(println "contains:" (contains? seen new-content-lower))
+    (println "\nconflict-append-dedupe" path)
+    (println "state:" state)
+    (println "seen:" seen)
+    (println "existing:" existing-lower)
+    (println "new content:" new-content-lower)
+    (println "contains:" (contains? seen new-content-lower))
+    (println)
     (if (contains? seen new-content-lower)
       ;; already seen
       {:state (assoc-in state [:append-dedupe path] seen)}

src/test/clojure/clojure/tools/build/tasks/test_uber.clj

@@ -196,10 +196,10 @@
                 (slurp (project-path "j2/append.txt")))
            (slurp (project-path "target/unzip/append.txt"))))
 
-    (println "j1: " (slurp (project-path "j1/META-INF/LICENSE.txt")))
-    (println "j2: " (slurp (project-path "j2/META-INF/LICENSE.txt")))
-    (println "j3: " (slurp (project-path "j3/META-INF/LICENSE.txt")))
-    (println "unzip: " (slurp (project-path "target/unzip/META-INF/LICENSE.txt")))
+    ;(println "j1: " (slurp (project-path "j1/META-INF/LICENSE.txt")))
+    ;(println "j2: " (slurp (project-path "j2/META-INF/LICENSE.txt")))
+    ;(println "j3: " (slurp (project-path "j3/META-INF/LICENSE.txt")))
+    ;(println "unzip: " (slurp (project-path "target/unzip/META-INF/LICENSE.txt")))
 
     ;; LICENSE files append but no dupes - include j1 and j2, but not j3 (dupe of j1)
     (is (= (str (slurp (project-path "j1/META-INF/LICENSE.txt")) (System/lineSeparator)