KB8PMY
/
ADN-DMR-Peer-Server
mirror of https://github.com/Amateur-Digital-Network/ADN-DMR-Peer-Server.git
0
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'f404dee708'
${ noResults }
ADN-DMR-Peer-Server/tests/application/test_slot_contention.py

460 lines
16 KiB
Raw Blame History

# ADN DMR Peer Server - slot contention helpers
#
# Copyright (C) 2026 Rodrigo Pérez, CE5RPY <ce5rpy@qmd.cl>
from __future__ import annotations
from adn_server.application.routing.helpers import (
hbp_ingress_new_stream_collision,
hbp_slot_blocks_group_voice,
hbp_slot_blocks_group_voice_for_peer,
peer_hotspot_voice_slot_busy,
slot_has_active_voice,
slot_in_group_hangtime,
slot_status_hotspot_owner,
)
from adn_server.domain import HBPF_DATA_SYNC, bytes_3, bytes_4
from adn_server.domain.hbp_protocol import HBPF_SLT_VHEAD, HBPF_SLT_VTERM, STREAM_TO
_TG_A = bytes_3(7144)
_TG_B = bytes_3(730444)
_STREAM_A = bytes_4(0x11111111)
_STREAM_B = bytes_4(0x22222222)
def _active_rx_slot(tgid: bytes = _TG_A, stream_id: bytes = _STREAM_A, t: float = 1_000_000.0) -> dict:
return {
"RX_TYPE": HBPF_SLT_VHEAD,
"TX_TYPE": HBPF_SLT_VTERM,
"RX_TGID": tgid,
"RX_TIME": t,
"RX_STREAM_ID": stream_id,
"TX_TIME": 0.0,
}
def test_active_slot_blocks_other_tg_even_with_zero_hangtime() -> None:
now = 1_000_000.0
slot = _active_rx_slot()
assert slot_has_active_voice(slot, now + 0.1)
assert hbp_slot_blocks_group_voice(slot, _TG_B, _STREAM_B, now + 0.1, 0.0)
def test_same_stream_allowed_during_active_qso() -> None:
now = 1_000_000.0
slot = _active_rx_slot()
assert not hbp_slot_blocks_group_voice(slot, _TG_A, _STREAM_A, now + 0.1, 0.0)
def test_ingress_same_subscriber_rekey_allowed() -> None:
"""Legacy: same RF source may open a new stream while the prior is still open."""
now = 1_000_000.0
rf = bytes_3(3120001)
slot = _active_rx_slot(stream_id=_STREAM_A, t=now)
slot["RX_RFS"] = rf
assert not hbp_ingress_new_stream_collision(
slot, bytes_4(1001), rf, _STREAM_B, now + 0.1, per_peer=False,
)
def test_per_peer_scope_ignores_other_hotspot_busy_slot() -> None:
"""Inject-only: peer B must not inherit slot contention from peer A."""
now = 1_000_000.0
peer_a = bytes_4(352000133)
peer_b = bytes_4(714002301)
slot = _active_rx_slot()
slot["RX_PEER"] = peer_a
assert hbp_slot_blocks_group_voice_for_peer(
slot, peer_b, _TG_B, _STREAM_B, now + 0.1, 0.0, per_peer=True, voice_slot=2,
) is False
assert hbp_slot_blocks_group_voice_for_peer(
slot, peer_a, _TG_B, _STREAM_B, now + 0.1, 0.0, per_peer=True, voice_slot=2,
) is True
def test_bridge_tx_stamp_same_stream_allows_obp_downlink() -> None:
"""OBP bridge TX stamp (TX_PEER not in PEERS) must not block same-stream downlink."""
now = 1_000_000.0
hs = bytes_4(714002301)
slot = {
"TX_PEER": bytes_4(73010),
"TX_STREAM_ID": _STREAM_B,
"TX_TYPE": HBPF_SLT_VHEAD,
"TX_TIME": now,
"TX_TGID": _TG_B,
"RX_TYPE": HBPF_SLT_VTERM,
}
peers = {hs: {"CONNECTION": "YES"}}
assert not hbp_slot_blocks_group_voice_for_peer(
slot, hs, _TG_B, _STREAM_B, now + 0.05, 0.0, per_peer=True, peers=peers,
voice_slot=2,
)
def test_per_peer_obp_tx_stamp_clears_stale_peer_slot_block() -> None:
"""OBP TX stamp + same stream must deliver despite stale per-peer session row."""
now = 1_000_000.0
peer = bytes_4(714002301)
slot = _active_rx_slot()
slot["RX_PEER"] = peer
slot["TX_STREAM_ID"] = _STREAM_B
slot["TX_PEER"] = bytes_4(73010)
slot["TX_TYPE"] = HBPF_SLT_VHEAD
slot["TX_TIME"] = now + 0.05
peers = {peer: {"CONNECTION": "YES"}}
assert hbp_slot_blocks_group_voice_for_peer(
slot, peer, _TG_B, _STREAM_B, now + 0.1, 0.0, per_peer=True, peers=peers,
peer_slots={2: {"stream_id": _STREAM_A, "tgid": 7144, "time": now}},
voice_slot=2,
) is False
def test_peer_slot_session_blocks_other_tg_after_burst_gap() -> None:
"""Per-peer session must survive DMR inter-burst gaps (> STREAM_TO)."""
now = 1_000_000.0
hs = bytes_4(714002301)
slot = {"RX_TYPE": HBPF_SLT_VTERM, "TX_TYPE": HBPF_SLT_VTERM}
peer_slots = {
2: {"stream_id": _STREAM_A, "tgid": 7141, "time": now - STREAM_TO - 2.0},
}
assert peer_hotspot_voice_slot_busy(
hs, 2, _STREAM_B, _TG_B, slot, peer_slots, None, now, 5.0,
)
assert hbp_slot_blocks_group_voice_for_peer(
slot, hs, _TG_B, _STREAM_B, now, 5.0, per_peer=True,
peer_slots=peer_slots, voice_slot=2,
)
def test_obp_tx_stamp_does_not_override_peer_hangtime() -> None:
"""GROUP_HANGTIME from hotspot TX must block OBP downlink even with matching TX stamp."""
now = 1_000_000.0
hs = bytes_4(730039101)
slot = {
"TX_PEER": bytes_4(73010),
"TX_STREAM_ID": _STREAM_B,
"TX_TYPE": HBPF_SLT_VHEAD,
"TX_TIME": now,
"TX_TGID": bytes_3(7305),
"RX_TYPE": HBPF_SLT_VTERM,
}
peers = {hs: {"CONNECTION": "YES"}}
hang = (7306, now - 1.0)
assert peer_hotspot_voice_slot_busy(
hs, 2, _STREAM_B, bytes_3(7305), slot, None, hang, now + 2.0, 10.0, peers=peers,
)
assert peer_hotspot_voice_slot_busy(
hs, 2, bytes_4(0x99999999), bytes_3(7305), slot, None, hang, now + 2.0, 10.0, peers=peers,
)
assert not peer_hotspot_voice_slot_busy(
hs, 2, _STREAM_B, bytes_3(7306), slot, None, hang, now + 2.0, 10.0, peers=peers,
)
def test_downlink_vterm_does_not_reset_transmit_hangtime() -> None:
"""Delivered OBP VTERM must not replace ingress GROUP_HANGTIME ownership."""
from adn_server.application.routing.downlink import (
DownlinkContext,
end_peer_voice_slot,
peer_slot_blocks_downlink,
touch_peer_voice_slot,
)
sys_cfg = {"GROUP_HANGTIME": 10.0, "MODE": "MASTER", "MAX_PEERS": 8}
config = {"PROXY": {"TARGET_SYSTEM": "MASTER-A"}, "SYSTEMS": {"MASTER-A": sys_cfg}}
ctx = DownlinkContext(
config=config,
system_name="MASTER-A",
sys_cfg=sys_cfg,
peers={},
status={1: {"RX_TYPE": HBPF_SLT_VTERM, "TX_TYPE": HBPF_SLT_VTERM}, 2: {"RX_TYPE": HBPF_SLT_VTERM, "TX_TYPE": HBPF_SLT_VTERM}},
connected_count=1,
)
peer_id = bytes_4(730039101)
peer = {"OPTIONS": b"TS2=730,7305;SINGLE=0;"}
ctx.peers[peer_id] = peer
now = 3_000_000.0
touch_peer_voice_slot(ctx, peer_id, 2, bytes_4(0x1111), bytes_3(7306), pkt_time=now)
end_peer_voice_slot(ctx, peer_id, 2, bytes_4(0x1111), bytes_3(7306), pkt_time=now + 1)
assert ctx.peer_voice_hangtime[peer_id][2] == (7306, now + 1)
end_peer_voice_slot(
ctx, peer_id, 2, bytes_4(0x2222), bytes_3(7305), pkt_time=now + 2, apply_hangtime=False,
)
assert ctx.peer_voice_hangtime[peer_id][2] == (7306, now + 1)
foreign = b"".join([
b"DMRD", b"\x00", bytes_3(100), bytes_3(7305), b"\x00\x00\x00\x00",
bytes([0x80 | (HBPF_DATA_SYNC << 4) | HBPF_SLT_VHEAD]), bytes_4(0x3333),
] + [b"\x00"] * 33)
assert peer_slot_blocks_downlink(ctx, peer_id, peer, foreign, pkt_time=now + 3)
def test_obp_tx_stamp_does_not_bypass_fresh_chile_downlink_session() -> None:
"""OBP TX stamp for Panama VTERM must not flash over active Chile listen (714002301 lab)."""
now = 1_000_000.0
hs = bytes_4(714002301)
chile_stream = bytes_4(0x11111111)
panama_stream = bytes_4(0x22222222)
slot = {
"TX_PEER": bytes_4(73010),
"TX_STREAM_ID": panama_stream,
"TX_TYPE": HBPF_SLT_VHEAD,
"TX_TIME": now,
"RX_TYPE": HBPF_SLT_VTERM,
}
peers = {hs: {"CONNECTION": "YES", "OPTIONS": b"TS2=7141,71442;"}}
peer_slots = {
2: {"stream_id": chile_stream, "tgid": 7141, "time": now - 0.1},
}
assert peer_hotspot_voice_slot_busy(
hs, 2, panama_stream, bytes_3(71442), slot, peer_slots, None, now, 10.0, peers=peers,
)
def test_obp_bridge_tx_overrides_stale_peer_slot_session() -> None:
"""Stale HS session must not block OBP bridged downlink on the same TG."""
now = 1_000_000.0
hs = bytes_4(0x2B83833D)
slot = {
"TX_PEER": bytes_4(73010),
"TX_STREAM_ID": _STREAM_B,
"TX_TYPE": HBPF_SLT_VHEAD,
"TX_TIME": now,
"RX_TYPE": HBPF_SLT_VTERM,
}
peers = {hs: {"CONNECTION": "YES"}}
assert not peer_hotspot_voice_slot_busy(
hs, 2, _STREAM_B, _TG_B, slot,
{2: {"stream_id": _STREAM_A, "tgid": 7305, "time": now - 5.0}},
None, now, 5.0, peers=peers,
)
def test_bridge_tx_peer_does_not_clear_hotspot_contention() -> None:
"""Bridge TX_PEER=73010 must not disable per-hotspot slot busy checks."""
now = 1_000_000.0
hs = bytes_4(714002301)
slot = _active_rx_slot(stream_id=_STREAM_A)
slot["TX_PEER"] = bytes_4(73010)
slot["TX_STREAM_ID"] = _STREAM_A
slot["TX_TYPE"] = HBPF_SLT_VHEAD
slot["TX_TIME"] = now
peers = {hs: {"CONNECTION": "YES"}}
assert slot_status_hotspot_owner(slot, peers) is None
assert peer_hotspot_voice_slot_busy(
hs, 2, _STREAM_B, _TG_B, slot,
{2: {"stream_id": _STREAM_A, "tgid": 7144, "time": now}},
None, now + 0.05, 5.0,
)
def test_peer_hotspot_hangtime_blocks_other_tg() -> None:
now = 1_000_000.0
hs = bytes_4(714002301)
slot = {"RX_TYPE": HBPF_SLT_VTERM, "TX_TYPE": HBPF_SLT_VTERM}
assert peer_hotspot_voice_slot_busy(
hs, 2, _STREAM_B, _TG_B, slot, None, (7144, now), now + 2.0, 5.0,
)
def test_single0_ingress_tx_allows_other_static_tg() -> None:
"""SINGLE=0: local TX on one static TG must not block RX on another in OPTIONS."""
now = 1_000_000.0
hs = bytes_4(730039253)
peer = {"OPTIONS": b"TS2=730507,730508;SINGLE=0;"}
sys_cfg = {"SINGLE_MODE": False, "DEFAULT_UA_TIMER": 10}
slot = {"RX_TYPE": HBPF_SLT_VTERM, "TX_TYPE": HBPF_SLT_VTERM}
peer_slots = {
2: {
"stream_id": bytes_4(0x11111111),
"tgid": 730507,
"time": now,
"ingress": True,
},
}
assert not peer_hotspot_voice_slot_busy(
hs,
2,
bytes_4(0x22222222),
bytes_3(730508),
slot,
peer_slots,
None,
now + 0.1,
0.0,
peer=peer,
sys_cfg=sys_cfg,
)
def test_monitor_peer_allows_second_static_tg_during_listen() -> None:
"""Lab witness (many static TGs) must hear concurrent calls on different TGs."""
now = 1_000_000.0
hs = bytes_4(730039257)
peer = {
"OPTIONS": b"TS2=730500,730501,730502,730503,730504,730505,730506,730507,730508;",
}
sys_cfg = {"SINGLE_MODE": False, "DEFAULT_UA_TIMER": 10}
slot = {
"RX_PEER": bytes_4(730039253),
"RX_TGID": bytes_3(730507),
"RX_STREAM_ID": bytes_4(0x11111111),
"RX_TIME": now,
"RX_TYPE": HBPF_SLT_VHEAD,
}
peer_slots = {
2: {"stream_id": bytes_4(0x11111111), "tgid": 730507, "time": now, "ingress": False},
}
assert not peer_hotspot_voice_slot_busy(
hs,
2,
bytes_4(0x22222222),
bytes_3(730508),
slot,
peer_slots,
None,
now + 0.1,
0.0,
peer=peer,
sys_cfg=sys_cfg,
)
def test_ingress_tx_blocks_same_tg_foreign_stream_despite_bridge_stamp() -> None:
"""Local RF TX must block downlink even when OBP bridge TX stamp matches incoming."""
now = 1_000_000.0
hs = bytes_4(730039101)
slot = {
"TX_PEER": bytes_4(73010),
"TX_STREAM_ID": bytes_4(0x22222222),
"TX_TYPE": HBPF_SLT_VHEAD,
"TX_TIME": now,
"RX_TYPE": HBPF_SLT_VTERM,
}
peers = {hs: {"CONNECTION": "YES", "OPTIONS": b"TS2=730,7305;"}}
peer_slots = {
2: {
"stream_id": bytes_4(0x11111111),
"tgid": 7306,
"time": now,
"ingress": True,
},
}
assert peer_hotspot_voice_slot_busy(
hs, 2, bytes_4(0x22222222), bytes_3(7306), slot, peer_slots, None, now, 5.0, peers=peers,
)
def test_global_scope_still_blocks_any_peer_on_busy_slot() -> None:
now = 1_000_000.0
peer_b = bytes_4(714002301)
slot = _active_rx_slot()
slot["RX_PEER"] = bytes_4(352000133)
assert hbp_slot_blocks_group_voice_for_peer(
slot, peer_b, _TG_B, _STREAM_B, now + 0.1, 0.0, per_peer=False,
) is True
now = 1_000_000.0
slot = {"RX_TYPE": HBPF_SLT_VTERM, "TX_TYPE": HBPF_SLT_VTERM, "RX_TIME": 0.0, "TX_TIME": 0.0}
assert not hbp_slot_blocks_group_voice(slot, _TG_B, _STREAM_B, now, 5.0)
def test_group_hangtime_blocks_other_tg_after_vterm() -> None:
now = 1_000_000.0
slot = {
"RX_TYPE": HBPF_SLT_VTERM,
"TX_TYPE": HBPF_SLT_VTERM,
"RX_TGID": _TG_A,
"RX_TIME": now,
"TX_TGID": _TG_A,
"TX_TIME": now,
}
assert slot_in_group_hangtime(slot, _TG_B, now + 2.0, 5.0)
assert not slot_in_group_hangtime(slot, _TG_A, now + 2.0, 5.0)
assert not slot_in_group_hangtime(slot, _TG_B, now + 6.0, 5.0)
def test_group_hangtime_zero_allows_other_tg_after_vterm() -> None:
now = 1_000_000.0
slot = {
"RX_TYPE": HBPF_SLT_VTERM,
"TX_TYPE": HBPF_SLT_VTERM,
"RX_TGID": _TG_A,
"RX_TIME": now,
"TX_TGID": _TG_A,
"TX_TIME": now,
}
assert not slot_in_group_hangtime(slot, _TG_B, now + 1.0, 0.0)
assert not hbp_slot_blocks_group_voice(slot, _TG_B, _STREAM_B, now + 1.0, 0.0)
def test_active_tx_leg_blocks_other_stream() -> None:
now = 1_000_000.0
slot = {
"RX_TYPE": HBPF_SLT_VTERM,
"TX_TYPE": HBPF_SLT_VHEAD,
"TX_TGID": _TG_A,
"TX_TIME": now,
"TX_STREAM_ID": _STREAM_A,
}
assert slot_has_active_voice(slot, now + 0.05)
assert hbp_slot_blocks_group_voice(slot, _TG_B, _STREAM_B, now + 0.05, 0.0)
def test_stream_timeout_ends_active_busy() -> None:
now = 1_000_000.0
slot = _active_rx_slot(t=now - STREAM_TO - 0.01)
assert not slot_has_active_voice(slot, now)
def test_foreign_vterm_dropped_while_listening_other_tg() -> None:
"""VTERM for a stream never delivered must not reach the hotspot."""
from adn_server.application.routing.downlink import (
DownlinkContext,
peer_slot_blocks_downlink,
touch_peer_voice_slot,
)
sys_cfg = {"GROUP_HANGTIME": 5.0, "MODE": "MASTER", "MAX_PEERS": 8}
config = {"PROXY": {"TARGET_SYSTEM": "MASTER-A"}, "SYSTEMS": {"MASTER-A": sys_cfg}}
hs = bytes_4(714002301)
peer = {"OPTIONS": b"TS2=7141,71442;"}
ctx = DownlinkContext(
config=config,
system_name="MASTER-A",
sys_cfg=sys_cfg,
peers={hs: peer},
status={1: {"RX_TYPE": HBPF_SLT_VTERM, "TX_TYPE": HBPF_SLT_VTERM}, 2: {"RX_TYPE": HBPF_SLT_VTERM, "TX_TYPE": HBPF_SLT_VTERM}},
connected_count=2,
)
now = 1_000_000.0
chile_stream = bytes_4(0x11111111)
panama_stream = bytes_4(0x22222222)
touch_peer_voice_slot(ctx, hs, 2, chile_stream, bytes_3(7141), pkt_time=now)
panama_vterm = b"".join([
b"DMRD", b"\x00", bytes_3(100), bytes_3(71442), b"\x00\x00\x00\x00",
bytes([0x80 | (HBPF_DATA_SYNC << 4) | HBPF_SLT_VTERM]),
panama_stream,
] + [b"\x00"] * 33)
assert peer_slot_blocks_downlink(ctx, hs, peer, panama_vterm, pkt_time=now + 0.5)
def test_global_slot_blocks_foreign_vterm_during_active_rx() -> None:
"""Bridge TX stamp must not let foreign VTERM through during active RX."""
now = 1_000_000.0
chile_stream = bytes_4(0x11111111)
panama_stream = bytes_4(0x22222222)
slot = {
"RX_PEER": bytes_4(714002301),
"RX_STREAM_ID": chile_stream,
"RX_TYPE": HBPF_SLT_VHEAD,
"RX_TIME": now,
"TX_PEER": bytes_4(73010),
"TX_STREAM_ID": panama_stream,
"TX_TYPE": HBPF_SLT_VHEAD,
"TX_TIME": now,
}
assert hbp_slot_blocks_group_voice(
slot, bytes_3(71442), panama_stream, now + 0.1, 0.0, is_vterm=True,
)
assert not hbp_slot_blocks_group_voice(slot, _TG_A, chile_stream, now + 0.1, 0.0)
Reference in new issue View Git Blame Copy Permalink

Powered by TurnKey Linux.