Tests for 5661 etc, from Alexandre Fiori.

regress/cfg-client-free.sh

@@ -0,0 +1,51 @@
+#!/bin/sh
+
+# a client lost while the configuration is loading is freed
+
+PATH=/bin:/usr/bin
+TERM=screen
+
+[ -z "$TEST_TMUX" ] && TEST_TMUX=$(readlink -f ../tmux)
+
+TMPDIR=$(mktemp -d) || exit 1
+TMUX="$TEST_TMUX -S$TMPDIR/tmux.sock"
+
+cleanup()
+{
+	touch $TMPDIR/go
+	$TMUX kill-server 2>/dev/null
+	rm -rf "$TMPDIR"
+}
+trap cleanup 0 1 15
+
+# Poll until a command succeeds.
+wait_for()
+{
+	i=0
+	while ! "$@"; do
+		[ $i -eq 100 ] && exit 1
+		i=$((i + 1))
+		sleep 0.1
+	done
+}
+
+# The run-shell holds the configuration until the go file exists.
+cat <<EOF >$TMPDIR/conf
+new-session -d -s keep
+run-shell 'touch $TMPDIR/started; i=0; while [ ! -f $TMPDIR/go ] && [ \$i -lt 100 ]; do sleep 0.1; i=\$((i + 1)); done'
+EOF
+
+cd $TMPDIR || exit 1
+$TMUX -v -f$TMPDIR/conf new-session -d -s first </dev/null &
+pid=$!
+wait_for test -f $TMPDIR/started
+kill $pid
+wait $pid
+log=$(echo $TMPDIR/tmux-server-*.log)
+wait_for grep -q 'lost client' $log
+c=$(sed -n 's/.* lost client //p' $log)
+
+# The client is freed straight away, well before the configuration ends.
+wait_for grep -q "free client $c " $log
+
+exit 0