diff options
Diffstat (limited to 'tests/testsuite.at')
| -rw-r--r-- | tests/testsuite.at | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/testsuite.at b/tests/testsuite.at index 3a33838..b0ca8c0 100644 --- a/tests/testsuite.at +++ b/tests/testsuite.at @@ -357,6 +357,12 @@ AT_CHECK([$SCITECO_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) +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) AT_FAIL_IF([$GREP "^Error:" stderr]) |