aboutsummaryrefslogtreecommitdiffhomepage
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/atlocal.in36
-rw-r--r--tests/testsuite.at559
2 files changed, 421 insertions, 174 deletions
diff --git a/tests/atlocal.in b/tests/atlocal.in
index 1992c54..b2ceda1 100644
--- a/tests/atlocal.in
+++ b/tests/atlocal.in
@@ -4,49 +4,36 @@ host=@host@
# built.
# Using the $BOOTSTRAP_SCITECO wouldn't make sense
# anyway as we don't want to test some preinstalled SciTECO.
-SCITECO="@abs_top_builddir@/src/sciteco"
+SCITECO="@LAUNCHER@ @abs_top_builddir@/src/sciteco@EXEEXT@"
if [ $at_arg_valgrind != false ]; then
SCITECO="valgrind --tool=memcheck --leak-check=full --error-exitcode=66 $SCITECO"
fi
-# For testing command-line editing:
-SCITECO_CMDLINE="$SCITECO --no-profile --fake-cmdline"
-
-# Control characters for testing immediate editing commands with $SCITECO_CMDLINE.
-# Often, we can use {...} for testing rubout, but sometimes this is not enough.
-# Directly embedding escapes into strings is not portable.
-# Theoretically, we could directly embed control codes, but for the time being
-# I am trying to keep non-TECO sources clean of non-printable characters.
-RUBOUT=`printf '\8'`
-RUBOUT_WORD=`printf '\27'`
-ESCAPE=`printf '\33'`
-
# Make sure that the standard library from the source package
# is used.
-SCITECOPATH="@abs_top_srcdir@/lib"
+export SCITECOPATH="@abs_top_srcdir@/lib"
-TECO_INTEGER=@TECO_INTEGER@
+# Some test cases may access files from the tests/ source directory.
+export srcdir
-MAXINT32=2147483647
-MININT32=-2147483648
-MAXINT64=9223372036854775807
-MININT64=-9223372036854775808
+TECO_INTEGER=@TECO_INTEGER@
+SCITECO_VERSION="@PACKAGE_VERSION@"
GREP="@GREP@"
# Glib debug options
-G_SLICE=debug-blocks
-G_ENABLE_DIAGNOSTIC=1
+export G_SLICE=debug-blocks
+export G_ENABLE_DIAGNOSTIC=1
# For the Unicode tests - makes sure that UTF-8 characters
# are accepted on command lines.
case $host in
*-*-darwin*)
- LC_ALL=`defaults read -g AppleLocale | @SED@ 's/@.*$//g'`.UTF-8
+ export LC_ALL=`defaults read -g AppleLocale | @SED@ 's/@.*$//g'`.UTF-8
;;
*)
- LC_ALL=C.UTF-8
+ export LC_ALL=C.UTF-8
;;
esac
@@ -54,6 +41,3 @@ esac
# Some platforms allow very large stack sizes, making it hard to test
# against potential stack overflows.
ulimit -s 8192
-
-# Test strings used by multiple test cases
-WORDS_EXAMPLE="navigating (words is useful"
diff --git a/tests/testsuite.at b/tests/testsuite.at
index b0ca8c0..f34eee3 100644
--- a/tests/testsuite.at
+++ b/tests/testsuite.at
@@ -1,155 +1,269 @@
AT_INIT
AT_COLOR_TESTS
+# Will usually be called as
+# make check TESTSUITEFLAGS=--valgrind
AT_ARG_OPTION([valgrind],
AS_HELP_STRING([--valgrind], [Run tests under Valgrind (memcheck)]))
-# NOTE: There is currently no way to influence the return
-# code of SciTECO, except to provoke an error.
-# Since errors cannot be yielded explicitly, we use the
-# idiom "(0/0)" to enforce a "Division by zero" error
-# whenever we want to fail.
+# NOTE: We could use 1^C or 1^C^C to get an unsuccessful return code.
+# However, this won't print any stack trace or error message.
+# Therefore, we still use the idiom "(0/0)" to enforce a "Division by zero"
+# error whenever we want to fail.
+# A proper error throwing construct should be used instead once it's available.
#
-# NOTE: Square brackets are significant for M4 but
-# often required in TECO code as well.
-# We therefore use double brackets [[ ... ]]
-# (translated to [ ... ]) in simple cases where balanced
-# brackets are required in TECO code as well and
-# quadrigraphs (@<:@ and @:>@) in all other cases.
-# Single round brackets also have to be replaced with the
-# quadrigraphs @{:@ and @:}@.
-
-AT_BANNER([Features])
+# NOTE: By convention, we double quote the SciTECO test case
+# snippets, ie. put them between [[ and ]].
+# The advantage is that single brackets are preserved and do not
+# have to be written as quadrigraphs.
+# Single brackets must still be balanced, so if you need an unbalanced
+# opening or closing bracket, you can add a ![! or !]! TECO comment
+# to balance the braces from the viewpoint of M4.
+# Round braces are preserved and do not have to be balanced.
+# Most test cases can use the TE_CHECK() macro below, which takes
+# care of escaping shell constructs.
+# Effectively, you can put arbitrary TECO code into TE_CHECK([[...]])
+# calls and only have to take additional actions in case of unbalanced
+# square brackets.
+
+m4_define([TE_CHECK], [
+ AT_CHECK([$SCITECO --quiet --eval ']m4_bpatsubst([[$1]], ['], ['\\''])['], [$2], [$3], [$4])
+])
+m4_define([TE_CHECK_CMDLINE], [
+ AT_CHECK([$SCITECO --quiet --no-profile --fake-cmdline ']m4_bpatsubst([[$1]], ['], ['\\''])['], [$2], [$3], [$4])
+])
+
+# Control characters for testing immediate editing commands with TE_CHECK_CMDLINE().
+# Often, we can use {...} for testing rubout, but sometimes this is not enough.
+# Theoretically, we could directly embed control codes, but for the time being
+# I am trying to keep non-TECO sources clean of non-printable characters.
+m4_define([TE_ESCAPE], [m4_format([%c], 27)])
+m4_define([TE_RUBOUT], [m4_format([%c], 8)])
+m4_define([TE_RUBOUT_WORD], [m4_format([%c], 23)])
+
+AT_BANNER([Language features])
AT_SETUP([Number stack])
-AT_CHECK([$SCITECO -e "2%a,%a - 3\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[2%a,%a - 3"N(0/0)' $]], 0, ignore, ignore)
# It's not quite clear what would be the best semantics for comma:
# a) Superfluous commas as in ",," or "(1,)" should be an error.
# b) Superfluous commas should be ignored which is effectively what we do now.
# Even then it might be advisable to treat (1,) like (1).
# c) The empty "list" element is equivalent to 0, so
# "1,,2" is equivalent to "1,0,2" and (1,) to (1,0).
-AT_CHECK([$SCITECO -e "(1,) \"~|(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "1,(2)=="], 0, ignore, ignore)
+TE_CHECK([[(1,) "~|(0/0)']], 0, ignore, ignore)
+TE_CHECK([[1,(2)= =]], 0, ignore, ignore)
+AT_CLEANUP
+
+AT_SETUP([Exit status])
+TE_CHECK([[23]], 23, ignore, ignore)
+TE_CHECK([[42^C (0/0)]], 42, ignore, ignore)
+TE_CHECK([[13$$ (0/0)]], 13, ignore, ignore)
+TE_CHECK([[@^Um{9^C^C} Mm (0/0)]], 9, ignore, ignore)
AT_CLEANUP
AT_SETUP([Radix])
-AT_CHECK([$SCITECO -e "0^R"], 1, ignore, ignore)
-AT_CHECK([$SCITECO -e "0U.^R"], 1, ignore, ignore)
-AT_CHECK([$SCITECO -e "23 (2^R)\^D .-5\"N(0/0)"], 0, ignore, ignore)
+TE_CHECK([[0^R]], 1, ignore, ignore)
+TE_CHECK([[0U.^R]], 1, ignore, ignore)
+TE_CHECK([[23 (2^R)\^D .-5"N(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Exponentiation])
-AT_CHECK([$SCITECO -e "-1^*0 - (-1)\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "-1^*-5 - (-1)\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "0^*-5="], 1, ignore, ignore)
-AT_CHECK([$SCITECO -e "0^*0 - 1\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "1^*-5 - 1\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "2^*-5 - 0\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[-1^*0 - (-1)"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[-1^*-5 - (-1)"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[0^*-5=]], 1, ignore, ignore)
+TE_CHECK([[0^*0 - 1"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[1^*-5 - 1"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[2^*-5 - 0"N(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Missing left operand])
-AT_CHECK([$SCITECO -e '+23='], 1, ignore, ignore)
+TE_CHECK([[+23=]], 1, ignore, ignore)
AT_CLEANUP
AT_SETUP([Operator precedence])
-AT_CHECK([$SCITECO -e "(10-2-3)-5\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "(1-6*5)+29\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "(1-6*5-1)+30\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "(1-6*5-1*2*2)+33\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[(10-2-3)-5"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[(1-6*5)+29"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[(1-6*5-1)+30"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[(1-6*5-1*2*2)+33"N(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Modifiers])
-AT_CHECK([$SCITECO -e '@:W$ :@W$'], 0, ignore, ignore)
+TE_CHECK([[@:W$ :@W$]], 0, ignore, ignore)
# Detect invalid modifiers
-AT_CHECK([$SCITECO -e '@J'], 1, ignore, ignore)
-AT_CHECK([$SCITECO -e ': '], 1, ignore, ignore)
-AT_CHECK([$SCITECO -e '::C$'], 1, ignore, ignore)
+TE_CHECK([[@J]], 1, ignore, ignore)
+TE_CHECK([[: ]], 1, ignore, ignore)
+TE_CHECK([[::C$]], 1, ignore, ignore)
AT_CLEANUP
AT_SETUP([Closing loops at the correct macro level])
-AT_CHECK([$SCITECO -e '@^Ua{>} <Ma'], 1, ignore, ignore)
+TE_CHECK([[@^Ua{>} <Ma]], 1, ignore, ignore)
AT_CLEANUP
AT_SETUP([Braces in loops])
-AT_CHECK([$SCITECO -e "1<23@{:@42>"], 1, ignore, ignore)
-AT_CHECK([$SCITECO -e "1<23(1;)> \"~|(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[1<23(42>]], 1, ignore, ignore)
+TE_CHECK([[1<23(1;)> "~|(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Pass-through loops])
# NOTE: This requires the <=>, so that values get consumed from the stack.
# More elegant would be a command for popping exactly one argument like <:$>.
-AT_CHECK([$SCITECO -e "1,2,3,-1:<\"~1;'%a=> Qa-6\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "1,2,3,-1:<\"~1;'%a= F>(0/0)> Qa-6\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "3<%a:>-3\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "3<%a :F>(0/0):>-3\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[1,2,3,-1:<"~1;'%a=> Qa-6"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[1,2,3,-1:<"~1;'%a= F>(0/0)> Qa-6"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[3<%a:>-3"N(0/0)' $]], 0, ignore, ignore)
+TE_CHECK([[3<%a :F>(0/0):>-3"N(0/0)' $]], 0, ignore, ignore)
+AT_CLEANUP
+
+AT_SETUP([Gotos and labels])
+TE_CHECK([[@O//]], 1, ignore, ignore)
+TE_CHECK([[^^XUq @O/s.^EUq/ (0/0) !s.X!]], 0, ignore, ignore)
+TE_CHECK([[:@O/foo/]], 0, ignore, ignore)
+TE_CHECK([[1@O/foo,bar/ (0/0) !bar!]], 0, ignore, ignore)
+# No-op gotos
+TE_CHECK([[-1@O/foo/ 1@O/foo/ @O/,foo/]], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([String arguments])
-AT_CHECK([$SCITECO -e $'Ifoo^Q\e(0/0)\e'], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e '@I"foo^Q"(0/0)"'], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e '@I{foo{bar}foo^Q{(0/0)}'], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e '@Ia^EQa(0/0)a'], 0, ignore, ignore)
-# TODO: String building characters
+TE_CHECK([[Ifoo^Q]]TE_ESCAPE[[(0/0)]]TE_ESCAPE, 0, ignore, ignore)
+TE_CHECK([[@I"foo^Q"(0/0)"]], 0, ignore, ignore)
+TE_CHECK([[@I{foo{bar}foo^Q{(0/0)}]], 0, ignore, ignore)
+TE_CHECK([[@^Ua
+ {12345} :Qa-5"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@I/X/ H@FR{X}/12345/ Z-5"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@Ia^EQa(0/0)a]], 0, ignore, ignore)
+# Video-TECO-like syntax - might change in the future
+TE_CHECK([[@I/^E<65>^E<0x41>^E<0101>/ <-A:; -A-^^A"N(0/0)' R>]], 0, ignore, ignore)
+# TODO: More string building constructs
AT_CLEANUP
AT_SETUP([Q-Register definitions])
-AT_CHECK([$SCITECO -e '0Ua'], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e '0U.a'], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e '0U.^X'], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e '0U#ab'], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e '0U.#ab'], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e '0U[[AB]]'], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e '0U.[[AB]]'], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e '0U[[AB^Q@:>@(0/0)]]'], 0, ignore, ignore)
+TE_CHECK([[0Ua]], 0, ignore, ignore)
+TE_CHECK([[0U.a]], 0, ignore, ignore)
+TE_CHECK([[0U.^X]], 0, ignore, ignore)
+TE_CHECK([[0U#ab]], 0, ignore, ignore)
+TE_CHECK([[0U.#ab]], 0, ignore, ignore)
+TE_CHECK([[0U[AB] ]], 0, ignore, ignore)
+TE_CHECK([[0U.[AB] ]], 0, ignore, ignore)
+TE_CHECK([[![! 0U[AB^Q](0/0)] ]], 0, ignore, ignore)
# TODO: String building in Q-Register definitions
AT_CLEANUP
AT_SETUP([Copy, append and cut to Q-Registers])
-AT_CHECK([$SCITECO -e "@I/12^J123/J Xa :Xa L-:@Xa :Qa-9\"N(0/0)' Z-3\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "@I/ABCDE/ 1,4Xa 0,3:Xa 3,5:@Xa :Qa-8\"N(0/0)' Z-3\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[@I/12^J123/J Xa :Xa L-:@Xa :Qa-9"N(0/0)' Z-3"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@I/ABCDE/ 1,4Xa 0,3:Xa 3,5:@Xa :Qa-8"N(0/0)' Z-3"N(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Q-Register stack])
-AT_CHECK([$SCITECO -e "[[a 23Ub ]]b Qb\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[ [a 23Ub ]b Qb"N(0/0)']], 0, ignore, ignore)
# FG will temporarily change the working directory to tests/testsuite.dir.
-AT_CHECK([$SCITECO -e "[[\$ @FG'..' ]]\$ :Q\$-1Q\$-^^r\"=(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "[[: @I/XXX/ ]]: .\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[ [$ @FG'..' ]$ :Q$-1Q$-^^r"=(0/0)']], 0, ignore, ignore)
+TE_CHECK([[ [: @I/XXX/ ]: ."N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[ [a :]a"F(0/0)' ![! :]a"S(0/0)']], 0, ignore, ignore)
AT_CLEANUP
+m4_define([TE_MAXINT32], [2147483647])
+m4_define([TE_MININT32], [-2147483648])
+m4_define([TE_MAXINT64], [9223372036854775807])
+m4_define([TE_MININT64], [-9223372036854775808])
+
+# TODO: Also check different radixes.
AT_SETUP([Formatting numbers])
# MAXINT32/MININT32: should always work.
-AT_CHECK([$SCITECO -e "$MAXINT32\\ J::@S/$MAXINT32/\"F(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "$MININT32\\ J::@S/$MININT32/\"F(0/0)'"], 0, ignore, ignore)
+TE_CHECK(TE_MAXINT32[[\ J::@S/]]TE_MAXINT32[[/"F(0/0)']], 0, ignore, ignore)
+TE_CHECK(TE_MININT32[[\ J::@S/]]TE_MININT32[[/"F(0/0)']], 0, ignore, ignore)
AT_SKIP_IF([test $TECO_INTEGER -lt 64])
-AT_CHECK([$SCITECO -e "$MAXINT64\\ J::@S/$MAXINT64/\"F(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "$MININT64\\ J::@S/$MININT64/\"F(0/0)'"], 0, ignore, ignore)
+TE_CHECK(TE_MAXINT64[[\ J::@S/]]TE_MAXINT64[[/"F(0/0)']], 0, ignore, ignore)
+TE_CHECK(TE_MININT64[[\ J::@S/]]TE_MININT64[[/"F(0/0)']], 0, ignore, ignore)
AT_CLEANUP
# This should always work, at least on systems with a two's complement
# representation of negative integers.
# We will probably never meet anything else, but at least we check.
AT_SETUP([Integer comparisons])
-AT_CHECK([$SCITECO -e "($MAXINT32)-($MAXINT32)\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "($MININT32)-($MININT32)\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[(]]TE_MAXINT32[[)-(]]TE_MAXINT32[[)"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[(]]TE_MININT32[[)-(]]TE_MININT32[[)"N(0/0)']], 0, ignore, ignore)
AT_SKIP_IF([test $TECO_INTEGER -lt 64])
-AT_CHECK([$SCITECO -e "($MAXINT64)-($MAXINT64)\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "($MININT64)-($MININT64)\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[(]]TE_MAXINT64[[)-(]]TE_MAXINT64[[)"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[(]]TE_MININT64[[)-(]]TE_MININT64[[)"N(0/0)']], 0, ignore, ignore)
+AT_CLEANUP
+
+AT_SETUP([Piping from stdin to stdout])
+AT_DATA([expout], [[ТЕСТ
+]])
+# Also tests case-folding via ^W^W.
+AT_CHECK([[echo 'тест' | $SCITECO -qioe 'H@Xa @I/^W^W^EQa/']], 0, expout, ignore)
+AT_CLEANUP
+
+AT_SETUP([Printing numbers])
+# Must print only one hexadecimal number.
+AT_DATA([expout], [[FF
+]])
+TE_CHECK([[255===]], 0, expout, ignore)
+# Without LF: No line will be counted.
+TE_CHECK([[255:===]], 0, stdout, ignore)
+AT_FAIL_IF([test `wc -l <stdout` -ne 0])
+# Will print a decimal, octal and 2 hexadecimal numbers.
+AT_DATA([expout], [[255
+377
+FF
+FF
+]])
+TE_CHECK_CMDLINE([[2<255===>]], 0, expout, ignore)
+AT_DATA([expout], [[255
+255
+255
+]])
+TE_CHECK_CMDLINE([[3<255=>]], 0, expout, ignore)
+AT_CLEANUP
+
+AT_SETUP([Printing strings])
+AT_DATA([expout], [[TEST
+Line 2
+]])
+TE_CHECK([[@^A/TEST^JLine 2^J/]], 0, expout, ignore)
+AT_CLEANUP
+
+AT_SETUP([Type out buffer contents])
+AT_DATA([expout], [[Line 1
+Line 2
+Line 3
+]])
+TE_CHECK([[@EB'expout' HT]], 0, expout, ignore)
+AT_CLEANUP
+
+AT_SETUP([Type out and get char])
+AT_DATA([expout], [[ТЕСТ
+]])
+TE_CHECK([[1058,1045,1057,1058,10^T]], 0, expout, ignore)
+AT_DATA([expout], [[1058
+1045
+1057
+1058
+]])
+AT_CHECK([[printf "ТЕСТ" | $SCITECO -qe '<^TUa Qa:; Qa=>']], 0, expout, ignore)
+# Writing to stdout should not perform any unexpected EOL translations.
+# When using --stdin/--stdout, we can rely on the builtin EOL normalization.
+TE_CHECK([[10^T]], 0, stdout, ignore)
+TE_CHECK([[16,0ED @EB/stdout/ Z-1"N(0/0)' 0A-10"N(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Convert between line and glyph positions])
-AT_CHECK([$SCITECO -e "@I/1^J2^J3/J 2^QC :^Q-3\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[@I/1^J2^J3/J 2^QC :^Q-3"N(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Moving by words])
-AT_CHECK([$SCITECO -e "3J 2W @P .-17\"N(0/0)'" "$WORDS_EXAMPLE"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "@I/foo ^J bar/ JW @W .-Z\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "Z-4J 3P .-12\"N(0/0)'" "$WORDS_EXAMPLE"], 0, ignore, ignore)
+AT_DATA([words-example.txt], [[navigating (words is useful
+]])
+TE_CHECK([[@EB'words-example.txt' 3J 2W @P .-17"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@I/foo ^J bar/ JW @W .-Z"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@EB'words-example.txt' Z-4J 3P .-12"N(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Deleting words])
-AT_CHECK([$SCITECO -e "3J 2V .-3\"N(0/0)' @V Z-11\"N(0/0)'" "$WORDS_EXAMPLE"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "Z-4J 2Y .-18\"N(0/0)' 2C @Y Z-19\"N(0/0)'" "$WORDS_EXAMPLE"], 0, ignore, ignore)
+AT_DATA([words-example.txt], [[navigating (words is useful
+]])
+TE_CHECK([[@EB'words-example.txt' 3J 2V .-3"N(0/0)' @V Z-11"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@EB'words-example.txt' Z-4J 2Y .-18"N(0/0)' 2C @Y Z-19"N(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Searches])
@@ -157,73 +271,142 @@ AT_SETUP([Searches])
# by a 2nd character. It can be quoted, but cannot be written as Caret+E.
# You also cannot search for a single ASCII 5 using Caret+E.
# 2 additional ^Q are translated to a single ^Q and interpreted at the search-pattern layer.
-AT_CHECK([$SCITECO -e "@I/^Q\05/ J @:S/^Q^Q^Q\05/\"F(0/0)'"], 0, ignore, ignore)
+TE_CHECK(m4_format([[@I/^Q%c/ J @:S/^Q^Q^Q%c/"F(0/0)']], 5, 5), 0, ignore, ignore)
# Canse-sensitive search
-AT_CHECK([$SCITECO -e "@I/XXX/J -^X @:S/xxx/\"S(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[@I/XXX/J -^X @:S/xxx/"S(0/0)']], 0, ignore, ignore)
# Search mode should be local to the macro frame.
-AT_CHECK([$SCITECO -e "-^X @^Um{^X} Mm-0\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "@I/XYZ/ J ::@S/X/\"F(0/0)' H::@S/Z/\"S(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[-^X @^Um{^X} Mm-0"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@I/XYZ/ J ::@S/X/"F(0/0)' H::@S/Z/"S(0/0)']], 0, ignore, ignore)
+AT_CLEANUP
+
+AT_SETUP([Searches over buffer boundaries])
+TE_CHECK([[@I/XYZ/J @EB/foo/ @I/XZY/J @:N/Z/"F(0/0)' Q*-2"N(0/0)'
+ @:N//"F(0/0)' Q*-1"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@I/XYZ/J @EB/foo/ @I/XZY/J @:FN/Z/0/"F(0/0)' Q*-2"N(0/0)'
+ @:FN///"F(0/0)' Q*-1"N(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Search and insertion ranges])
-AT_CHECK([$SCITECO -e "@I/XXYYZZ/^SC .\"N(0/0)' C @S/YY/^YU1U0 Q0-2\"N(0/0)' Q1-4\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "@I/XXYYZZ/J @S/XX^E[[^EMY]]/ 1^YXa :Qa-2\"N(0/0)'"], 0, ignore, ignore)
+# When deleting characters, the result of ^S/^Y must not change.
+TE_CHECK([[@I/XXYYZZ/^SC ."N(0/0)' C @S/YY/ HK ^YU1U0 Q0-2"N(0/0)' Q1-4"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@I/XXYYZZ/J @S/XX^E[^EMY]/ 1^YXa :Qa-2"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@I/XXYYZZ/J @FD/^EMZ/ ^S+2"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@I/ABCDEF/J @^U-/1234/ @FR/ABC// ^S+4"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@I/ABCDEF/J @FS/ABC/1234/ ^S+4"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@^Ua/XYZ/ Ga ^S+3"N(0/0)']], 0, ignore, ignore)
+# NOTE: EN currently inserts another trailing linefeed.
+TE_CHECK([[@EN/*/XYZ/ ^S+4"N(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Editing local registers in macro calls])
-AT_CHECK([$SCITECO -e '@^Ua{@EQ.x//} :Ma @^U.x/FOO/'], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e '@^Ua{@EQ.x//} Ma @^U.x/FOO/'], 1, ignore, ignore)
-AT_CHECK([$SCITECO -e '@^Ua{@EQ.x// Mb Q*U*} Ma'], 0, ignore, ignore)
+TE_CHECK([[@^Ua{@EQ.x//} :Ma @^U.x/FOO/]], 0, ignore, ignore)
+TE_CHECK([[@^Ua{@EQ.x//} Ma @^U.x/FOO/]], 1, ignore, ignore)
+TE_CHECK([[@^Ua{@EQ.x// Mb Q*U*} Ma]], 0, ignore, ignore)
+AT_CLEANUP
+
+# This is also for detecting leaks under Valgrind.
+AT_SETUP([Unterminated commands])
+TE_CHECK([[G[foo^Q] ]], 1, ignore, ignore)
+TE_CHECK([[!foo ]], 1, ignore, ignore)
+TE_CHECK([[^Ua ]], 1, ignore, ignore)
+TE_CHECK([[EGa ]], 1, ignore, ignore)
AT_CLEANUP
AT_SETUP([Loading files into Q-Registers])
-AT_CHECK([$SCITECO -e "@I/../ @EW/loadqreg.txt/ @EQa/loadqreg.txt/ :Qa-2\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[@I/../ @EW/loadqreg.txt/ @EQa/loadqreg.txt/ :Qa-2"N(0/0)']], 0, ignore, ignore)
# Does the same as FG..$. Afterwards, the parent directory should be shorter.
-AT_CHECK([$SCITECO -e ":Q\$Ul @EQ\$/loadqreg.txt/ :Q\$-Ql+1\">(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[:Q$Ul @EQ$/loadqreg.txt/ :Q$-Ql+1">(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Saving Q-Registers contents to files])
-AT_CHECK([$SCITECO -e "@^Ua/test/ @E%a/saveqreg.txt/ @EB/saveqreg.txt/ Z-4\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "@E%\$/saveqreg.txt/ @EB/saveqreg.txt/ Z-:Q\$\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[@^Ua/test/ @E%a/saveqreg.txt/ @EB/saveqreg.txt/ Z-4"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@E%$/saveqreg.txt/ @EB/saveqreg.txt/ Z-:Q$"N(0/0)']], 0, ignore, ignore)
+AT_CLEANUP
+
+AT_SETUP([Saving documents])
+TE_CHECK([[@I/test/ @EW/savebuf.txt/ :Q*"=(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@I/test/ @EB/foo/ 1@EW/savebuf.txt/]], 0, ignore, ignore)
+AT_CHECK([test `wc -c <savebuf.txt` -eq 4], 0, ignore, ignore)
+TE_CHECK([[@EQa// @I/XYZ/ @EW/saveqreg.txt/ @EB/saveqreg.txt/ ::@S/XYZ/"F(0/0)']], 0, ignore, ignore)
+AT_CLEANUP
+
+AT_SETUP([Opening/closing buffers])
+TE_CHECK([[@EB/foo/ @I/XXX/ -EF :Q*"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@EB/foo/ @I/XXX/ :EF :Q*"N(0/0)' @EB/foo/ Z-3"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@EB/foo/ 1EF :Q*"=(0/0)']], 0, ignore, ignore)
+# Open by id
+TE_CHECK([[1@EB//]], 0, ignore, ignore)
+TE_CHECK([[1@EB/foo/]], 1, ignore, ignore)
+AT_CLEANUP
+
+AT_SETUP([Read file into current buffer])
+AT_DATA([test.txt], [[0123456789
+]])
+TE_CHECK([[@I/Helloworld/5R @ER"test.txt" .-5-11"N(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([8-bit cleanliness])
-AT_CHECK([$SCITECO -e "0@I//J 0A\"N(0/0)' :@S/^@/\"F(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "@EQa//0EE 1U*0EE 0:@EUa/f^@^@/ :Qa-4\"N(0/0)' Ga Z-4\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "0EE 129@I// -A-129\"N(0/0)' HXa @EQa// EE\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -8e "129@:^Ua// 0Qa-129\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "1EE 167Ua @I/^EUa/ .-1\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -8e "194Ua Qa@I//J :@S/^EUa/\"F(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[0@I//J 0A"N(0/0)' :@S/^@/"F(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@EQa//0EE 1U*0EE 0:@EUa/f^@^@/ :Qa-4"N(0/0)' Ga Z-4"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[0EE 129@I// -A-129"N(0/0)' HXa @EQa// EE"N(0/0)']], 0, ignore, ignore)
+AT_CHECK([[$SCITECO -8e "129@:^Ua// 0Qa-129\"N(0/0)'"]], 0, ignore, ignore)
+TE_CHECK([[1EE 167Ua @I/^EUa/ .-1"N(0/0)']], 0, ignore, ignore)
+AT_CHECK([[$SCITECO -8e "194Ua Qa@I//J :@S/^EUa/\"F(0/0)'"]], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Unicode])
-AT_CHECK([$SCITECO -e "8594@I/Здравствуй, мир!/ Z-17\"N(0/0)' J0A-8594\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "8594@^Ua/Здравствуй, мир!/ :Qa-17\"N(0/0)' 0Qa-8594\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "@I/Здравствуй, мир!/ JW .-12\"N(0/0)' ^E-22\"N(0/0)' 204:EE .-12\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "@I/TEST/ @EW/юникод.txt/"], 0, ignore, ignore)
-AT_CHECK([test -f юникод.txt], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "^^ß-223\"N(0/0) 23Uъ Q[Ъ]-23\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "@O/метка/ !метка!"], 0, ignore, ignore)
+TE_CHECK([[8594,8592@I/Здравствуй, мир!/ Z-18"N(0/0)' J0A-8594"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[8594,8592@^Ua/Здравствуй, мир!/ :Qa-18"N(0/0)' 0Qa-8594"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@I/Здравствуй, мир!/ JW .-12"N(0/0)' ^E-22"N(0/0)' 204:EE .-12"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@I/TEST/ @EW/юникод.txt/]], 0, ignore, ignore)
+AT_CHECK([[test -f юникод.txt]], 0, ignore, ignore)
+TE_CHECK([[^^ß-223"N(0/0)' 23Uъ Q[Ъ]-23"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@O/метка/ !метка!]], 0, ignore, ignore)
+
+# Test the "error" return codes of <A>:
+TE_CHECK([[0EE 255@I/A/J 65001EE 0A-(-2)"N(0/0)' 1A-^^A"N(0/0)' 2A-(-1)"N(0/0)']], 0, ignore, ignore)
+# FIXME: Byte 128 should probably return -3 (incomplete sequence).
+TE_CHECK([[@EQa// 0EE 128@I/A/J 65001EE 0Qa-(-2)"N(0/0)' 1Qa-^^A"N(0/0)' 2Qa-(-1)"N(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Automatic EOL normalization])
-AT_CHECK([$SCITECO -e "@EB'${srcdir}/autoeol-input.txt' EL-2\"N(0/0)' 2LR 13@I'' 0EL @EW'autoeol-sciteco.txt'"],
+TE_CHECK([[@EB'^EQ[$srcdir]/autoeol-input.txt' EL-2"N(0/0)' 2LR 13@I'' 0EL @EW'autoeol-sciteco.txt']],
0, ignore, ignore)
-AT_CHECK([cmp autoeol-sciteco.txt ${srcdir}/autoeol-output.txt], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "@EB'autoeol-sciteco.txt' EL-0\"N(0/0)' 2EL @EW''"], 0, ignore, ignore)
-AT_CHECK([cmp autoeol-sciteco.txt ${srcdir}/autoeol-input.txt], 0, ignore, ignore)
+AT_CHECK([[cmp autoeol-sciteco.txt ${srcdir}/autoeol-output.txt]], 0, ignore, ignore)
+TE_CHECK([[@EB'autoeol-sciteco.txt' EL-0"N(0/0)' 2EL @EW'']], 0, ignore, ignore)
+AT_CHECK([[cmp autoeol-sciteco.txt ${srcdir}/autoeol-input.txt]], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Memory limiting])
-AT_CHECK([$SCITECO -e "50*1000*1000,2EJ <@<:@a>"], 1, ignore, ignore)
+# FIXME: Requires too much time and memory at least when running in a CI job on my fmsbw.de server
+# (.fmsbw/10-freebsd14-sciteco).
+AT_SKIP_IF([test $at_arg_valgrind != false])
+TE_CHECK([[50*1000*1000,2EJ <[a> !]!]], 1, ignore, ignore)
+AT_CLEANUP
+
+AT_SETUP([Change working directory])
+TE_CHECK([[:Q$Ul @FG'..' Ql-:Q$-1"<(0/0)']], 0, ignore, ignore)
+TE_CHECK([[:Q$Ul :@^U$'/..' Ql-:Q$-1"<(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Execute external command])
# TODO: It would be a better test to generate a random number of bytes.
# Unfortunately, neither $RANDOM, shuf nor jot are portable.
# So we have to wait until SciTECO supports a random number generator.
-AT_CHECK([$SCITECO -e "@EC'dd if=/dev/zero bs=512 count=1' Z= Z-512\"N(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e "0,128ED @EC'dd if=/dev/zero bs=512 count=1' Z= Z-512\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[@EC'dd if=/dev/zero bs=512 count=1' Z= Z-512"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[0,128ED @EC'dd if=/dev/zero bs=512 count=1' Z= Z-512"N(0/0)']], 0, ignore, ignore)
+TE_CHECK([[@I/hello/ H@EC'tr a-z A-Z' J<0A"V(0/0)' :C;>]], 0, ignore, ignore)
+TE_CHECK([[@I/hello^J/ -@EC'tr a-z A-Z' J<0A"V(0/0)' :C;>]], 0, ignore, ignore)
+AT_CLEANUP
+
+AT_SETUP([Timestamps])
+# TODO: Test the date (^B) and time (^H and :^H) variants as well.
+TE_CHECK([[::^HUt 100^W (::^H-Qt)-100"<(0/0)']], 0, ignore, ignore)
+AT_CLEANUP
+
+AT_SETUP([Program version])
+TE_CHECK([[EO/10000\@I"." EO/100^/100\@I"." EO^/100\ HT]], 0, stdout, ignore)
+AT_FAIL_IF([test "`cat stdout`" != "$SCITECO_VERSION"])
AT_CLEANUP
#
@@ -236,68 +419,118 @@ AT_CLEANUP
#
AT_SETUP([Rub out with immediate editing commands])
# Must rub out @, but not the colon from the Q-Reg specification.
-AT_CHECK([$SCITECO_CMDLINE "Q:@I/XXX/ ${RUBOUT_WORD}{Z-2\"N(0/0)'}"], 0, ignore, stderr)
+TE_CHECK_CMDLINE([[Q:@I/XXX/ ]]TE_RUBOUT_WORD[[{Z-2"N(0/0)'}]], 0, ignore, stderr)
AT_FAIL_IF([$GREP "^Error:" stderr])
# Should not rub out @ and : characters.
-AT_CHECK([$SCITECO_CMDLINE "@I/ @:foo ${RUBOUT_WORD}/ Z-3\"N(0/0)'"], 0, ignore, stderr)
+TE_CHECK_CMDLINE([[@I/ @:foo ]]TE_RUBOUT_WORD[[/ Z-3"N(0/0)']], 0, ignore, stderr)
AT_FAIL_IF([$GREP "^Error:" stderr])
AT_CLEANUP
+AT_SETUP([Disallowed interactive commands])
+# Command-line termination while editing the replacement register would
+# be hard to recover from.
+TE_CHECK_CMDLINE([[{$$}]], 0, ignore, stderr)
+AT_FAIL_IF([! $GREP "^Error:" stderr])
+# ^C interruption should not terminate the command-line accidentally.
+TE_CHECK_CMDLINE([[^C]], 0, ignore, stderr)
+AT_FAIL_IF([! $GREP "^Error:" stderr])
+# ^C^C is generally disallowed in interactive mode.
+TE_CHECK_CMDLINE([[@^Um{^C^C} Mm]], 0, ignore, stderr)
+AT_FAIL_IF([! $GREP "^Error:" stderr])
+AT_CLEANUP
+
+AT_BANNER([Standard library])
+
+AT_SETUP([Option parser])
+AT_CHECK([[$SCITECO -e "@EI'^EQ[\$SCITECOPATH]/getopt.tes' @^U[optstring]/XY/ M[getopt]-3\"N(0/0)' \
+ Q[getopt.X]+1\"N(0/0)' :Q[^A3]-2\"N(0/0)' :Q[^A4]-6\"N(0/0)'" \
+ -- -X -- -Y foobar]], 0, ignore, ignore)
+AT_CHECK([[$SCITECO -e "@EI'^EQ[\$SCITECOPATH]/getopt.tes' @^U[optstring]/F:z::X/ M[getopt]-4\"N(0/0)' \
+ Q[getopt.X]+1\"N(0/0)' :Q[getopt.F]-8\"N(0/0)' :Q[getopt.z]\"N(0/0)'" \
+ -- -X -Ffilename -z]], 0, ignore, ignore)
+AT_CLEANUP
+
+AT_SETUP([Command line opener])
+AT_DATA([data.123], [0123456789
+9876543210
+])
+AT_CHECK([[$SCITECO -e "@EI'^EQ[\$SCITECOPATH]/opener.tes' M[opener] EF .-13\"N(0/0)'" +2,3 data.123]], 0, ignore, ignore)
+AT_CHECK([[$SCITECO -e "@EI'^EQ[\$SCITECOPATH]/opener.tes' M[opener] EF .-11\"N(0/0)'" data.123:2]], 0, ignore, ignore)
+# `-S` stops processing of special arguments
+AT_CHECK([[$SCITECO -e "@EI'^EQ[\$SCITECOPATH]/opener.tes' M[opener] EF EJ-2\"N(0/0)'" -S +1 data.123]], 0, ignore, ignore)
+AT_CLEANUP
+
+# FIXME: Does not work on OBS runners, perhaps because of Xvfb?
+# It's not reproducible on FreeBSD.
+#AT_SETUP([Detaching from terminal])
+#AT_SKIP_IF([$SCITECO --help | $GREP -qvz -e '--detach'])
+#AT_CHECK([[timeout 10 $SHELL -c "$SCITECO --detach -e '23= @EW/test.txt/' && while [ ! -f test.txt ]; do sleep 1; done"]], 0, [], [])
+#AT_CLEANUP
+
AT_BANNER([Regression Tests])
AT_SETUP([Glob patterns with character classes])
# Also checks closing brackets as part of the character set.
-AT_CHECK([$SCITECO -e ":@EN/*.[[@:>@ch]]/foo.h/\"F(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[![! :@EN/*.[]ch]/foo.h/"F(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Glob patterns with unclosed trailing brackets])
-AT_CHECK([$SCITECO -e ":@EN/*.@<:@h/foo.@<:@h/\"F(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[:@EN/*.[h/foo.[h/"F(0/0)' !]]!]], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Searching with large counts])
# Even though the search will be unsuccessful, it will not be considered
# a proper error, so the process return code is still 0.
-AT_CHECK([$SCITECO -e "2147483647@S/foo/"], 0, ignore, ignore)
+TE_CHECK([[2147483647@S/foo/]], 0, ignore, ignore)
# Will always break the memory limit which is considered an error.
-AT_CHECK([$SCITECO -e "-2147483648@S/foo/"], 1, ignore, ignore)
+TE_CHECK([[-2147483648@S/foo/]], 1, ignore, ignore)
AT_CLEANUP
AT_SETUP([Search on new empty document])
-AT_CHECK([$SCITECO -e ":@S/foo/\"S(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e ":@N/foo/\"S(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[:@S/foo/"S(0/0)']], 0, ignore, ignore)
+TE_CHECK([[:@N/foo/"S(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Search for one of characters in uninitialized Q-Register])
# Register "a" exists, but it's string part is yet uninitialized.
-AT_CHECK([$SCITECO -e ":@S/^EGa/\"S(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[:@S/^EGa/"S(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Search accesses wrong Q-Register table])
-AT_CHECK([$SCITECO -e '@^U.#xx/123/ @^Um{:@S/^EG.#xx/$} :Mm Mm'], 1, ignore, ignore)
+TE_CHECK([[@^U.#xx/123/ @^Um{:@S/^EG.#xx/$} :Mm Mm]], 1, ignore, ignore)
+AT_CLEANUP
+
+AT_SETUP([Invalid buffer ids])
+TE_CHECK([[42@EB//]], 1, ignore, ignore)
+TE_CHECK([[23@EW//]], 1, ignore, ignore)
+TE_CHECK([[11EF]], 1, ignore, ignore)
AT_CLEANUP
AT_SETUP([Memory limiting during spawning])
+# FIXME: Requires too much time and memory at least when running in a CI job on my fmsbw.de server
+# (.fmsbw/10-freebsd14-sciteco).
+AT_SKIP_IF([test $at_arg_valgrind != false])
# This might result in an OOM if memory limiting is not working
-AT_CHECK([$SCITECO -e "50*1000*1000,2EJ 0,128ED @EC'dd if=/dev/zero'"], 1, ignore, ignore)
+TE_CHECK([[50*1000*1000,2EJ 0,128ED @EC'dd if=/dev/zero']], 1, ignore, ignore)
AT_CLEANUP
AT_SETUP([Memory limiting during file reading])
-AT_CHECK([dd if=/dev/zero of=big-file.txt bs=1000 count=50000], 0, ignore, ignore)
-AT_CHECK([$SCITECO -8e "50*1000*1000,2EJ @EB'big-file.txt'"], 1, ignore, ignore)
+AT_CHECK([[dd if=/dev/zero of=big-file.txt bs=1000 count=50000]], 0, ignore, ignore)
+AT_CHECK([[$SCITECO -8e '50*1000*1000,2EJ @EB"big-file.txt"']], 1, ignore, ignore)
AT_CLEANUP
AT_SETUP([Q-Register stack cleanup])
-AT_CHECK([$SCITECO -e '@<:@a'], 0, ignore, ignore)
+TE_CHECK([[ [a !]!]], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Uninitialized "_"-register])
-AT_CHECK([$SCITECO -e ":@S//\"S(0/0)'"], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e ":@EN///\"S(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[:@S//"S(0/0)']], 0, ignore, ignore)
+TE_CHECK([[:@EN///"S(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Uninitialized Q-Register in string building])
-AT_CHECK([$SCITECO -e '@I/^E@a/'], 0, ignore, ignore)
-AT_CHECK([$SCITECO -e '@I/^ENa/'], 0, ignore, ignore)
+TE_CHECK([[@I/^E@a/]], 0, ignore, ignore)
+TE_CHECK([[@I/^ENa/]], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Setting special Q-Registers with EU])
@@ -305,36 +538,40 @@ AT_SETUP([Setting special Q-Registers with EU])
# should not influence the clipboard (and it's not in Curses anyway).
#
# Should fail, but not crash
-AT_CHECK([$SCITECO -e '@EU*""'], 1, ignore, ignore)
-AT_CHECK([$SCITECO -e '@EU$"."'], 0, ignore, ignore)
+TE_CHECK([[@EU*""]], 1, ignore, ignore)
+TE_CHECK([[@EU$"."]], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Empty help topic])
-AT_CHECK([$SCITECO -e '@?//'], 1, ignore, ignore)
+# FIXME: Produces a false positive under Valgrind
+# due to the value of $SCITECOPATH.
+TE_CHECK([[@?//]], 1, ignore, ignore)
AT_CLEANUP
AT_SETUP([Empty lexer name])
-AT_CHECK([$SCITECO -e '@ES/SETILEXER//'], 1, ignore, ignore)
+TE_CHECK([[@ES/SETILEXER//]], 1, ignore, ignore)
AT_CLEANUP
AT_SETUP([Empty command string])
-AT_CHECK([$SCITECO -e '@EC//'], 1, ignore, ignore)
-AT_CHECK([$SCITECO -e '@EGa//'], 1, ignore, ignore)
+TE_CHECK([[@EC//]], 1, ignore, ignore)
+TE_CHECK([[@EGa//]], 1, ignore, ignore)
AT_CLEANUP
AT_SETUP([Jump to beginning of macro])
-AT_CHECK([$SCITECO -e "%a-2\"< F< ' Qa-2\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[%a-2"< F< ' Qa-2"N(0/0)']], 0, ignore, ignore)
AT_CLEANUP
AT_SETUP([Gotos and labels])
# Not a label redefinition, there must not even be a warning.
-AT_CHECK([$SCITECO -e '2<!foo!>'], 0, ignore, stderr)
+TE_CHECK([[2<!foo!>]], 0, ignore, stderr)
AT_FAIL_IF([$GREP "^Warning:" stderr])
# Will print a warning about label redefinition, though...
-AT_CHECK([$SCITECO -e "!foo! Qa\"S^C' !foo! Qa\"S(0/0)' -Ua @O/foo/"], 0, ignore, ignore)
+TE_CHECK([[!foo! Qa"S^C' !foo! Qa"S(0/0)' -Ua @O/foo/]], 0, ignore, ignore)
# This should not leak memory or cause memory corruptions when running under
# Valgrind or Asan:
-AT_CHECK([$SCITECO_CMDLINE "!foo!{-5D}"], 0, ignore, stderr)
+TE_CHECK_CMDLINE([[!foo!{-5D}]], 0, ignore, stderr)
+# FIXME: Could leak memory, but we cannot detect that easily.
+#TE_CHECK([[!foo]], 1, ignore, ignore)
AT_CLEANUP
#
@@ -342,32 +579,49 @@ AT_CLEANUP
# See above for rules.
#
AT_SETUP([Rub out string append])
-AT_CHECK([$SCITECO_CMDLINE "@I/XXX/ H:Xa{-4D} :Qa-0\"N(0/0)'"], 0, ignore, stderr)
+TE_CHECK_CMDLINE([[@I/XXX/ H:Xa{-4D} :Qa-0"N(0/0)']], 0, ignore, stderr)
AT_FAIL_IF([$GREP "^Error:" stderr])
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, stderr)
+TE_CHECK_CMDLINE([[@I/F/ J @I/X/ @FK/F/{-6D} Z-2"N(0/0)']], 0, ignore, stderr)
AT_FAIL_IF([$GREP "^Error:" stderr])
AT_CLEANUP
AT_SETUP([Rub out Q-Register specifications])
# This was causing memory corruptions, that would at least show up under Valgrind.
-AT_CHECK([$SCITECO_CMDLINE "GaGb{-4D}"], 0, ignore, stderr)
+TE_CHECK_CMDLINE([[GaGb{-4D}]], 0, ignore, stderr)
AT_FAIL_IF([$GREP "^Error:" stderr])
AT_CLEANUP
AT_SETUP([Restore flags after rub out])
# Must throw an error if the @ flag is restored properly.
-AT_CHECK([$SCITECO_CMDLINE '0@W{-D}C'], 0, ignore, stderr)
+TE_CHECK_CMDLINE([[0@W{-D}C]], 0, ignore, stderr)
AT_FAIL_IF([! $GREP "^Error:" stderr])
AT_CLEANUP
+AT_SETUP([Rub out stack operations in macro calls])
+# This was causing memory corruptions, that would at least show up under Valgrind.
+TE_CHECK_CMDLINE([[@^Um{[.a].b}Mm{-2D}]], 0, ignore, stderr)
+AT_FAIL_IF([$GREP "^Error:" stderr])
+TE_CHECK_CMDLINE([[[.a@^Um{].b}Mm{-2D}]], 0, ignore, stderr)
+AT_FAIL_IF([$GREP "^Error:" stderr])
+AT_CLEANUP
+
AT_SETUP([Searches from macro calls])
-AT_CHECK([$SCITECO_CMDLINE "@^Um{:@S/XXX/} :Mm\"S(0/0)' Mm\"S(0/0)'"], 0, ignore, stderr)
+TE_CHECK_CMDLINE([[@^Um{:@S/XXX/} :Mm"S(0/0)' Mm"S(0/0)']], 0, ignore, stderr)
AT_FAIL_IF([$GREP "^Error:" stderr])
AT_CLEANUP
+AT_SETUP([Overwriting builtin registers])
+# Initializes registers in batch mode, which are later replaced during startup
+# of interactive mode.
+# This was causing assertion errors.
+AT_DATA([test.tec], [[23U^[ !]! 23U~
+]])
+AT_CHECK([[$SCITECO --fake-cmdline '' --mung test.tec]], 0, ignore, ignore)
+AT_CLEANUP
+
AT_BANNER([Known Bugs])
AT_SETUP([Number stack])
@@ -375,14 +629,14 @@ AT_SETUP([Number stack])
# will be replaced with proper number parser states, which will also allow for
# floating point constants.
# With the current parser, it is hard to even interpret the following code correctly...
-AT_CHECK([$SCITECO -e "(12)3 - 3\"N(0/0)'"], 0, ignore, ignore)
+TE_CHECK([[(12)3 - 3"N(0/0)']], 0, ignore, ignore)
AT_XFAIL_IF(true)
AT_CLEANUP
AT_SETUP([Dangling Else/End-If])
# Should throw syntax errors.
-AT_CHECK([$SCITECO -e "'"], 1, ignore, ignore)
-AT_CHECK([$SCITECO -e "| (0/0) '"], 1, ignore, ignore)
+TE_CHECK([[']], 1, ignore, ignore)
+TE_CHECK([[| (0/0) ']], 1, ignore, ignore)
AT_XFAIL_IF(true)
AT_CLEANUP
@@ -393,7 +647,7 @@ AT_CLEANUP
## Should no longer dump core.
## It could fail because the memory limit is exceeed,
## but not in this case since the match string isn't too large.
-#AT_CHECK([$SCITECO -e '100000<@I"X">J @S"^EM^X"'], 0, ignore, ignore)
+#TE_CHECK([[100000<@I"X">J @S"^EM^X"]], 0, ignore, ignore)
#AT_XFAIL_IF(true)
#AT_CLEANUP
@@ -401,13 +655,22 @@ AT_SETUP([Recursion overflow])
# Should no longer dump core.
# It could fail because the memory limit is exceeed,
# but not in this case since we limit the recursion.
-AT_CHECK([$SCITECO -e "@^Um{U.a Q.a-100000\"<%.aMm'} 0Mm"], 0, ignore, ignore)
+TE_CHECK([[@^Um{U.a Q.a-100000"<%.aMm'} 0Mm]], 0, ignore, ignore)
AT_XFAIL_IF(true)
AT_CLEANUP
AT_SETUP([Rub out from empty string argument])
# Should rub out the modifiers as well.
-AT_CHECK([$SCITECO_CMDLINE ":@^Ua/${RUBOUT_WORD}{Z\"N(0/0)'}"], 0, ignore, stderr)
-AT_CHECK([$GREP "^Error:" stderr], 0, ignore ignore)
+# Will currently fail because it tries to execute `:@{`.
+TE_CHECK_CMDLINE([[:@^Ua/]]TE_RUBOUT_WORD[[{Z"N(0/0)'}]], 0, ignore, stderr)
+AT_CHECK([[! $GREP "^Error:" stderr]], 0, ignore, ignore)
+AT_XFAIL_IF(true)
+AT_CLEANUP
+
+AT_SETUP([Command-line termination])
+# Everything after the $$ should be preserved.
+AT_DATA([expout], [[1234
+]])
+TE_CHECK_CMDLINE([[{@I/$$1234=/}]], 0, expout, ignore)
AT_XFAIL_IF(true)
AT_CLEANUP
generated by cgit v1.2.3 (git 2.25.1) at 2026-02-02 17:19:51 +0000