[1] Updated.

diff --git a/test/graph.clj b/test/graph.clj
index 387217e..28163e8 100755 (executable)
--- a/test/graph.clj
+++ b/test/graph.clj
@@ -446,7 +446,9 @@
                           [[e-7]         [out-8 out z] []   ]
                           [[e-1 e-3]     [?x1 and2]    [?x2]]
                           [[?x2 e-5]     [?a8 and2]    [e-7]]
-                          ]))))
+                          ])))))
+
+(deftest test-replace
   (let [gr (struct gr/graph 7
                    '[[[]    [in-0 in a]   [e-1]]
                      [[e-1] [not1-2 not1] [e-3]]
@@ -461,8 +463,7 @@
               (um/unify (:conns aft-gr)
                         '[[[]    [in-0 in a]   [?x1]]
                           [[?x1] [out-6 out z] []   ]
-                          ]))))
-)
+                          ])))))
 
 (run-tests)