mirror of
https://github.com/tmux/tmux.git
synced 2026-10-07 02:04:22 +00:00
58 lines
1.7 KiB
Bash
58 lines
1.7 KiB
Bash
#!/bin/sh
|
||
|
||
. ./input-common.inc
|
||
|
||
# Large strings may take longer than start_cmd's delay to reach the parser.
|
||
check_discard()
|
||
{
|
||
name=$1
|
||
printf 'OK\n' >"$EXP"
|
||
i=0
|
||
while [ "$i" -lt 100 ]; do
|
||
capture_grid "$name" >"$TMP"
|
||
cmp -s "$TMP" "$EXP" && return 0
|
||
sleep 0.05
|
||
i=$((i + 1))
|
||
done
|
||
fail "$name (timed out waiting for discard)"
|
||
}
|
||
|
||
start_cmd csi-param-discard 8 3 \
|
||
"perl -e 'print qq{\e[}, q{1} x 80, qq{\030OK}'; sleep 2"
|
||
check_capture csi-param-discard 'OK'
|
||
|
||
start_cmd csi-interm-discard 8 3 \
|
||
"perl -e 'print qq{\e[ \030OK}'; sleep 2"
|
||
check_capture csi-interm-discard 'OK'
|
||
|
||
start_cmd osc-discard 8 3 \
|
||
"perl -e 'print qq{\e]2;}, q{x} x 1100000, qq{\e\\\\OK}'; exec cat"
|
||
check_discard osc-discard
|
||
|
||
start_cmd apc-discard 8 3 \
|
||
"perl -e 'print qq{\e_}, q{x} x 1100000, qq{\e\\\\OK}'; exec cat"
|
||
check_discard apc-discard
|
||
|
||
start_pane unknown-csi 8 3 '\033[?9999zOK'
|
||
check_capture unknown-csi 'OK'
|
||
|
||
start_pane unknown-osc 8 3 '\033]999;bad\aOK'
|
||
check_capture unknown-osc 'OK'
|
||
|
||
start_pane malformed-osc 8 3 '\033]8;id=a:id=b;http://bad\aX\033]8;id=no-separator\aY\033]9;4;5;200\a\033]9;4;z\a\033]10;notacolour\a\033]11;notacolour\a\033]12;notacolour\a\033]4;999;red\a\033]104;999\a\033]52bad\a\033]52;c;@@@\aOK'
|
||
check_capture malformed-osc 'XYOK'
|
||
check_raw_matches malformed-osc \
|
||
'C 0,0 data=\(1,1,X\).* link=NONE linkid=NONE' \
|
||
'C 0,1 data=\(1,1,Y\).* link=NONE linkid=NONE' \
|
||
'C 0,2 data=\(1,1,O\).* link=NONE linkid=NONE' \
|
||
'C 0,3 data=\(1,1,K\).* link=NONE linkid=NONE'
|
||
|
||
start_pane malformed-dcs 8 3 '\033P$qBAD\033\\OK'
|
||
check_capture malformed-dcs 'OK^[P0$r
|
||
^[\'
|
||
|
||
start_pane malformed-utf8 8 3 '\360\200\200\200A\355\240\200B'
|
||
check_capture malformed-utf8 '<27>A<EFBFBD>B'
|
||
|
||
exit $exit_status
|