From 5aec3f974279973091de4974bbd41b765bbc435b Mon Sep 17 00:00:00 2001 From: Sebastian Gniazdowski Date: Wed, 29 Mar 2017 09:04:18 +0200 Subject: 40909: Stress test for parameter substitution --- ChangeLog | 5 +++++ Test/D04parameter.ztst | 12 ++++++++++++ 2 files changed, 17 insertions(+) diff --git a/ChangeLog b/ChangeLog index a94128ea2..d3a3d9f58 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2017-03-30 Peter Stephenson + + * Sebastian: 40909: Test/D04parameter.ztst: stress test for + parameter substitution. + 2017-03-27 Peter Stephenson * 40906: Doc/Zsh/expn.yo: array subst needs [*] or [@] with 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