Make sure nodes/find-one handles empty result lists

michaelklishin · May 5, 2012 · 8d2ba86 · 8d2ba86
1 parent f6b4dd5
commit 8d2ba86
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/clojure/clojurewerkz/neocons/rest/nodes.clj b/src/clojure/clojurewerkz/neocons/rest/nodes.clj
@@ -204,7 +204,8 @@
   [^String idx key value]
   (let [{:keys [status body]} (rest/GET (index-lookup-location-for rest/*endpoint* idx key value))
         [node] (json/read-json body true)]
-    (fetch-from (:indexed node))))
+    (when node
+      (fetch-from (:indexed node)))))
 
 
 (defn query

diff --git a/test/clojurewerkz/neocons/rest/test_integration.clj b/test/clojurewerkz/neocons/rest/test_integration.clj
@@ -42,4 +42,5 @@
            (:id (nn/find-one "by-url" :url "http://clojurewerkz.org/"))))
     (is (= (:id community)
            (:id (nn/find-one "by-url" :url "http://clojurewerkz.org/articles/community.html"))))
+    (is (nil? (nn/find-one "by-url" :url "http://example99.com")))
     (nn/delete-index "by-url")))