Tests for 5730 from Joan Fabrégat.

regress/input-combine-width.sh

@@ -0,0 +1,88 @@
+#!/bin/sh
+
+. ./input-common.inc
+
+# Exercise expansion by VS16, a skin tone modifier and a regional indicator.
+for kind in variation modifier flag; do
+	case "$kind" in
+	variation)
+		combine_seq='\342\234\224\357\270\217'
+		text='✔️'
+		;;
+	modifier)
+		combine_seq='\342\230\235\360\237\217\273'
+		text='☝🏻'
+		;;
+	flag)
+		combine_seq='\360\237\207\254\360\237\207\247'
+		text='🇬🇧'
+		;;
+	esac
+
+	start_pane "$kind-overwrite" 10 3 "A\347\225\214BC\r${combine_seq}X"
+	check_capture "$kind-overwrite" "${text}XBC"
+	check_cursor "$kind-overwrite" '3,0'
+	check_raw_matches "$kind-overwrite" \
+	    "C 0,0 data=\(2,[0-9]+,$text\) flags=NONE\[0\]" \
+	    'C 0,1 .*flags=PADDING\[[0-9a-f]+\]' \
+	    'C 0,2 data=\(1,1,X\) flags=NONE\[0\]'
+
+	start_pane "$kind-edge" 5 3 "abcd${combine_seq}X"
+	check_capture "$kind-edge" "abcd
+${text}X"
+	check_cursor "$kind-edge" '3,1'
+	check_raw_matches "$kind-edge" \
+	    'L 0 \(0\) flags=.*WRAPPED' \
+	    'C 0,4 data=\(1,1, \)' \
+	    "C 1,0 data=\(2,[0-9]+,$text\) flags=NONE\[0\]" \
+	    'C 1,1 .*flags=PADDING\[[0-9a-f]+\]' \
+	    'C 1,2 data=\(1,1,X\) flags=NONE\[0\]'
+
+	start_pane "$kind-fit" 5 3 "abc${combine_seq}X"
+	check_capture "$kind-fit" "abc${text}
+X"
+	check_cursor "$kind-fit" '1,1'
+
+	start_pane "$kind-scroll" 5 2 "11111\r\nabcd${combine_seq}X"
+	check_capture "$kind-scroll" "abcd
+${text}X"
+	check_cursor "$kind-scroll" '3,1'
+
+	start_pane "$kind-region" 5 4 \
+	    "top\033[2;1Hold\033[4;1Hend\033[2;3r\033[3;1Habcd${combine_seq}X"
+	check_capture "$kind-region" "top
+abcd
+${text}X
+end"
+	check_cursor "$kind-region" '3,2'
+
+	start_pane "$kind-insert" 10 3 "ABCDE\r\033[4h${combine_seq}X"
+	check_capture "$kind-insert" "${text}XABCDE"
+	check_cursor "$kind-insert" '3,0'
+
+	start_pane "$kind-insert-edge" 5 3 \
+	    "\033[2;1HABCDE\033[1;1Habcd\033[4h${combine_seq}X"
+	check_capture "$kind-insert-edge" "abcd
+${text}XAB"
+	check_cursor "$kind-insert-edge" '3,1'
+
+	start_pane "$kind-nowrap" 5 3 "\033[?7labc${combine_seq}"
+	check_capture "$kind-nowrap" "abc${text}"
+	check_cursor "$kind-nowrap" '4,0'
+	check_raw_matches "$kind-nowrap" \
+	    "C 0,3 data=\(2,[0-9]+,$text\) flags=NONE\[0\]" \
+	    'C 0,4 .*flags=PADDING\[[0-9a-f]+\]'
+done
+
+# A two-column cluster cannot fit in a one-column pane. Keep its narrow base.
+start_pane one-column 1 3 '\342\234\224\357\270\217'
+check_capture one-column '✔'
+check_cursor one-column '1,0'
+check_raw_no_matches one-column 'data=\(2,'
+
+# Without wrapping, even a wide cell filling the pane leaves the cursor inside.
+start_pane two-columns-nowrap 2 3 '\033[?7l\342\234\224\357\270\217'
+check_capture two-columns-nowrap '✔️'
+check_cursor two-columns-nowrap '1,0'
+
+exit $exit_status