Ensure that we are getting an actual response from the database.

mmcgrana · 461d1ade1fd2cd590a6189f597252e37a351ae76 · mmcgrana committed Jul 7, 2010 · Jul 7, 2010 · 461d1ad
1 parent bf9db9a
commit 461d1ade1fd2cd590a6189f597252e37a351ae76
Unified Split

Showing with 3 additions and 1 deletion.

+3 −1 test/fleetdb/server_test.clj
@@ -16,7 +16,9 @@
     (.flush writer)))
 
 (defn- client-read [client]
-  (str (.readLine #^BufferedReader (:reader client)) "\r\n"))
+  (let [line (.readLine #^BufferedReader (:reader client))]
+    (assert (not= "" line))
+    (str line "\r\n")))
 
 (defn- client-close [client]
   (.close #^BufferedReader (:reader client))