From 037485c4a474395064e2b5b1da281ca052796320 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Fri, 17 Sep 2004 09:25:38 +0000
Subject: 20378: Matthias B.: fix bugs joining with metafied chars.

---
 Test/B02typeset.ztst | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'Test')

diff --git a/Test/B02typeset.ztst b/Test/B02typeset.ztst
index 3a35b0467..752a8e94a 100644
--- a/Test/B02typeset.ztst
+++ b/Test/B02typeset.ztst
@@ -183,6 +183,21 @@
 >l o c a l
 >l:o:c:a l o c a
 
+ typeset -T SCALAR=$'l\x83o\x83c\x83a\x83l' array $'\x83'
+ print $array
+ typeset -U SCALAR
+ print $SCALAR $array
+0:Tied parameters and uniquified arrays with meta-character as separator
+>l o c a l
+>lƒoƒcƒa l o c a
+
+ typeset -T SCALAR=$'l\000o\000c\000a\000l' array $'\000'
+ typeset -U SCALAR
+ print $array
+ [[ $SCALAR == $'l\000o\000c\000a' ]]
+0:Tied parameters and uniquified arrays with NUL-character as separator
+>l o c a
+
  typeset -T SCALAR array
  typeset +T SCALAR
 1:Untying is prohibited
-- 
cgit 1.4.1