第二十章：Phoenix 的测试体系，也很有“城邦味”

test "GET /dispatches", %{conn: conn} do
  conn = get(conn, ~p"/dispatches")
  assert html_response(conn, 200) =~ "今日调度公报"
end

test "can create dispatch", %{conn: conn} do
  {:ok, view, _html} = live(conn, ~p"/live/dispatches")

  html =
    view
    |> form("form", dispatch: %{title: "东门警报"})
    |> render_submit()

  assert html =~ "东门警报"
end

test "report_incident broadcasts to district" do
  {:ok, _, socket} =
    socket(CityWeb.UserSocket, "user:1", %{current_user: %{id: 1}})
    |> subscribe_and_join(CityWeb.DistrictChannel, "district:42")

  ref = push(socket, "report_incident", %{"title" => "南门拥堵"})
  assert_reply ref, :ok, %{id: _id}
  assert_broadcast "incident_reported", %{title: "南门拥堵"}
end

窗口怎么回：测 HTTP
中控室怎么反应：测 LiveView
频道塔怎么广播：测 Channel