X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=unit-tests%2Ftest-graph.lisp;h=3e36301cce47c6fcf17650f3bf6acd92adcce1d3;hb=a3062aaed0bb42f1bbbc7cf6d1a2cf14c277a712;hp=2cd3d8221186f3965e64570013a0d7acee41076b;hpb=b9b77eaf8b04ffe94412d5ff49cacae2d19ebb65;p=cl-graph.git

diff --git a/unit-tests/test-graph.lisp b/unit-tests/test-graph.lisp
index 2cd3d82..3e36301 100644
--- a/unit-tests/test-graph.lisp
+++ b/unit-tests/test-graph.lisp
@@ -1,4 +1,4 @@
-(in-package cl-graph-test)
+(in-package #:cl-graph-test)
 
 #|
 (let ((g (make-container 'graph-container))) 
@@ -12,7 +12,7 @@
 
 (deftestsuite cl-graph-test () ())
 
-(deftestsuite test-test-vertex () ())
+(deftestsuite test-test-vertex (cl-graph-test) ())
 
 (addtest (test-test-vertex)
   test-1
@@ -25,7 +25,7 @@
     (ensure-same (size g) 2)))
 
 (addtest (test-test-vertex)
-  test-1
+  test-2
   (bind ((x (float 2.1d0))
          (y (float 2.1d0))
          (g (make-container 'graph-container :vertex-test #'=)))
@@ -68,7 +68,7 @@
   (delete-edge-between-vertexes graph-directed 'a 'b)
   (ensure-same (size (graph-edges graph-directed)) 3))
 
-;;; ---------------------------------------------------------------------------
+#|
 
 (deftestsuite cl-graph-test-traversal (cl-graph-test)
   ((g (make-container 'graph-container)))
@@ -77,8 +77,6 @@
                                   (h j)) do
                (add-edge-between-vertexes g src dst :edge-type :directed)))
 
-;;; ---------------------------------------------------------------------------
-
 #|
 
 a - b - e
@@ -97,8 +95,6 @@ a - b - e
     (ensure-same (reverse result) 
                  '(e f b c g i j h d a) :test #'equal)))
 
-;;; ---------------------------------------------------------------------------
-
 (addtest (cl-graph-test-traversal)
   (let ((result nil))
     (traverse-elements
@@ -107,6 +103,7 @@ a - b - e
     (ensure-same (reverse result) 
                  '(a b c d e f g h i j) :test #'equal)))
     
+|#
     
 ;;; ---------------------------------------------------------------------------
 ;;; test-replace-vertex