From 64273bb2bd2c48860e33dc1945c49eb867a32d19 Mon Sep 17 00:00:00 2001 From: Gary King Date: Sat, 6 Sep 2008 21:02:21 -0400 Subject: [PATCH] formatting darcs-hash:20080907010221-3cc5d-408e62c84a9b368089ec1d8556ca8e216b2a72f4.gz --- unit-tests/test-graph.lisp | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/unit-tests/test-graph.lisp b/unit-tests/test-graph.lisp index 3e36301..6e95fe0 100644 --- a/unit-tests/test-graph.lisp +++ b/unit-tests/test-graph.lisp @@ -40,8 +40,10 @@ ;;; --------------------------------------------------------------------------- (deftestsuite test-basic-graph-properties (cl-graph-test) - ((graph-undirected (make-container 'graph-container :default-edge-type :undirected)) - (graph-directed (make-container 'graph-container :default-edge-type :directed))) + ((graph-undirected (make-container 'graph-container + :default-edge-type :undirected)) + (graph-directed (make-container 'graph-container + :default-edge-type :directed))) :setup ((loop for v in '(a b c d e) do (add-vertex graph-undirected v) (add-vertex graph-directed v)) @@ -49,6 +51,15 @@ (add-edge-between-vertexes graph-undirected v1 v2) (add-edge-between-vertexes graph-directed v1 v2)))) +#+(or) +(let ((g (make-container 'graph-container + :default-edge-type :directed))) + (loop for v in '(a b c d e) do + (add-vertex g v)) + (loop for (v1 . v2) in '((a . b) (a . c) (b . d) (c . e)) do + (add-edge-between-vertexes g v1 v2)) + g) + ;;; --------------------------------------------------------------------------- (addtest (test-basic-graph-properties) -- 1.7.10.4