Good point! I guess something like:
```clojure
(let [errors (when test-result (apply + ((juxt :fail :error) test-result)))
      exit-code (cond (not test-result) -1
                      (> errors 128) -2
                      :else errors)])
```