 
 (use-fixtures :each
   ts/redirect-logging-fixture
-  ts/reset-debug-log-fixture)
+  ts/reset-debug-log-fixture
+  (fn jvm-death-rattle [f]
+    (with-redefs [main/really-die (fn [& args]
+                                    ;; tattle if someone tries to kill the JVM
+                                    (println "SOMEBODY TRIED TO KILL THE JVM!")
+                                    :dontdie)]
+      (f))))
 
 (s/deftest main
   ;; Change root bindings for these Vars, affects any execution no

                          "test/check-existing-metadata.bash"))]
                ;; 0 exit code means the second script got the
                ;; metadata- the check is in the bash script
                (println (environ/env :build-metadata))
                (is (= 0 (:exit-code res-periodic))
                    (str "the metadata was incorrect in the environment\n"
                         "the test is in check-existing-metadata.bash")))))))

              (str "the metadata should be in the environment\n"
                   "the test is in check-metadata.bash"))
          (testing "existing BUILD_METADATA environment is respected"
            (with-redefs [environ/env (assoc environ/env
                                             :build-metadata
                                             "existing;metadata")]
              (let [[opts-periodic res-periodic]
                    (run (conj
                          ["-c" "test/config/main.yml"
