projects
/
cl-graph.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove uses of anaphora
[cl-graph.git]
/
unit-tests
/
test-graph.lisp
diff --git
a/unit-tests/test-graph.lisp
b/unit-tests/test-graph.lisp
index
2cd3d82
..
3e36301
100644
(file)
--- 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)))
#|
(let ((g (make-container 'graph-container)))
@@
-12,7
+12,7
@@
(deftestsuite cl-graph-test () ())
(deftestsuite cl-graph-test () ())
-(deftestsuite test-test-vertex () ())
+(deftestsuite test-test-vertex (cl-graph-test) ())
(addtest (test-test-vertex)
test-1
(addtest (test-test-vertex)
test-1
@@
-25,7
+25,7
@@
(ensure-same (size g) 2)))
(addtest (test-test-vertex)
(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 #'=)))
(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))
(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)))
(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)))
(h j)) do
(add-edge-between-vertexes g src dst :edge-type :directed)))
-;;; ---------------------------------------------------------------------------
-
#|
a - b - e
#|
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)))
(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
(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)))
(ensure-same (reverse result)
'(a b c d e f g h i j) :test #'equal)))
+|#
;;; ---------------------------------------------------------------------------
;;; test-replace-vertex
;;; ---------------------------------------------------------------------------
;;; test-replace-vertex