steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

path-finding: add test for abeaumont's fix.

db4
John Benediktsson 2011-08-26 19:58:07 -07:00
parent 12d5d61179
commit 78998f6971
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/path-finding/path-finding-tests.factor
View File

@ -138,3 +138,13 @@ MEMO: costs ( -- costs )
! No path from D to B -- all nodes reachable from D must have been examined ! No path from D to B -- all nodes reachable from D must have been examined
[ f "CDEF" ] [ "DB" test3 ] unit-test [ f "CDEF" ] [ "DB" test3 ] unit-test
[ { 1 3 } ] [
1 3 H{
{ 1 H{ { 2 0 } { 3 0 } } }
{ 2 H{ { 3 0 } { 1 0 } { 4 0 } } }
{ 3 H{ { 4 0 } } }
{ 4 H{ } }
} <dijkstra> find-path
] unit-test