1 files changed, 16 insertions, 0 deletions
diff --git a/src/pardes.zig b/src/pardes.zig
index 872ea171..9bf1c5f4 100644
--- a/src/pardes.zig
+++ b/src/pardes.zig
@@ -1471,6 +1471,22 @@ test "a REPL bound for a language takes the exec made on a body in it; tags, Exe
     try std.testing.expect(!Sent.spawned);
     try std.testing.expect(file.msg_sent);
     try std.testing.expectEqualStrings("\u{2192} python-a", file.msg[0..file.msg_len]);
+    // A body's click written back to event is done as the click: sent. A
+    // line written to exec came back as F and runs as the command it was.
+    {
+        const th = @import("ninep/testing.zig");
+        const event = ctlfs.Node.of(file.serial, .event);
+        const h = th.call(p, .{ .tag = 1, .op = .open, .node = event }).reply.handle;
+        defer _ = th.call(p, .{ .tag = 2, .op = .release, .node = event, .handle = h });
+        // The 9P harness performs the effects: what it wrote is its answer's.
+        const sent = th.wr(p, event, "MX0 8\n");
+        try std.testing.expectEqualStrings("print(1)\r", sent.pty_buf[0..sent.pty_len]);
+        const ran = th.wr(p, event, "FX0 0 2 2 ls\n");
+        try std.testing.expect(ran.pty_len == 0 and ran.spawned);
+        // The pane's ctl line ends with the id it is bound as.
+        var line: [ctlfs.ctl.pane_text_cap]u8 = undefined;
+        try std.testing.expect(std.mem.endsWith(u8, ctlfs.ctl.paneText(p, p.panes[1].?, &line), " python-a "));
+    }
     // Several selections executed at once: each is sent, not the first.
     {
         const text = try edit.flatSurface(p, &file.body);