Redraw interactive direct previews

1 files changed, 11 insertions, 0 deletions

diff --git a/tests/run.lua b/tests/run.lua
index 80294bb..8bc6ba0 100644
--- a/tests/run.lua
+++ b/tests/run.lua
@@ -5001,6 +5001,17 @@ test("Interactive acquisition creates enabled direct previews", function()
   same(1, #marker.positions)
   same(domain.Position.new(1, 4), marker.positions[1])
   same(marker.identity, state:temporary_overlay_identities()[1])
+  list_same({ "screen" }, host:redraws())
+  local create_index
+  local redraw_index
+  for index, operation in ipairs(host:operations()) do
+    if operation.operation == "create_highlight" then
+      create_index = index
+    elseif operation.operation == "redraw" then
+      redraw_index = index
+    end
+  end
+  truthy(redraw_index > create_index)
 
   fresh_sequence_state()
   local macro_host = MemoryHost.new({