                             " #bar"
                             "bar "
                             " bar"]]
-        (let [whitelist (tmp-whitelist "foo"
-                                       invalid-line
-                                       "qux")]
+        (let [whitelist (tmp-whitelist! "foo"
+                                        invalid-line
+                                        "qux")]
           (assert-autosign whitelist "foo")
           (logutils/with-log-output logs
             (assert-no-autosign whitelist invalid-line)


      (is (= (next-serial-number! serial-file) 3))
      (is (= "0004" (slurp serial-file))))))

(defn contains-duplicates? [coll]
  (not= (count coll) (count (distinct coll))))

; If the locking is deleted from `next-serial-number!`, this test will hang,
; which is not as nice as simply failing ...

(deftest initialize-master!-test
  (let [ssldir          (ks/temp-dir)
        master-settings (master-test-settings ssldir "master")
        serial          (tmp-serial-file!)
        inventory       (str (ks/temp-file))
        signeddir       (str (ks/temp-dir))]

