diff options
| author | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2024-11-24 04:38:16 +0300 |
|---|---|---|
| committer | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2024-11-24 04:51:34 +0300 |
| commit | 23c90e37ff48707c4aabdb8b1460df382a600d7a (patch) | |
| tree | 08547d899cc281ba2be0d96c785e64e7a4d04313 /tests | |
| parent | 26e54b9248ca8be07530fb19422082827ee1fead (diff) | |
| download | sciteco-23c90e37ff48707c4aabdb8b1460df382a600d7a.tar.gz | |
added special Q-Register ":" for accessing dot
* We cannot call it "." since that introduces a local register
and we don't want to add an unnecessary syntactic exception.
* Allows the idiom [: ... ]: to temporarily move around.
Also, you can now write ^E\: without having to store dot in a register first.
* In the future we might add an ^E register as well for byte offsets.
However, there are much fewer useful applications.
* Of course, you can now also write nU: instead of nJ, Q: instead of "." and
n%: instead of "nC.". However it's all not really useful.
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 31ce257..59b1041 100644 --- a/tests/testsuite.at +++ b/tests/testsuite.at @@ -94,6 +94,7 @@ AT_SETUP([Q-Register stack]) AT_CHECK([$SCITECO -e "[[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) AT_CLEANUP AT_SETUP([Searches]) |