added dijkstra-backpointers to end-to-end tests.

diff --git a/examples/expected/dijkstra-backpointers.py.out b/examples/expected/dijkstra-backpointers.py.out
new file mode 100644 (file)
index 0000000..1781636
--- /dev/null
+++ b/examples/expected/dijkstra-backpointers.py.out
@@ -0,0 +1,41 @@
+
+Solution
+========
+end = "d".
+goal = 2.
+optimalpath = ["a", "e", "d"].
+start = "a".
+
+$key/1
+======
+$key(goal)      = end.
+$key(path("a")) = start.
+$key(path("b")) = "a".
+$key(path("c")) = "b".
+$key(path("d")) = "e".
+$key(path("e")) = "a".
+
+bestpath/1
+==========
+bestpath("a") = ["a"].
+bestpath("b") = ["b", "a"].
+bestpath("c") = ["c", "b", "a"].
+bestpath("d") = ["d", "e", "a"].
+bestpath("e") = ["e", "a"].
+
+edge/2
+======
+edge("a","b") = 1.
+edge("a","e") = 1.
+edge("b","c") = 1.
+edge("c","d") = 1.
+edge("e","d") = 1.
+
+path/1
+======
+path("a") = 0.
+path("b") = 1.
+path("c") = 2.
+path("d") = 2.
+path("e") = 1.
+

diff --git a/src/Dyna/Backend/Python/Selftest.hs b/src/Dyna/Backend/Python/Selftest.hs
index 53e1405187e753a7ec35f6957b6380c52fce6f84..45664a861308ccaae6ae4774ed0017550518f6db 100644 (file)
--- a/src/Dyna/Backend/Python/Selftest.hs
+++ b/src/Dyna/Backend/Python/Selftest.hs
@@ -77,7 +77,8 @@ mkExample name =
 -- will be broken. ;)
 test_End_To_End :: [Test]
 test_End_To_End = map mkExample
-  [ "simple", "equalities", "fib-limit", "dijkstra", "papa2", "matrixops", "geom", "lists" ]
+  [ "simple", "equalities", "fib-limit", "dijkstra", "papa2", "matrixops"
+  , "geom", "lists", "dijkstra-backpointers" ]
 
 test_REPL :: [Test]
 test_REPL = map (\n -> testProgramRuns n ("./test/repl/"++n) [])