yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge branch 'no-inst'

Browse source
This commit is contained in:
Tim McCormack 2014-09-23 12:20:00 -04:00
commit 810deb59bc
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/leiningen/test/keys.clj
View file

@ -1,12 +1,14 @@
(ns leiningen.test.keys
(:require [clojure.test :refer :all]))
(def df (java.text.SimpleDateFormat. "yyyy-MM-dd"))
(deftest technomancy-gpg-key
(let [month-before-key-expiry #inst "2017-05-14"]
(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!")))
(deftest clojars-ssl-cert
(let [month-before-cert-expiry #inst "2016-07-12"]
(let [month-before-cert-expiry (.parse df "2016-07-12")]
(is (< (System/currentTimeMillis) (.getTime month-before-cert-expiry))
"If this fails, yell at _ato to get a new SSL cert.")))