jason.woltje
ab6e8e80dc
Co-authored-by: jason.woltje <jason@diversecanvas.com> Co-committed-by: jason.woltje <jason@diversecanvas.com>
79 lines
2.8 KiB
Bash
Executable File
79 lines
2.8 KiB
Bash
Executable File
#!/usr/bin/env bash
|
||
set -euo pipefail
|
||
|
||
SCRIPT_DIR=$(cd -- "$(dirname -- "$0")" && pwd)
|
||
SEND_MESSAGE="$SCRIPT_DIR/send-message.sh"
|
||
AGENT_SEND="$SCRIPT_DIR/agent-send.sh"
|
||
SOCKET="mosaic-test-$RANDOM-$$"
|
||
TARGET="target-$RANDOM"
|
||
DEFAULT_TARGET="default-target-$RANDOM"
|
||
TMPDIR=$(mktemp -d)
|
||
trap 'tmux -L "$SOCKET" kill-server >/dev/null 2>&1 || true; tmux kill-session -t "$DEFAULT_TARGET" >/dev/null 2>&1 || true; rm -rf "$TMPDIR"' EXIT
|
||
|
||
fail() {
|
||
echo "FAIL: $*" >&2
|
||
exit 1
|
||
}
|
||
|
||
require_tmux() {
|
||
command -v tmux >/dev/null 2>&1 || fail "tmux is required"
|
||
}
|
||
|
||
capture_named() {
|
||
tmux -L "$SOCKET" capture-pane -t "=$TARGET:0.0" -p
|
||
}
|
||
|
||
capture_default() {
|
||
tmux capture-pane -t "=$DEFAULT_TARGET:0.0" -p
|
||
}
|
||
|
||
require_tmux
|
||
|
||
tmux -L "$SOCKET" new-session -d -s "$TARGET" -c "$TMPDIR" 'PS1="❯ " exec bash --noprofile --norc -i'
|
||
tmux new-session -d -s "$DEFAULT_TARGET" -c "$TMPDIR" 'PS1="❯ " exec bash --noprofile --norc -i'
|
||
|
||
"$SEND_MESSAGE" -L "$SOCKET" -t "=$TARGET" -m "named socket hello" >/tmp/send-message-named.out
|
||
sleep 0.2
|
||
capture_named | grep -qF "named socket hello" || fail "send-message.sh did not deliver to named socket"
|
||
if capture_default | grep -qF "named socket hello"; then
|
||
fail "send-message.sh leaked named-socket message to default tmux server"
|
||
fi
|
||
|
||
"$AGENT_SEND" -L "$SOCKET" -S "tester:source" -s "=$TARGET" -m "agent socket hello" >/tmp/agent-send-named.out
|
||
sleep 0.2
|
||
capture_named | grep -qF "[tester:source ->" || fail "agent-send.sh did not include preamble"
|
||
capture_named | grep -qF "agent socket hello" || fail "agent-send.sh did not deliver to named socket"
|
||
if capture_default | grep -qF "agent socket hello"; then
|
||
fail "agent-send.sh leaked named-socket message to default tmux server"
|
||
fi
|
||
|
||
# Concurrency: parallel senders on one server must not cross-deliver or drop.
|
||
# Locks the unique-per-invocation paste buffer (a fixed buffer name raced:
|
||
# load overwrote load, -d deleted underneath — messages swapped between panes).
|
||
CONC_N=5
|
||
for i in $(seq 1 "$CONC_N"); do
|
||
tmux -L "$SOCKET" new-session -d -s "conc-$i" -c "$TMPDIR" 'PS1="❯ " exec bash --noprofile --norc -i'
|
||
done
|
||
pids=()
|
||
for i in $(seq 1 "$CONC_N"); do
|
||
"$SEND_MESSAGE" -L "$SOCKET" -t "=conc-$i" -m "CONCPAYLOAD-${i}-END" >/dev/null &
|
||
pids+=($!)
|
||
done
|
||
for pid in "${pids[@]}"; do
|
||
wait "$pid" || fail "concurrent send-message.sh invocation exited non-zero"
|
||
done
|
||
sleep 0.2
|
||
for i in $(seq 1 "$CONC_N"); do
|
||
pane=$(tmux -L "$SOCKET" capture-pane -t "=conc-$i:0.0" -p)
|
||
printf '%s' "$pane" | grep -qF "CONCPAYLOAD-${i}-END" \
|
||
|| fail "concurrent send dropped payload for pane conc-$i"
|
||
for j in $(seq 1 "$CONC_N"); do
|
||
[ "$j" = "$i" ] && continue
|
||
if printf '%s' "$pane" | grep -qF "CONCPAYLOAD-${j}-END"; then
|
||
fail "concurrent send cross-delivered payload $j to pane conc-$i"
|
||
fi
|
||
done
|
||
done
|
||
|
||
echo "ok - named tmux socket send tools"
|