From 376da1ea68879229d43704ebe70874020d0e8fd6 Mon Sep 17 00:00:00 2001
From: Robin Haberkorn <robin.haberkorn@googlemail.com>
Date: Mon, 24 Feb 2025 04:04:47 +0300
Subject: fixed rubbing out `?` (help) after editing a Q-Register

* Test case: @EQa// @?/EX/ -- Rubout should return you to the Q-Register view.
* The test suite has been extended.
  Unfortunately we cannot currently directly check whether we're editing a Q-Register.
  But we add a magic number of characters to the Q-Register, that we can check afterwards.
---
 tests/testsuite.at | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'tests')

diff --git a/tests/testsuite.at b/tests/testsuite.at
index 3f0b7e5..eb71689 100644
--- a/tests/testsuite.at
+++ b/tests/testsuite.at
@@ -301,6 +301,12 @@ AT_CHECK([$SCITECO_CMDLINE "@^Um{:@S/XXX/} :Mm\"S(0/0)' Mm\"S(0/0)'"], 0, ignore
 AT_FAIL_IF([$GREP "^Error:" stderr])
 AT_CLEANUP
 
+AT_SETUP([Rub out help command])
+# Should restore the Q-Register view. But we cannot test this directly.
+AT_CHECK([$SCITECO_CMDLINE "@EQa// 23<@I/x/> @?/EX/{-6D} Z-23\"N(0/0)'"], 0, ignore, stderr)
+AT_FAIL_IF([$GREP "^Error:" stderr])
+AT_CLEANUP
+
 AT_BANNER([Known Bugs])
 
 AT_SETUP([Number stack])
-- 
cgit v1.2.3