Permalink
Browse files

Path finding it "works" with floyd warshall probably

  • Loading branch information...
1 parent 7fb02bd commit 748edbcf7d698218e383b02a3c25cd317f75b34a @holdenk committed Feb 23, 2013
Showing with 6 additions and 0 deletions.
  1. +6 −0 test/graph-test.scm
View
@@ -48,5 +48,11 @@
(alist->digraph
'((a d 1) (d c 100)))
edge-label)))
+(test '(a d c)
+ (floyd-warshall-extract-path 'a 'c
+ (floyd-warshall-algorithm
+ (alist->digraph
+ '((a d 1) (d c 100)))
+ edge-label)))
(test-end "flyod-warshall")
(test-exit)

0 comments on commit 748edbc

Please sign in to comment.