summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/run.lua57
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