more windows test debug

Author: puredanger

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

@@ -77,9 +77,9 @@
         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, seen=" seen)
+    ;(println "new content:" new-content)
+    ;(println "contains:" (contains? seen new-content-lower))
     (if (contains? seen new-content-lower)
       ;; already seen
       {:state (assoc-in state [:append-dedupe path] seen)}
@@ -112,6 +112,8 @@
   [^FileTime last-modified-time buffer out-dir path write-spec]
   (let [{:keys [string stream append] :or {append false}} write-spec
         out-file (jio/file out-dir path)]
+    (when (and append string)
+      (prn "APPEND" path string))
     (if string
       (spit out-file string :append ^boolean append)
       (copy-stream! ^InputStream stream (BufferedOutputStream. (FileOutputStream. out-file ^boolean append)) buffer))

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

@@ -207,6 +207,7 @@
            (slurp (project-path "target/unzip/META-INF/LICENSE.txt"))))))
 
 (comment
+  (run-tests)
   (test-conflicts-but-files)
   )