One more example of bleeding edge mutating Cypher features

miaoski · May 4, 2012 · 2db0e1d · 2db0e1d
1 parent f740ead
commit 2db0e1d
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/test/clojurewerkz/neocons/rest/test_mutating_cypher.clj b/test/clojurewerkz/neocons/rest/test_mutating_cypher.clj
@@ -58,3 +58,13 @@
     (is (missing? john))
     (is (exists? beth))
     (is (exists? gael))))
+
+
+;; this needs Neo4J 1.8 snapshot past 1.8-M01
+(deftest ^{:cypher true :edge-features true} test-creating-a-bunch-of-nodes-via-mutating-cypher
+  (let [urls     ["http://clojurewerkz.org/"
+                  "http://clojurewerkz.org/articles/about.html"
+                  "http://clojurewerkz.org/articles/community.html"]
+        response (cy/tquery "CREATE n = {xs} RETURN n", {:xs (map #(hash-map :url %) urls)})
+        returned-urls (map #(-> (get % "n") :data :url) response)]
+    (is (= urls returned-urls))))