Fix the tests, once again.
This commit is contained in:
parent
d51b24a8c4
commit
f88705ea81
|
@ -245,7 +245,7 @@
|
||||||
(test-case "4 Basic Graph Functions"
|
(test-case "4 Basic Graph Functions"
|
||||||
;; 4.1 Breadth-first Search
|
;; 4.1 Breadth-first Search
|
||||||
(define-values (bfs-lens bfs-tree) (bfs (directed-graph '((a b) (b c))) 'a))
|
(define-values (bfs-lens bfs-tree) (bfs (directed-graph '((a b) (b c))) 'a))
|
||||||
(check-equal? (hash->ordered-list bfs-lens) '((c . 2) (a . 0) (b . 1)))
|
(check-equal? (hash->ordered-list bfs-lens) '((a . 0) (b . 1) (c . 2)))
|
||||||
(check-equal? (hash->ordered-list bfs-tree) '((a . #f) (b . a) (c . b))))
|
(check-equal? (hash->ordered-list bfs-tree) '((a . #f) (b . a) (c . b))))
|
||||||
|
|
||||||
(test-case "10 Graphviz"
|
(test-case "10 Graphviz"
|
||||||
|
|
Loading…
Reference in New Issue