diff options
| author | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2025-07-18 01:41:28 +0300 |
|---|---|---|
| committer | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2025-07-18 01:41:28 +0300 |
| commit | 5d4368584ecd447b953e8853dbeaee4282700970 (patch) | |
| tree | 290d9034f542e615155fb514cb23f15620474f2d /tests | |
| parent | 45b9dea901cec7045be1a98f61d48d41dc965a9f (diff) | |
support <:]q> (pop Q-Register) for getting a success/failure boolean
* Could be used to check whether the stack is currently empty,
although peeking would be cumbersome: `:]q"S [q !...! | !...! '`
* This is from DEC TECO-11.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/testsuite.at | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/testsuite.at b/tests/testsuite.at index a5fa98e..8c6dcc8 100644 --- a/tests/testsuite.at +++ b/tests/testsuite.at @@ -146,6 +146,7 @@ TE_CHECK([[ [a 23Ub ]b Qb"N(0/0)']], 0, ignore, ignore) # FG will temporarily change the working directory to tests/testsuite.dir. 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]) |