mirror of
https://github.com/tmux/tmux.git
synced 2026-10-08 10:54:28 +00:00
99 lines
2.8 KiB
Bash
99 lines
2.8 KiB
Bash
#!/bin/sh
|
|
|
|
# An Escape followed by a mouse report must remain a separate key. The
|
|
# report's leading Escape must not be consumed as the second half of M-Escape.
|
|
|
|
PATH=/bin:/usr/bin
|
|
TERM=screen
|
|
export PATH TERM
|
|
|
|
[ -z "$TEST_TMUX" ] && TEST_TMUX=$(readlink -f ../tmux)
|
|
INNER="$TEST_TMUX -LtestI$$ -f/dev/null"
|
|
OUTER="$TEST_TMUX -LtestO$$ -f/dev/null"
|
|
|
|
fail()
|
|
{
|
|
echo "$*" >&2
|
|
exit 1
|
|
}
|
|
|
|
cleanup()
|
|
{
|
|
$OUTER kill-server 2>/dev/null
|
|
$INNER kill-server 2>/dev/null
|
|
}
|
|
trap cleanup 0
|
|
trap 'exit 1' 1 2 15
|
|
|
|
$INNER new-session -d -s inner -x80 -y10 \
|
|
"stty raw -echo; printf '\033[?1003h\033[?1006h'; exec cat -v" || exit 1
|
|
$INNER set-option -g status off || exit 1
|
|
$INNER set-option -g mouse on || exit 1
|
|
$INNER set-option -g assume-paste-time 0 || exit 1
|
|
$INNER set-option -s escape-time 1000 || exit 1
|
|
$INNER unbind-key -a -T root || exit 1
|
|
$OUTER new-session -d -s outer -x80 -y10 "$INNER attach -t inner" || exit 1
|
|
$OUTER set-option -g assume-paste-time 0 || exit 1
|
|
|
|
i=0
|
|
while [ -z "$($INNER list-clients -F '#{client_name}')" ]; do
|
|
[ "$i" -lt 100 ] || fail 'inner client did not attach'
|
|
sleep 0.05
|
|
i=$((i + 1))
|
|
done
|
|
|
|
bind_key()
|
|
{
|
|
$INNER bind-key -n "$1" send-keys -l "$2" || exit 1
|
|
}
|
|
bind_key Escape E
|
|
bind_key M-Escape A
|
|
bind_key M-a B
|
|
bind_key M-Up U
|
|
|
|
expected_output=
|
|
|
|
send_raw()
|
|
{
|
|
# Hex arguments avoid command separators in a partial mouse report.
|
|
bytes=$(printf '%s' "$1" | od -An -v -tx1)
|
|
$OUTER send-keys -H $bytes || exit 1
|
|
}
|
|
|
|
assert_events()
|
|
{
|
|
name=$1
|
|
expected_output=$expected_output$2
|
|
send_raw "$3"
|
|
if [ "$#" -eq 4 ]; then
|
|
sleep 0.05
|
|
send_raw "$4"
|
|
fi
|
|
i=0
|
|
while [ "$i" -lt 100 ]; do
|
|
actual=$($INNER capture-pane -p | tr -d '\n')
|
|
[ "$actual" = "$expected_output" ] && return 0
|
|
sleep 0.05
|
|
i=$((i + 1))
|
|
done
|
|
fail "$name: got '$actual', expected '$expected_output'"
|
|
}
|
|
|
|
assert_events 'SGR motion' 'E^[[<35;3;3M' "$(printf '\033\033[<35;3;3M')"
|
|
assert_events 'SGR press' 'E^[[<0;3;3M' "$(printf '\033\033[<0;3;3M')"
|
|
assert_events 'SGR release' 'E^[[<0;3;3m' "$(printf '\033\033[<0;3;3m')"
|
|
assert_events 'SGR wheel' 'E^[[<64;3;3M' "$(printf '\033\033[<64;3;3M')"
|
|
assert_events 'X10 motion' 'E^[[MC##' "$(printf '\033\033[MC##')"
|
|
assert_events 'X10 press' 'E^[[M ##' "$(printf '\033\033[M ##')"
|
|
assert_events 'split SGR report' 'E^[[<35;3;3M' "$(printf '\033\033[<35;')" '3;3M'
|
|
assert_events 'split mouse prefix' 'E^[[<35;3;3M' "$(printf '\033\033[')" '<35;3;3M'
|
|
assert_events 'split after two Escapes' 'E^[[<35;3;3M' "$(printf '\033\033')" '[<35;3;3M'
|
|
assert_events 'invalid SGR coordinates' E "$(printf '\033\033[<35;0;3M')"
|
|
assert_events 'discarded wheel release' E "$(printf '\033\033[<64;3;3m')"
|
|
assert_events 'M-Escape' A "$(printf '\033\033')"
|
|
assert_events 'M-Escape and bracket' 'A[' "$(printf '\033\033[')"
|
|
assert_events 'M-a' B "$(printf '\033a')"
|
|
assert_events 'M-Up' U "$(printf '\033\033[A')"
|
|
|
|
exit 0
|