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

defmodule AprsmeWeb.MapLive.IndexTest do
  use AprsmeWeb.ConnCase

  import Phoenix.ConnTest
  import Phoenix.LiveViewTest

  describe "Index" do
    test "renders map view", %{conn: conn} do
      {:ok, view, html} = live(conn, "/", on_error: :warn)

      assert html =~ "APRS Map"
      assert has_element?(view, "#aprs-map")
    end

    test "handles bounds_changed event with float values", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")

      # Simulate JavaScript sending float values (the problematic case)
      bounds_params = %{
        "bounds" => %{
          "north" => 61.897577621605016,
          "south" => 5.441022303717974,
          "east" => -34.45312500000001,
          "west" => -161.54296875000003
        }
      }

      # This should not crash with ArgumentError: not a binary
      assert render_hook(view, "bounds_changed", bounds_params)
    end

    test "handles bounds_changed event with string values", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")

      # Simulate JavaScript sending string values (expected case)
      bounds_params = %{
        "bounds" => %{
          "north" => "61.897577621605016",
          "south" => "5.441022303717974",
          "east" => "-34.45312500000001",
          "west" => "-161.54296875000003"
        }
      }

      assert render_hook(view, "bounds_changed", bounds_params)
    end

    test "handles bounds_changed event with mixed value types", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")

      # Test mixed types (float, string, integer)
      bounds_params = %{
        "bounds" => %{
          # float
          "north" => 61.897577621605016,
          # string
          "south" => "5.441022303717974",
          # integer
          "east" => -34,
          # string
          "west" => "-161.54296875000003"
        }
      }

      assert render_hook(view, "bounds_changed", bounds_params)
    end

    test "loads historical packets when map is ready", %{conn: conn} do
      # Mock the Packets.get_packets_for_replay function to return empty list
      # since we now load all historical packets at once instead of replaying
      Mox.stub(Aprsme.PacketsMock, :get_packets_for_replay, fn _opts -> [] end)

      {:ok, view, _html} = live(conn, "/")

      # Simulate map initialization which should trigger historical packet loading
      assert render_hook(view, "map_ready", %{})

      # Wait for the initialize_replay message to be processed
      Process.sleep(20)

      # The view should still be rendering without errors after loading historical packets
      assert render(view) =~ "aprs-map"
    end

    test "loads historical packets with correct time range", %{conn: conn} do
      # Create mock historical packets from the last 2 hours
      now = DateTime.utc_now()
      two_hours_ago = DateTime.add(now, -7200, :second)
      one_hour_ago = DateTime.add(now, -3600, :second)

      mock_packets = [
        %{
          id: 1,
          base_callsign: "TEST1",
          sender: "TEST1-1",
          ssid: "1",
          data_type: "position",
          symbol_table_id: "/",
          symbol_code: ">",
          lat: 39.8283,
          lon: -98.5795,
          received_at: two_hours_ago,
          inserted_at: two_hours_ago,
          has_position: true,
          comment: "Historical packet 1"
        },
        %{
          id: 2,
          base_callsign: "TEST2",
          sender: "TEST2-1",
          ssid: "1",
          data_type: "position",
          symbol_table_id: "/",
          symbol_code: ">",
          lat: 40.0,
          lon: -99.0,
          received_at: one_hour_ago,
          inserted_at: one_hour_ago,
          has_position: true,
          comment: "Historical packet 2"
        }
      ]

      # Mock the Packets.get_packets_for_replay function to return our test packets
      Mox.stub(Aprsme.PacketsMock, :get_packets_for_replay, fn opts ->
        # Verify that the time range is being passed correctly (not overridden to 1 hour)
        assert Map.has_key?(opts, :start_time)
        assert Map.has_key?(opts, :end_time)

        # The start_time should be 2 hours ago (historical_hours = "2")
        expected_start = DateTime.add(now, -7200, :second)
        assert_in_delta DateTime.to_unix(opts.start_time), DateTime.to_unix(expected_start), 1

        mock_packets
      end)

      {:ok, view, _html} = live(conn, "/")

      # Set historical_hours to 2 to test the time range
      render_hook(view, "update_historical_hours", %{"historical_hours" => "2"})
      Process.sleep(10)

      # Simulate map initialization which should trigger historical packet loading
      assert render_hook(view, "map_ready", %{})

      # Wait for the initialize_replay message to be processed
      Process.sleep(20)

      # The view should still be rendering without errors after loading historical packets
      assert render(view) =~ "aprs-map"
    end

    test "handles clear_and_reload_markers event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")

      # This should not crash and should work without replay functionality
      assert render_hook(view, "clear_and_reload_markers", %{})
    end

    test "sets correct page title", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")

      assert page_title(view) =~ "APRS Map"
    end

    test "handles map_ready event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")

      # Simulate map initialization
      assert render_hook(view, "map_ready", %{})
    end

    test "handles locate_me event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "locate_me", %{})
    end

    test "handles set_location event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "set_location", %{"lat" => 40.5, "lng" => -98.5})
    end

    test "handles marker_clicked event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "marker_clicked", %{})
    end

    test "handles marker_hover_end event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "marker_hover_end", %{})
    end

    test "handles update_callsign event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "update_callsign", %{"callsign" => "K5ABC"})
    end

    test "handles track_callsign event with a callsign", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "track_callsign", %{"callsign" => "K5ABC"})
    end

    test "handles track_callsign event with empty callsign (clears tracking)", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "track_callsign", %{"callsign" => ""})
    end

    test "handles clear_tracking event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "clear_tracking", %{})
    end

    test "handles update_trail_duration event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "update_trail_duration", %{"trail_duration" => "2"})
    end

    test "handles search_callsign event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "search_callsign", %{"callsign" => "K1ABC"})
    end

    test "handles toggle_slideover event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "toggle_slideover", %{})
    end

    test "handles set_slideover_state event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "set_slideover_state", %{"open" => true})
      assert render_hook(view, "set_slideover_state", %{"open" => false})
    end

    test "handles geolocation_error event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "geolocation_error", %{"error" => "permission denied"})
    end

    test "handles request_geolocation event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "request_geolocation", %{})
    end

    test "handles popup_closed event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")
      assert render_hook(view, "popup_closed", %{})
    end

    test "handles update_map_state event", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")

      assert render_hook(view, "update_map_state", %{
               "center" => %{"lat" => 40.5, "lng" => -98.5},
               "zoom" => 10
             })
    end

    test "handles marker_hover_start event with a path", %{conn: conn} do
      {:ok, view, _html} = live(conn, "/")

      assert render_hook(view, "marker_hover_start", %{
               "id" => "K1ABC",
               "path" => "K5XYZ,WIDE1-1",
               "lat" => 40.0,
               "lng" => -98.0
             })
    end
  end
end