From 5aec3f974279973091de4974bbd41b765bbc435b Mon Sep 17 00:00:00 2001
From: Sebastian Gniazdowski <psprint@zdharma.org>
Date: Wed, 29 Mar 2017 09:04:18 +0200
Subject: 40909: Stress test for parameter substitution

---
 Test/D04parameter.ztst | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'Test/D04parameter.ztst')

diff --git a/Test/D04parameter.ztst b/Test/D04parameter.ztst
index 66d9022e2..d5798b5b9 100644
--- a/Test/D04parameter.ztst
+++ b/Test/D04parameter.ztst
@@ -2168,3 +2168,15 @@ F:behavior, see http://austingroupbugs.net/view.php?id=888
 >x
 >x
 >y
+
+  my_width=6
+  my_index=1
+  my_options=Option1
+  hyperlink=$'\034'"MYID"$'\034'"DATA1"$'\034'"DATA2"$'\034'"DATA3"$'\034'"my_width"$'\034'"my_index"$'\034'"my_options"$'\02'
+  array=( $hyperlink "Regular text" $hyperlink )
+  array=( "${array[@]//(#b)$'\034'[^$'\034']#$'\034'[^$'\034']#$'\034'[^$'\034']#$'\034'[^$'\034']#$'\034'([^$'\034']#)$'\034'([^$'\034']#)$'\034'([^$'\02']#)$'\02'/${(mr:${(P)${(Q)match[1]}}:: :)${(As:;:)${(P)${(Q)match[3]}}}[${(P)${(Q)match[2]}}]}}" )
+  print -rl -- "${array[@]}"
+0:Test substitution that uses P,Q,A,s,r,m flags
+>Option
+>Regular text
+>Option
-- 
cgit 1.4.1