unposted: tests: add regression test for w/54909

2 files changed, 25 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 0cd0c2404..9c0bfc81a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2026-07-08  dana  <dana@dana.is>
+
+	* unposted: Test/D04parameter.ztst: add regression test for
+	w/54909
+
 2026-07-08  Mikael Magnusson  <mikachu@gmail.com>
 
 	* 54909: Src/subst.c: Untokenize before quoting unquoted literal
diff --git a/Test/D04parameter.ztst b/Test/D04parameter.ztst
index 583f8d28a..71ff8c04f 100644
--- a/Test/D04parameter.ztst
+++ b/Test/D04parameter.ztst
@@ -2371,6 +2371,26 @@
 0:(q) and (b) quoting deal with the EQUALS option
 >\=foo =foo '=foo'
 
+  print -r - ${(q):-=} ${(qq):-=} ${(qqq):-=} ${(qqqq):-=} ${(q+):-=} ${(q-):-=}
+  print -r - \
+    ${(q):-a = b}, ${(qq):-a = b}, ${(qqq):-a = b}, ${(qqqq):-a = b}, \
+    ${(q+):-a = b}, ${(q-):-a = b}
+  print -r - \
+    ${(qq):-a= {b,c}*}, ${(qqq):-a= {b,c}*}, ${(qqqq):-a= {b,c}*}, \
+    ${(q+):-a= {b,c}*}, ${(q-):-a= {b,c}*}
+  ( print -r - ${(q):-=}a )
+  ( print -r - ${(q+):-= } )
+  ( print -r - ${(q+):-=a} )
+  ( print -r - ${(q):-a= {b,c}*} )
+-:regression: workers/54909, (q) etc tokenised chars
+>= '=' "=" $'=' '=' '='
+>a\ =\ b, 'a = b', "a = b", $'a = b', 'a = b', 'a = b'
+>'a= b*' 'a= c*', "a= b*" "a= c*", $'a= b*' $'a= c*', 'a= b*' 'a= c*', 'a= b*' 'a= c*'
+*?*no*found*
+*?*no*found*
+*?*no*found*
+*?*no*found*
+
   args() { print $#; }
   a=(foo)
   args "${a[3,-1]}"