From f367a90505811cf2125549e4d376c33f691bde57 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Tue, 7 Nov 2006 22:47:07 +0000
Subject: 22980: 22952 messed up parameter padding flag optional arguments

---
 Test/D04parameter.ztst | 5 +++++
 Test/D07multibyte.ztst | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

(limited to 'Test')

diff --git a/Test/D04parameter.ztst b/Test/D04parameter.ztst
index ce5898f88..a2613dc1f 100644
--- a/Test/D04parameter.ztst
+++ b/Test/D04parameter.ztst
@@ -361,6 +361,11 @@
 >val1 val2
 >key1 key2 val1 val2
 
+  word="obfuscatory"
+  print !${(l.16.)word}! +${(r.16.)word}+
+0:simple padding
+>!     obfuscatory! +obfuscatory     +
+
   foo=(resulting words uproariously padded)
   print ${(pl.10..\x22..X.)foo}
 0:${(pl...)...}
diff --git a/Test/D07multibyte.ztst b/Test/D07multibyte.ztst
index 752013eec..828a5c573 100644
--- a/Test/D07multibyte.ztst
+++ b/Test/D07multibyte.ztst
@@ -306,8 +306,8 @@
 # TODO: if we get paired multibyte bracket delimiters to work
 # (as Emacs does, the smug so-and-so), the following should change.
   foo=bar
-  print ${(r£5£¥X¥)foo}
-  print ${(l«10«»Y»£HI£)foo}
+  print ${(r£5££X£)foo}
+  print ${(l«10««Y««HI«)foo}
 0:Delimiters in parameter flags
 >barXX
 >YYYYYHIbar
-- 
cgit 1.4.1