From d8207acddbd1ad5e9339115f7b7bf09820b98c5a Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Thu, 2 Nov 2006 18:43:19 +0000
Subject: 22952: fix some argument delimiters to work with multibyte characters

---
 Test/D07multibyte.ztst | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'Test/D07multibyte.ztst')

diff --git a/Test/D07multibyte.ztst b/Test/D07multibyte.ztst
index 8b17a7294..752013eec 100644
--- a/Test/D07multibyte.ztst
+++ b/Test/D07multibyte.ztst
@@ -297,3 +297,17 @@
 >«κατέβην ¥«χθὲς»£ ¥¥«εἰς»£ «Πειραιᾶ
 >ςκατέβην ηςχθὲςΓλ τηςεἰςΓλ ςΠειραιᾶ
 # er... yeah, that looks right...
+
+  foo=picobarn
+  print ${foo:s£bar£rod£:s¥rod¥stick¥}
+0:Delimiters in modifiers
+>picostickn
+
+# 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}
+0:Delimiters in parameter flags
+>barXX
+>YYYYYHIbar
-- 
cgit 1.4.1