(deftestsuite cl-graph-test () ())
-(deftestsuite test-test-vertex () ())
+(deftestsuite test-test-vertex (cl-graph-test) ())
(addtest (test-test-vertex)
test-1
(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)))
(h j)) do
(add-edge-between-vertexes g src dst :edge-type :directed)))
-;;; ---------------------------------------------------------------------------
-
#|
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
(ensure-same (reverse result)
'(a b c d e f g h i j) :test #'equal)))
+|#
;;; ---------------------------------------------------------------------------
;;; test-replace-vertex