Test for pipe-pane.

regress/pipe-pane.sh

@@ -0,0 +1,52 @@
+#!/bin/sh
+
+# Tests of pipe-pane behaviour.
+
+PATH=/bin:/usr/bin
+TERM=screen
+LANG=C.UTF-8
+LC_ALL=C.UTF-8
+export TERM LANG LC_ALL
+
+[ -z "$TEST_TMUX" ] && TEST_TMUX=$(readlink -f ../tmux)
+TMUX="$TEST_TMUX -LtestA$$ -f/dev/null"
+$TMUX kill-server 2>/dev/null
+
+fail()
+{
+	echo "$1"
+	$TMUX kill-server 2>/dev/null
+	exit 1
+}
+
+check_ok()
+{
+	if ! $TMUX "$@"; then
+		fail "Command failed: $*"
+	fi
+}
+
+check_alive()
+{
+	if [ "$($TMUX display-message -p alive 2>&1)" != "alive" ]; then
+		fail "Server died"
+	fi
+}
+
+# A pipe-pane -I child may write after the pane process has exited. With
+# remain-on-exit, the pane stays around but its bufferevent has been freed.
+check_ok new-session -d -s pipe -x 80 -y 24 'sleep 0.2'
+check_ok set-option -t pipe:0 remain-on-exit on
+check_ok pipe-pane -t pipe:0.0 -I 'sleep 0.6; printf x'
+
+i=0
+while [ "$($TMUX display-message -p -t pipe:0.0 '#{pane_dead}')" != "1" ]; do
+	i=$((i + 1))
+	[ "$i" -gt 50 ] && fail "Pane did not die"
+	sleep 0.1
+done
+
+sleep 0.7
+check_alive
+
+$TMUX kill-server 2>/dev/null