add working regression test

JohnoKing · Feb 22, 2024 · 2477aa4 · 2477aa4
1 parent 0ec29a9
commit 2477aa4
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/src/cmd/ksh93/tests/pty.sh b/src/cmd/ksh93/tests/pty.sh
@@ -1322,5 +1322,20 @@ c \Ek
 r ^:prompt: "\$SHELL" -o vi -c 'read -s "foo\?:prompt: "'$
 !
 
+((multiline && (SHOPT_VSH || SHOPT_ESH))) && TERM=vt100 tst $LINENO <<"!"
+L crash when TERM is undefined
+# https://github.com/ksh93/ksh/issues/722
+
+d 40
+p :test-1:
+w unset TERM
+p :test-2:
+w "$SHELL"
+p :test-3:
+w print Exit status $?
+r print
+r ^Exit status 0\r\n$
+!
+
 # ======
 exit $((Errors<125?Errors:125))