Graham McIntire
7897fe8a1a
- Skip expensive scheduler utilization sampling in test env (saves 1s per call) - Reduce Process.sleep times from 100-300ms to 50-100ms - Reduce refute_receive timeouts from 500ms to 100ms - GPS drift test: 1371ms → 431ms (68.5% faster) - BroadcastTaskSupervisor tests removed from slowest 10 (1000ms+ saved each) - PacketDistributor tests: 33% faster - StreamingPacketsPubSub tests removed from slowest 10 (400ms+ saved each) Top 10 slowest tests reduced from 6.8s to 4.1s (40% improvement)
91 lines
2.5 KiB
Elixir
91 lines
2.5 KiB
Elixir
defmodule Aprsme.Cluster.PacketDistributorTest do
|
|
use ExUnit.Case, async: false
|
|
|
|
alias Aprsme.Cluster.LeaderElection
|
|
alias Aprsme.Cluster.PacketDistributor
|
|
|
|
@test_packet %{raw: "TEST>APRS:test packet", sender: "TEST"}
|
|
|
|
setup do
|
|
# Ensure cluster_enabled is false initially
|
|
Application.put_env(:aprsme, :cluster_enabled, false)
|
|
|
|
# Stop any running LeaderElection process
|
|
if Process.whereis(LeaderElection) do
|
|
try do
|
|
GenServer.stop(LeaderElection, :normal, 100)
|
|
catch
|
|
:exit, _ -> :ok
|
|
end
|
|
end
|
|
|
|
# Start LeaderElection in non-clustered mode
|
|
{:ok, _} = LeaderElection.start_link([])
|
|
# Wait for election to complete (100ms timer + processing)
|
|
Process.sleep(300)
|
|
|
|
on_exit(fn ->
|
|
try do
|
|
if Process.whereis(LeaderElection) do
|
|
GenServer.stop(LeaderElection, :normal, 100)
|
|
end
|
|
catch
|
|
:exit, _ -> :ok
|
|
end
|
|
|
|
# Reset cluster_enabled to false
|
|
Application.put_env(:aprsme, :cluster_enabled, false)
|
|
end)
|
|
|
|
:ok
|
|
end
|
|
|
|
describe "distribute_packet/1" do
|
|
test "does not distribute when cluster is disabled" do
|
|
# cluster_enabled is false from setup
|
|
PacketDistributor.subscribe()
|
|
|
|
PacketDistributor.distribute_packet(@test_packet)
|
|
|
|
refute_receive {:distributed_packet, _}, 100
|
|
end
|
|
|
|
test "distributes packet when cluster is enabled and node is leader" do
|
|
Application.put_env(:aprsme, :cluster_enabled, true)
|
|
# LeaderElection started in non-clustered mode becomes leader quickly
|
|
Process.sleep(100)
|
|
|
|
PacketDistributor.subscribe()
|
|
|
|
PacketDistributor.distribute_packet(@test_packet)
|
|
|
|
assert_receive {:distributed_packet, packet}, 200
|
|
assert packet.raw == "TEST>APRS:test packet"
|
|
assert packet.sender == "TEST"
|
|
end
|
|
end
|
|
|
|
describe "subscribe/0" do
|
|
test "subscribes to cluster:packets topic" do
|
|
PacketDistributor.subscribe()
|
|
|
|
Phoenix.PubSub.broadcast(
|
|
Aprsme.PubSub,
|
|
"cluster:packets",
|
|
{:distributed_packet, @test_packet}
|
|
)
|
|
|
|
assert_receive {:distributed_packet, _}, 500
|
|
end
|
|
end
|
|
|
|
describe "handle_distributed_packet/1" do
|
|
test "processes a distributed packet without crashing" do
|
|
# StreamingPacketsPubSub and PacketStore are already running in test
|
|
result = PacketDistributor.handle_distributed_packet({:distributed_packet, @test_packet})
|
|
|
|
# Broadcasts to local clients and stores in PacketStore
|
|
assert result == :ok
|
|
end
|
|
end
|
|
end
|