From 29e11f68bae0364034fb692062403735bec8d07a Mon Sep 17 00:00:00 2001
From: Robin Haberkorn <robin.haberkorn@googlemail.com>
Date: Sat, 19 Jul 2025 17:38:06 +0300
Subject: <EW> now accepts a numeric argument to specify the buffer to save

* In this case we always save the given buffer and never the current Q-Register.
* The current Q-Register is only saved without any numeric argument.
  The same semantics make sense for <EF> so that Q*EF closes the current buffer
  even when editing a Q-Register.
* This variant is present in Video TECO.
---
 tests/testsuite.at | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'tests/testsuite.at')

diff --git a/tests/testsuite.at b/tests/testsuite.at
index 8c6dcc8..44d90bd 100644
--- a/tests/testsuite.at
+++ b/tests/testsuite.at
@@ -248,6 +248,13 @@ TE_CHECK([[@^Ua/test/ @E%a/saveqreg.txt/ @EB/saveqreg.txt/ Z-4"N(0/0)']], 0, ign
 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)
-- 
cgit v1.2.3