From a49e9d5564854cf12c364c9ac70280889d64eb63 Mon Sep 17 00:00:00 2001
From: Ray Miller <ray@1729.org.uk>
Date: Thu, 19 Jun 2014 19:36:05 +0100
Subject: [PATCH] Bugfix integration test.

---
 .../titanium/integration_test.clj             | 58 +++++++++----------
 1 file changed, 29 insertions(+), 29 deletions(-)

diff --git a/test/clojurewerkz/titanium/integration_test.clj b/test/clojurewerkz/titanium/integration_test.clj
index 98ffd32..080f7bf 100644
--- a/test/clojurewerkz/titanium/integration_test.clj
+++ b/test/clojurewerkz/titanium/integration_test.clj
@@ -12,35 +12,35 @@
 ;; The Graph of the Gods example from the Titan wiki
 (deftest test-integration-example1
   (tg/with-transaction [tx *graph*]
-    (let [saturn   (tv/create! {:name "Saturn"   :type "titan"})
-          jupiter  (tv/create! {:name "Jupiter"  :type "god"})
-          hercules (tv/create! {:name "Hercules" :type "demigod"})
-          alcmene  (tv/create! {:name "Alcmene"  :type "human"})
-          neptune  (tv/create! {:name "Neptune"  :type "god"})
-          pluto    (tv/create! {:name "Pluto"    :type "god"})
-          sea      (tv/create! {:name "Sea"      :type "location"})
-          sky      (tv/create! {:name "Sky"      :type "location"})
-          tartarus (tv/create! {:name "Tartarus" :type "location"})
-          nemean   (tv/create! {:name "Nemean"   :type "monster"})
-          hydra    (tv/create! {:name "Hydra"    :type "monster"})
-          cerberus (tv/create! {:name "Cerberus" :type "monster"})]
-      (ted/connect! neptune :lives sea)
-      (ted/connect! jupiter :lives sky)
-      (ted/connect! pluto :lives tartarus)
-      (ted/connect! jupiter :father saturn)
-      (ted/connect! hercules :father jupiter)
-      (ted/connect! hercules :mother alcmene)
-      (ted/connect! jupiter :brother pluto)
-      (ted/connect! pluto :brother jupiter)
-      (ted/connect! neptune :brother pluto)
-      (ted/connect! pluto :brother neptune)
-      (ted/connect! jupiter :brother neptune)
-      (ted/connect! neptune :brother jupiter)
-      (ted/connect! cerberus :lives tartarus)
-      (ted/connect! pluto :pet cerberus)
-      (ted/connect! hercules :battled nemean   {:times 1})
-      (ted/connect! hercules :battled hydra    {:times 2})
-      (ted/connect! hercules :battled cerberus {:times 12})
+    (let [saturn   (tv/create! tx {:name "Saturn"   :type "titan"})
+          jupiter  (tv/create! tx {:name "Jupiter"  :type "god"})
+          hercules (tv/create! tx {:name "Hercules" :type "demigod"})
+          alcmene  (tv/create! tx {:name "Alcmene"  :type "human"})
+          neptune  (tv/create! tx {:name "Neptune"  :type "god"})
+          pluto    (tv/create! tx {:name "Pluto"    :type "god"})
+          sea      (tv/create! tx {:name "Sea"      :type "location"})
+          sky      (tv/create! tx {:name "Sky"      :type "location"})
+          tartarus (tv/create! tx {:name "Tartarus" :type "location"})
+          nemean   (tv/create! tx {:name "Nemean"   :type "monster"})
+          hydra    (tv/create! tx {:name "Hydra"    :type "monster"})
+          cerberus (tv/create! tx {:name "Cerberus" :type "monster"})]
+      (ted/connect! tx neptune :lives sea)
+      (ted/connect! tx jupiter :lives sky)
+      (ted/connect! tx pluto :lives tartarus)
+      (ted/connect! tx jupiter :father saturn)
+      (ted/connect! tx hercules :father jupiter)
+      (ted/connect! tx hercules :mother alcmene)
+      (ted/connect! tx jupiter :brother pluto)
+      (ted/connect! tx pluto :brother jupiter)
+      (ted/connect! tx neptune :brother pluto)
+      (ted/connect! tx pluto :brother neptune)
+      (ted/connect! tx jupiter :brother neptune)
+      (ted/connect! tx neptune :brother jupiter)
+      (ted/connect! tx cerberus :lives tartarus)
+      (ted/connect! tx pluto :pet cerberus)
+      (ted/connect! tx hercules :battled nemean   {:times 1})
+      (ted/connect! tx hercules :battled hydra    {:times 2})
+      (ted/connect! tx hercules :battled cerberus {:times 12})
       (let [r1 (g/query saturn
                         (g/<-- [:father])
                         (g/<-- [:father])