feat: terminal UI over the shared workbench core (issue #26, phase 4)

test/bds/tui_test.exs

@@ -0,0 +1,135 @@
+defmodule BDS.TUITest do
+  use ExUnit.Case, async: false
+
+  import Ecto.Query
+
+  alias ExRatatui.CellSession
+  alias ExRatatui.Event.Key
+
+  defp post_count(project_id) do
+    BDS.Repo.aggregate(from(p in BDS.Posts.Post, where: p.project_id == ^project_id), :count)
+  end
+
+  setup do
+    :ok = Ecto.Adapters.SQL.Sandbox.checkout(BDS.Repo)
+    Ecto.Adapters.SQL.Sandbox.mode(BDS.Repo, {:shared, self()})
+    on_exit(fn -> Ecto.Adapters.SQL.Sandbox.mode(BDS.Repo, :manual) end)
+
+    temp_dir = Path.join(System.tmp_dir!(), "bds-tui-#{System.unique_integer([:positive])}")
+    File.mkdir_p!(temp_dir)
+    on_exit(fn -> File.rm_rf(temp_dir) end)
+
+    {:ok, project} = BDS.Projects.create_project(%{name: "TUI", data_path: temp_dir})
+    {:ok, _} = BDS.Projects.set_active_project(project.id)
+
+    {:ok, post} =
+      BDS.Posts.create_post(%{
+        project_id: project.id,
+        title: "Hello TUI",
+        content: "terminal body",
+        language: "en"
+      })
+
+    %{project: project, post: post}
+  end
+
+  defp mount!(opts \\ []) do
+    {:ok, state} = BDS.TUI.mount(opts)
+    state
+  end
+
+  defp screen_text(state, width \\ 100, height \\ 32) do
+    session = CellSession.new(width, height)
+    frame = %ExRatatui.Frame{width: width, height: height}
+    :ok = CellSession.draw(session, BDS.TUI.render(state, frame))
+    snapshot = CellSession.take_cells(session)
+    :ok = CellSession.close(session)
+
+    snapshot.cells
+    |> Enum.group_by(& &1.row)
+    |> Enum.sort_by(fn {row, _} -> row end)
+    |> Enum.map_join("\n", fn {_row, cells} ->
+      cells |> Enum.sort_by(& &1.col) |> Enum.map_join("", & &1.symbol)
+    end)
+  end
+
+  defp key(code, modifiers \\ []), do: %Key{code: code, kind: "press", modifiers: modifiers}
+
+  defp press(state, code, modifiers \\ []) do
+    {:noreply, state} = BDS.TUI.handle_event(key(code, modifiers), state)
+    state
+  end
+
+  test "mounts against the active project and lists posts", %{post: post} do
+    state = mount!()
+
+    assert state.project_id == post.project_id
+    text = screen_text(state)
+    assert text =~ "Hello TUI"
+  end
+
+  test "navigates and opens a post in the editor", %{post: post} do
+    state = mount!() |> press("enter")
+
+    assert state.focus == :editor
+    assert state.editor.post.id == post.id
+    assert ExRatatui.textarea_get_value(state.editor.textarea) == "terminal body"
+    assert screen_text(state) =~ "terminal body"
+  end
+
+  test "ctrl+s persists textarea edits", %{post: post} do
+    state = mount!() |> press("enter")
+
+    :ok = ExRatatui.textarea_insert_str(state.editor.textarea, "more words ")
+    state = press(state, "s", ["ctrl"])
+
+    assert state.editor.dirty == false
+    assert BDS.Posts.get_post(post.id).content =~ "more words"
+  end
+
+  test "ctrl+p publishes the open post", %{post: post} do
+    state = mount!() |> press("enter") |> press("p", ["ctrl"])
+
+    published = BDS.Posts.get_post(post.id)
+    assert published.status == :published
+    assert state.editor.post.status == :published
+  end
+
+  test "n creates a new draft post", %{project: project} do
+    count_before = post_count(project.id)
+    state = mount!() |> press("n")
+
+    assert post_count(project.id) == count_before + 1
+    assert state.focus == :editor
+    assert state.editor.post.status == :draft
+  end
+
+  test "esc returns focus to the sidebar" do
+    state = mount!() |> press("enter") |> press("esc")
+    assert state.focus == :sidebar
+  end
+
+  test "entity_changed refreshes the sidebar", %{project: project} do
+    state = mount!()
+
+    {:ok, other} =
+      BDS.Posts.create_post(%{project_id: project.id, title: "From Pipeline", content: "x"})
+
+    {:noreply, state} =
+      BDS.TUI.handle_info(
+        {:entity_changed, %{entity: "post", entity_id: other.id, action: :created}},
+        state
+      )
+
+    assert screen_text(state) =~ "From Pipeline"
+  end
+
+  test "view switching shows media view" do
+    state = mount!() |> press("2")
+    assert state.view == "media"
+  end
+
+  test "quit key stops the app" do
+    assert {:stop, _state} = BDS.TUI.handle_event(key("q", ["ctrl"]), mount!())
+  end
+end