scolobb/typed-graph
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix the tests, once again.

Browse source
This commit is contained in:
Sergiu Ivanov 2021-05-24 21:15:18 +02:00
parent d51b24a8c4
commit f88705ea81
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
graph.rkt
View file

@ -245,7 +245,7 @@
(test-case "4 Basic Graph Functions"
;; 4.1 Breadth-first Search
(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))))
(test-case "10 Graphviz"