Inspect primary fold policy

1 files changed, 13 insertions, 0 deletions

diff --git a/tests/run.lua b/tests/run.lua
index 6752ae3..fe67fd3 100644
--- a/tests/run.lua
+++ b/tests/run.lua
@@ -7098,6 +7098,19 @@ test("Primary coordination reads normalized invocation state", function()
   same("q", invocation.macro_state.register)
 end)
 
+test("Primary coordination inspects fold policy during preflight", function()
+  local host = MemoryHost.new({
+    fold_open_policy = { "horizontal" },
+    closed_fold_levels = 1,
+  })
+  local coordinator = sequence_coordinator.new({ host = host })
+
+  same(domain.Descriptor.FIND_FORWARD, coordinator:primary("f"))
+  local operations = host:operations()
+  same("read_fold_state", operations[#operations].operation)
+  truthy(host:read_fold_state():opens("horizontal"))
+end)
+
 for _, item in ipairs(tests) do
   local ok, failure = xpcall(item.body, debug.traceback)
   if not ok then