diff options
Diffstat (limited to 'tests/testsuite.at')
| -rw-r--r-- | tests/testsuite.at | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/testsuite.at b/tests/testsuite.at index 33f1bf5..676ca59 100644 --- a/tests/testsuite.at +++ b/tests/testsuite.at @@ -13,6 +13,8 @@ AT_COLOR_TESTS # (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]) @@ -45,6 +47,11 @@ AT_SETUP([Closing loops at the correct macro level]) AT_CHECK([$SCITECO -e '@^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) +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 <:$>. |