mirror of
https://github.com/tmux/tmux.git
synced 2026-06-22 12:16:58 +00:00
Add screen redraw regression tests.
This commit is contained in:
77
regress/screen-redraw-window-style.sh
Normal file
77
regress/screen-redraw-window-style.sh
Normal file
@@ -0,0 +1,77 @@
|
||||
#!/bin/sh
|
||||
|
||||
# Exercise window-style and window-active-style, which set the default cell
|
||||
# (background) style for a window's panes. screen-redraw.c uses these for the
|
||||
# default grid cell of each pane (the active pane uses window-active-style, the
|
||||
# others window-style). Captured with -e to record the background colours.
|
||||
#
|
||||
# Run with GENERATE=1 to (re)create the golden files.
|
||||
|
||||
PATH=/bin:/usr/bin
|
||||
TERM=screen
|
||||
LC_ALL=C.UTF-8
|
||||
export TERM LC_ALL
|
||||
|
||||
[ -z "$TEST_TMUX" ] && TEST_TMUX=$(readlink -f ../tmux)
|
||||
TMUX="$TEST_TMUX -Ltest -f/dev/null"
|
||||
TMUX2="$TEST_TMUX -Ltest2 -f/dev/null"
|
||||
RESULTS=screen-redraw-results
|
||||
|
||||
TMP=$(mktemp)
|
||||
trap "rm -f $TMP; $TMUX kill-server 2>/dev/null; $TMUX2 kill-server 2>/dev/null" \
|
||||
0 1 15
|
||||
|
||||
fail() {
|
||||
echo "$*" >&2
|
||||
exit 1
|
||||
}
|
||||
|
||||
compare() {
|
||||
sleep 1
|
||||
$TMUX capturep -pe >$TMP || exit 1
|
||||
if [ -n "$GENERATE" ]; then
|
||||
cp $TMP "$RESULTS/$1.result" || exit 1
|
||||
echo "generated $1"
|
||||
else
|
||||
cmp -s $TMP "$RESULTS/$1.result" || \
|
||||
fail "scene $1 differs from $RESULTS/$1.result"
|
||||
fi
|
||||
}
|
||||
|
||||
new_scene() {
|
||||
$TMUX2 neww -d "sh -c 'exec sleep 100'" || exit 1
|
||||
$TMUX2 selectw -t:\$ || exit 1
|
||||
$TMUX2 resizew -x40 -y8 || exit 1
|
||||
}
|
||||
|
||||
C="sh -c 'exec sleep 100'"
|
||||
|
||||
$TMUX kill-server 2>/dev/null
|
||||
$TMUX2 kill-server 2>/dev/null
|
||||
|
||||
$TMUX2 new -d -x40 -y8 "sh -c 'exec sleep 100'" || exit 1
|
||||
$TMUX2 set -g status off || exit 1
|
||||
$TMUX2 set -g window-size manual || exit 1
|
||||
|
||||
$TMUX new -d -x40 -y8 || exit 1
|
||||
$TMUX set -g status off || exit 1
|
||||
$TMUX set -g window-size manual || exit 1
|
||||
$TMUX set -g default-terminal "tmux-256color" || exit 1
|
||||
$TMUX send -l "$TMUX2 attach" || exit 1
|
||||
$TMUX send Enter || exit 1
|
||||
sleep 1
|
||||
|
||||
# Single pane with a window background style.
|
||||
new_scene
|
||||
$TMUX2 setw window-style "bg=blue" || exit 1
|
||||
compare window-style-single
|
||||
|
||||
# Split: the active pane uses window-active-style, the other window-style.
|
||||
new_scene
|
||||
$TMUX2 setw window-style "bg=blue" || exit 1
|
||||
$TMUX2 setw window-active-style "bg=red" || exit 1
|
||||
$TMUX2 splitw -h "$C" || exit 1
|
||||
$TMUX2 selectp -t0 || exit 1
|
||||
compare window-style-active
|
||||
|
||||
exit 0
|
||||
Reference in New Issue
Block a user