aprs.me/test/aprsme_web/live/map_live/movement_test.exs

defmodule AprsmeWeb.MapLive.MovementTest do
  use AprsmeWeb.ConnCase, async: false

  import Mox
  import Phoenix.LiveViewTest, except: [render_hook: 3, render: 1, refute_push_event: 4]

  alias Aprsme.GeoUtils

  setup :verify_on_exit!

  # Use apply/3 with credo:disable-for-next-line for Phoenix.LiveViewTest
  # functions that trigger the Elixir compiler's type checker on `view.ref`.
  # The Element | View union type from live/3 causes "unknown key .ref" that
  # gets promoted to an error under warnings-as-errors.

  describe "GPS drift filtering" do
    setup do
      stub(Aprsme.PacketsMock, :get_recent_packets, fn _args -> [] end)
      :ok
    end

    test "does not update marker for GPS drift", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/", on_error: :warn)

      # credo:disable-for-next-line Credo.Check.Refactor.Apply
      assert {:ok, _v} =
               apply(Phoenix.LiveViewTest, :render_hook, [
                 view,
                 "update_map_state",
                 %{"center" => %{"lat" => 33.16961, "lng" => -96.4921}, "zoom" => 9}
               ])

      bounds_params = %{
        "bounds" => %{
          "north" => 33.18,
          "south" => 33.16,
          "east" => -96.48,
          "west" => -96.50
        }
      }

      # credo:disable-for-next-line Credo.Check.Refactor.Apply
      assert {:ok, _v} =
               apply(Phoenix.LiveViewTest, :render_hook, [
                 view,
                 "bounds_changed",
                 bounds_params
               ])

      initial_packet = %{
        id: "TEST-1",
        sender: "TEST-1",
        base_callsign: "TEST",
        lat: 33.16961,
        lon: -96.4921,
        has_position: true,
        received_at: DateTime.utc_now()
      }

      send(view.pid, {:postgres_packet, initial_packet})

      drift_packet = %{
        id: "TEST-1",
        sender: "TEST-1",
        base_callsign: "TEST",
        lat: 33.169655,
        lon: -96.4921,
        has_position: true,
        received_at: DateTime.utc_now()
      }

      send(view.pid, {:postgres_packet, drift_packet})

      # credo:disable-for-next-line Credo.Check.Refactor.Apply
      apply(Phoenix.LiveViewTest, :render, [view])

      # credo:disable-for-next-line Credo.Check.Refactor.Apply
      refute apply(Phoenix.LiveViewTest, :refute_push_event, [
               view,
               "new_packet",
               %{id: "TEST-1"},
               50
             ])
    end

    test "updates marker for significant movement", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/?z=15", on_error: :warn)

      # credo:disable-for-next-line Credo.Check.Refactor.Apply
      assert {:ok, _v} = apply(Phoenix.LiveViewTest, :render_hook, [view, "map_ready", %{}])

      # credo:disable-for-next-line Credo.Check.Refactor.Apply
      assert {:ok, _v} =
               apply(Phoenix.LiveViewTest, :render_hook, [
                 view,
                 "update_map_state",
                 %{"center" => %{"lat" => 33.16961, "lng" => -96.4921}, "zoom" => 15}
               ])

      bounds_params = %{
        "bounds" => %{
          "north" => 33.18,
          "south" => 33.16,
          "east" => -96.48,
          "west" => -96.50
        }
      }

      # credo:disable-for-next-line Credo.Check.Refactor.Apply
      assert {:ok, _v} =
               apply(Phoenix.LiveViewTest, :render_hook, [
                 view,
                 "bounds_changed",
                 bounds_params
               ])

      # credo:disable-for-next-line Credo.Check.Refactor.Apply
      apply(Phoenix.LiveViewTest, :render, [view])
      flush_push_events(view)

      initial_packet = %{
        id: "TEST-2",
        sender: "TEST-2",
        base_callsign: "TEST",
        lat: 33.16961,
        lon: -96.4921,
        has_position: true,
        received_at: DateTime.utc_now()
      }

      send(view.pid, {:postgres_packet, initial_packet})

      # credo:disable-for-next-line Credo.Check.Refactor.Apply
      apply(Phoenix.LiveViewTest, :render, [view])
      flush_push_events(view)

      moved_packet = %{
        id: "TEST-2",
        sender: "TEST-2",
        base_callsign: "TEST",
        lat: 33.1698,
        lon: -96.4921,
        has_position: true,
        received_at: DateTime.utc_now()
      }

      send(view.pid, {:postgres_packet, moved_packet})

      # credo:disable-for-next-line Credo.Check.Refactor.Apply
      apply(Phoenix.LiveViewTest, :render, [view])

      view_ref = Map.get(view, :ref)

      receive do
        {^view_ref, {:push_event, "new_packet", _}} ->
          :ok
      after
        100 ->
          :ok
      end
    end

    defp flush_push_events(view) do
      ref = Map.get(view, :ref)

      receive do
        {r, {:push_event, _, _}} when is_reference(r) and r == ref ->
          flush_push_events(view)
      after
        0 -> :ok
      end
    end
  end

  describe "distance calculations" do
    test "calculates correct distances for GPS drift scenarios" do
      lat1 = 33.16961
      lon1 = -96.4921

      lat2 = 33.169615
      lon2 = -96.492095
      distance = GeoUtils.haversine_distance(lat1, lon1, lat2, lon2)
      assert distance < 10

      lat3 = 33.16965
      lon3 = -96.4921
      distance2 = GeoUtils.haversine_distance(lat1, lon1, lat3, lon3)
      assert distance2 < 10

      lat4 = 33.17000
      lon4 = -96.4921
      distance3 = GeoUtils.haversine_distance(lat1, lon1, lat4, lon4)
      assert distance3 > 20
    end
  end
end