copy-mode -S test.

regress/copy-mode-no-client-scroll.sh

@@ -0,0 +1,48 @@
+#!/bin/sh
+
+# copy-mode -S can be called from a hook without an attached client.
+
+PATH=/bin:/usr/bin
+TERM=screen
+export PATH TERM
+
+[ -z "$TEST_TMUX" ] && TEST_TMUX=$(readlink -f ../tmux)
+OUT=$(mktemp -d) || exit 1
+TMUX_TMPDIR=$OUT
+export TMUX_TMPDIR
+TMUX="$TEST_TMUX -LtestA$$ -f/dev/null"
+
+fail()
+{
+	echo "$*" >&2
+	exit 1
+}
+
+cleanup()
+{
+	$TMUX kill-server 2>/dev/null || true
+	rm -rf "$OUT"
+}
+trap cleanup EXIT
+trap 'exit 1' 1 2 3 15
+
+$TMUX new-session -d -s test 'sleep 300' || fail "new-session failed"
+$TMUX set -g remain-on-exit on || fail "setting remain-on-exit failed"
+$TMUX set-hook -g pane-died 'copy-mode -S' ||
+	fail "setting pane-died hook failed"
+$TMUX respawn-pane -k -t test:0 'exit 0' || fail "respawn-pane failed"
+
+i=0
+while [ "$i" -lt 50 ]; do
+	$TMUX has-session -t test 2>/dev/null || \
+		fail "server died in copy-mode -S"
+	[ "$($TMUX display-message -p -t test:0 '#{pane_dead}' 2>/dev/null)" = 1 ] && \
+		break
+	sleep 0.1
+	i=$((i + 1))
+done
+[ "$i" -lt 50 ] || fail "pane-died hook was not triggered"
+sleep 0.5
+$TMUX has-session -t test || fail "server died after copy-mode -S"
+
+exit 0