Add two tests for cursor controls at last column

From https://invent.kde.org/utilities/konsole/-/merge_requests/510

Luis Javier Merino Morán <ninjalj@gmail.com>
wilder
Kurt Hindenburg 4 years ago
parent 733e78587f
commit 543b35b839
  1. 32
      tests/features/testdwlwrap.sh
  2. 30
      tests/features/testwrap.sh

@ -0,0 +1,32 @@
do_tests() {
tput cup 0 0; printf "$@"
for i in {0..16}; do tput cup $i 0; printf "\e#6"; done
tput cup 0 $((COLUMNS/2-1)); printf "AB"
tput cup 3 $((COLUMNS/2-1)); printf "A\bB"
tput cup 6 $((COLUMNS/2-1)); printf A; tput cud 1; printf B
tput cup 9 $((COLUMNS/2-1)); printf A; tput cuu 1; printf B
tput cup 12 $((COLUMNS/2-1)); printf A; tput cub 1; printf B
tput cup 15 $((COLUMNS/2-1)); printf A; tput cuf 1; printf B
tput cup 18 1; echo -n -- "-- Press RETURN to run next test --"
read
#sleep 5
}
clear; tput smam
do_tests "No Reverse Wrap - AutoWrap Mode"
clear; tput rmam
do_tests "No Reverse Wrap - No AutoWrap Mode"
clear; tput smam; printf "\e[?45h"
do_tests "Reverse Wrap - AutoWrap Mode"
clear; tput rmam; printf "\e[?45h"
do_tests "Reverse Wrap - No AutoWrap Mode"
clear; tput smam; printf "\e[?45l"

@ -0,0 +1,30 @@
do_tests() {
tput cup 0 0; printf "$@"
tput cup 0 $((COLUMNS-1)); printf "AB"
tput cup 3 $((COLUMNS-1)); printf "A\bB"
tput cup 6 $((COLUMNS-1)); printf A; tput cud 1; printf B
tput cup 9 $((COLUMNS-1)); printf A; tput cuu 1; printf B
tput cup 12 $((COLUMNS-1)); printf A; tput cub 1; printf B
tput cup 15 $((COLUMNS-1)); printf A; tput cuf 1; printf B
tput cup 18 1; echo -n -- "-- Press RETURN to run next test --"
read
#sleep 5
}
clear; tput smam
do_tests "No Reverse Wrap - AutoWrap Mode"
clear; tput rmam
do_tests "No Reverse Wrap - No AutoWrap Mode"
clear; tput smam; printf "\e[?45h"
do_tests "Reverse Wrap - AutoWrap Mode"
clear; tput rmam; printf "\e[?45h"
do_tests "Reverse Wrap - No AutoWrap Mode"
clear; tput smam; printf "\e[?45l"
Loading…
Cancel
Save