Test for EL and DL.

regress/input-lines-region.sh

@@ -0,0 +1,82 @@
+#!/bin/sh
+
+. ./input-common.inc
+
+for sync in off on; do
+	begin=
+	end=
+	if [ "$sync" = on ]; then
+		begin='\033[?2026h'
+		end='\033[?2026l'
+	fi
+	for op in L M; do
+		for row in 1 5; do
+			name="lines-$sync-$op-$row"
+			start_pane "$name" 8 6 \
+			    "111\033[2;1H222\033[3;1H333\033[4;1H444\033[5;1H555\033[6;1H666${begin}\033[2;4r\033[$row;3H\033[2$op\033[r${end}"
+			check_capture "$name" '111
+222
+333
+444
+555
+666'
+		done
+		for row in 2 4; do
+			name="lines-$sync-$op-margin-$row"
+			start_pane "$name" 8 6 \
+			    "111\033[2;1H222\033[3;1H333\033[4;1H444\033[5;1H555\033[6;1H666${begin}\033[2;4r\033[$row;1H\033[$op\033[r${end}"
+			case "$op-$row" in
+			L-2) expected='111
+
+222
+333
+555
+666' ;;
+			M-2) expected='111
+333
+444
+
+555
+666' ;;
+			*-4) expected='111
+222
+333
+
+555
+666' ;;
+			esac
+			check_capture "$name" "$expected"
+		done
+		name="lines-$sync-$op-clear"
+		start_pane "$name" 8 6 \
+		    "111\033[2;1H222\033[3;1H333\033[4;1H444\033[5;1H555\033[6;1H666${begin}\033[2;4r\033[2;1H\033[2$op\033[r${end}"
+		if [ "$op" = L ]; then
+			expected='111
+
+
+222
+555
+666'
+		else
+			expected='111
+444
+
+
+555
+666'
+		fi
+		check_capture "$name" "$expected"
+		name="lines-$sync-$op-clamp"
+		start_pane "$name" 8 6 \
+		    "111\033[2;1H222\033[3;1H333\033[4;1H444\033[5;1H555\033[6;1H666${begin}\033[2;4r\033[3;1H\033[99$op\033[r${end}"
+		check_capture "$name" '111
+222
+
+
+555
+666'
+	done
+done
+
+$TMUX kill-server 2>/dev/null
+exit $exit_status