diff options
Diffstat (limited to 'tests/testsuite.at')
| -rw-r--r-- | tests/testsuite.at | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/testsuite.at b/tests/testsuite.at index 729b3c8..aba51a5 100644 --- a/tests/testsuite.at +++ b/tests/testsuite.at @@ -214,6 +214,17 @@ AT_SETUP([Jump to beginning of macro]) AT_CHECK([$SCITECO -e "%a-2\"< F< ' Qa-2\"N(0/0)'"], 0, ignore, ignore) AT_CLEANUP +# NOTE: It would generally be possible to use control codes like ^H (8) +# and ^W (23) for rubout as well, but this is tricky to write in a portable manner. +# Therefore we usally use the push/pop command-line commands { and }. +AT_SETUP([Rub out string append]) +AT_CHECK([$SCITECO_CMDLINE "@I/XXX/ H:Xa{-4D} :Qa-0\"N(0/0)'"], 0, ignore, ignore) +AT_CLEANUP + +AT_SETUP([Rub out of empty forward kill]) +AT_CHECK([$SCITECO_CMDLINE "@I/F/ J @I/X/ @FK/F/{-6D} Z-2\"N(0/0)'"], 0, ignore, ignore) +AT_CLEANUP + AT_BANNER([Known Bugs]) AT_SETUP([Number stack]) |