Reject repeated stationary TILL destinations

1 files changed, 57 insertions, 0 deletions

diff --git a/tests/run.lua b/tests/run.lua
index fc89801..6d9289e 100644
--- a/tests/run.lua
+++ b/tests/run.lua
@@ -2655,6 +2655,63 @@ test("First TILL moves accept an adjacent stationary destination", function()
   same(1, backward_outcome.successful_steps)
 end)
 
+test("Later TILL moves skip an adjacent stationary destination", function()
+  local engine = destination_engine.new()
+  local forward_view = text_topology.new({ "abxb" }, "utf-8")
+  local forward_origin = domain.Position.new(1, 1)
+  local forward = motion_plan.build(
+    target_plan.build(target("b"), matching_policy()),
+    "t"
+  )
+  same(
+    forward_origin,
+    engine:calculate(
+      forward_view,
+      forward_origin,
+      forward,
+      1,
+      true
+    ).endpoint
+  )
+  same(
+    domain.Position.new(1, 3),
+    engine:calculate(
+      forward_view,
+      forward_origin,
+      forward,
+      1,
+      false
+    ).endpoint
+  )
+
+  local backward_view = text_topology.new({ "bxba" }, "utf-8")
+  local backward_origin = domain.Position.new(1, 4)
+  local backward = motion_plan.build(
+    target_plan.build(target("b"), matching_policy()),
+    "T"
+  )
+  same(
+    backward_origin,
+    engine:calculate(
+      backward_view,
+      backward_origin,
+      backward,
+      1,
+      true
+    ).endpoint
+  )
+  same(
+    domain.Position.new(1, 2),
+    engine:calculate(
+      backward_view,
+      backward_origin,
+      backward,
+      1,
+      false
+    ).endpoint
+  )
+end)
+
 for _, item in ipairs(tests) do
   local ok, failure = xpcall(item.body, debug.traceback)
   if not ok then