fix parenthesis in test
authorGary King <gwking@metabang.com>
Fri, 12 Sep 2008 02:07:04 +0000 (22:07 -0400)
committerGary King <gwking@metabang.com>
Fri, 12 Sep 2008 02:07:04 +0000 (22:07 -0400)
darcs-hash:20080912020704-3cc5d-9c98c6c7062fa6ef5ca95a0cd8048e4ccd8e4452.gz

unit-tests/test-api.lisp

index e1d4206..3814935 100644 (file)
@@ -66,6 +66,6 @@
         (parent-vertexes (parent-vertexes b)))
     (ensure-same child-vertexes (list (find-vertex g 'c)
                                      (find-vertex g 'i))
-                :test 'set-equal))
+                :test 'set-equal)
     (ensure-same parent-vertexes (list (find-vertex g 'a))
-                :test 'set-equal))
+                :test 'set-equal)))