From a28f23955ea6d24048088b392ef59b2fcbd46075 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 26 Aug 2011 19:58:07 -0700
Subject: [PATCH] path-finding: add test for abeaumont's fix.

---
 extra/path-finding/path-finding-tests.factor | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/extra/path-finding/path-finding-tests.factor b/extra/path-finding/path-finding-tests.factor
index 0e9b5289b1..6c20104fe1 100644
--- a/extra/path-finding/path-finding-tests.factor
+++ b/extra/path-finding/path-finding-tests.factor
@@ -138,3 +138,13 @@ MEMO: costs ( -- costs )
 
 ! No path from D to B -- all nodes reachable from D must have been examined
 [ 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
+