From ab70dbeeef21e5e2ef23066762ab4762fd15bd77 Mon Sep 17 00:00:00 2001
From: Phil Hagelberg <technomancy@gmail.com>
Date: Wed, 2 Jun 2010 15:26:38 -0700
Subject: [PATCH] Also don't try to read the test results doc if it's empty.

---
 src/leiningen/test.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/leiningen/test.clj b/src/leiningen/test.clj
index b11a93f7..9beb9f1d 100644
--- a/src/leiningen/test.clj
+++ b/src/leiningen/test.clj
@@ -58,7 +58,7 @@ tests. If none are given, runs them all."
                      (with-version-guard
                        (form-for-testing-namespaces namespaces
                                                     (.getAbsolutePath result))))
-    (if (.exists result)
+    (if (and (.exists result) (pos? (.length result)))
       (let [summary (read-string (slurp (.getAbsolutePath result)))
             success? (zero? (+ (:error summary) (:fail summary)))]
         (.delete result)