Getting false from .mkdirs doesn't mean the directory doesn't exist.

This is such a dumb API.

Also, my key expiring doesn't need to fail the suite any more.

leiningen-core/src/leiningen/core/utils.clj

@@ -66,8 +66,9 @@
 (defn mkdirs
   "Make a given directory and its parents, but throw an Exception on failure."
   [f] ; whyyyyy does .mkdirs fail silently ugh
-  (when-not (.mkdirs (io/file f))
-    (throw (Exception. (str "Couldn't create directories: " (io/file f))))))
+  (let [already-exists? (.exists (io/file f))]
+    (when-not (or (.mkdirs (io/file f)) already-exists?)
+      (throw (Exception. (str "Couldn't create directories: " (io/file f)))))))
 
 (defn relativize
   "Makes the filepath path relative to base. Assumes base is an ancestor to

src/leiningen/javac.clj

@@ -92,7 +92,7 @@
          ~(when main/*info*
             `(binding [*out* *err*]
                (println "Compiling" ~(count files) "source files to" ~compile-path)))
-         (utils/mkdirs (clojure.java.io/file ~compile-path))
+         (.mkdirs (clojure.java.io/file ~compile-path))
          (when-not (zero?
                     (.run compiler# nil nil nil
                           (into-array java.lang.String ~javac-opts)))

test/leiningen/test/keys.clj

@@ -3,7 +3,7 @@
 
 (def df (java.text.SimpleDateFormat. "yyyy-MM-dd"))
 
-(deftest technomancy-gpg-key
+#_(deftest technomancy-gpg-key
   (let [month-before-key-expiry (.parse df "2017-05-14")]
     (is (< (System/currentTimeMillis) (.getTime month-before-key-expiry))
         "If this fails, yell at technomancy to generate a new key!")))