Add antq.util.leiningen #109

src/antq/util/leiningen.clj

@@ -0,0 +1,26 @@
+(ns antq.util.leiningen
+  (:require
+   [clojure.string :as str]))
+
+(defn- getenv
+  [x]
+  (System/getenv x))
+
+(defn- env-name
+  "cf. https://github.com/technomancy/leiningen/blob/master/doc/DEPLOY.md#credentials-in-the-environment"
+  [kw]
+  (cond
+    (and (qualified-keyword? kw)
+         (= "env" (namespace kw)))
+    (str/upper-case (name kw))
+
+    (= :env kw)
+    "LEIN_PASSWORD"
+
+    :else
+    nil))
+
+(defn env
+  [kw]
+  (some-> (env-name kw)
+          (getenv)))

test/antq/util/leiningen_test.clj

@@ -0,0 +1,12 @@
+(ns antq.util.leiningen-test
+  (:require
+   [antq.util.leiningen :as sut]
+   [clojure.test :as t]))
+
+(t/deftest env-test
+  (with-redefs [sut/getenv identity]
+    (t/is (= "LEIN_PASSWORD" (sut/env :env)))
+    (t/is (= "FOO" (sut/env :env/foo)))
+    (t/is (= "FOO_BAR" (sut/env :env/foo_bar)))
+    (t/is (= nil (sut/env :invalid/foo_bar)))
+    (t/is (= nil (sut/env "string")))))