Accept initial stationary TILL destinations

1 files changed, 37 insertions, 0 deletions

diff --git a/tests/run.lua b/tests/run.lua
index 1f9b9da..fc89801 100644
--- a/tests/run.lua
+++ b/tests/run.lua
@@ -2618,6 +2618,43 @@ test("FIND requires destinations on the strict motion side", function()
   )
 end)
 
+test("First TILL moves accept an adjacent stationary destination", function()
+  local engine = destination_engine.new()
+  local forward_view = text_topology.new({ "ab" }, "utf-8")
+  local forward = motion_plan.build(
+    target_plan.build(target("b"), matching_policy()),
+    "t"
+  )
+  local forward_origin = domain.Position.new(1, 1)
+  local forward_outcome = engine:calculate(
+    forward_view,
+    forward_origin,
+    forward,
+    1,
+    true
+  )
+  same(domain.SearchStatus.COMPLETE, forward_outcome.status)
+  same(forward_origin, forward_outcome.endpoint)
+  same(1, forward_outcome.successful_steps)
+
+  local backward_view = text_topology.new({ "ba" }, "utf-8")
+  local backward = motion_plan.build(
+    target_plan.build(target("b"), matching_policy()),
+    "T"
+  )
+  local backward_origin = domain.Position.new(1, 2)
+  local backward_outcome = engine:calculate(
+    backward_view,
+    backward_origin,
+    backward,
+    1,
+    true
+  )
+  same(domain.SearchStatus.COMPLETE, backward_outcome.status)
+  same(backward_origin, backward_outcome.endpoint)
+  same(1, backward_outcome.successful_steps)
+end)
+
 for _, item in ipairs(tests) do
   local ok, failure = xpcall(item.body, debug.traceback)
   if not ok then