From a242b1eb35863b73cbc63699fafe920e8b92c858 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Wed, 13 Sep 2006 20:55:29 +0000
Subject: 22705: make ${(l...)...} and ${(r...)...} handle multibyte characters

---
 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 7c0b28878..57147d53e 100644
--- a/Test/D04parameter.ztst
+++ b/Test/D04parameter.ztst
@@ -366,6 +366,18 @@
 0:${(pl...)...}
 >Xresulting """"Xwords roariously """Xpadded
 
+  print ${(l.5..X.r.5..Y.)foo}
+  print ${(l.6..X.r.4..Y.)foo}
+  print ${(l.7..X.r.3..Y.)foo}
+  print ${(l.6..X..A.r.6..Y..B.)foo}
+  print ${(l.6..X..AROOGA.r.6..Y..BARSOOM.)foo}
+0:simultaneous left and right padding
+>Xresulting XXXwordsYY proariousl XXpaddedYY
+>XXresultin XXXXwordsY uproarious XXXpaddedY
+>XXXresulti XXXXXwords Xuproariou XXXXpadded
+>XAresultingB XXXAwordsBYY uproariously XXApaddedBYY
+>GAresultingB OOGAwordsBAR uproariously OGApaddedBAR
+
   foo=(why in goodness name am I doing this)
   print ${(r.5..!..?.)foo}
 0:${(r...)...}
-- 
cgit 1.4.1