[svn:parrot] r10019 - trunk/t/op

[leo]

Author: leo
Date: Wed Nov 16 03:55:35 2005
New Revision: 10019

Modified:
   trunk/t/op/string_cs.t
Log:
icu (3.2, 3.4) bug or not

* reduce failing test to a simpler one
* docu gdb output



Modified: trunk/t/op/string_cs.t
==============================================================================
--- trunk/t/op/string_cs.t      (original)
+++ trunk/t/op/string_cs.t      Wed Nov 16 03:55:35 2005
@@ -730,41 +730,32 @@ CODE
 HACEK J J\xcc\x8c
 OUTPUT
 
+# charset/unicode.c
+#
+# 106         dest_len = u_strToUpper(src->strstart, dest_len,
+# (gdb) p src_len
+# $17 = 7
+# (gdb) p dest_len
+# $18 = 7
+# (gdb) x /8h src->strstart
+# 0x844fb60:      0x005f  0x005f  0x005f  0x01f0  0x0031  0x0032  0x0033  
0x0000
+# (gdb) n
+# 110         src->bufused = dest_len * sizeof(UChar);
+# (gdb) p dest_len
+# $19 = 8
+# (gdb) x /8h src->strstart
+# 0x844fb60:      0x005f  0x005f  0x005f  0x004a  0x030c  0x0031  0x0032  
0x0000
+
 output_is( <<'CODE', <<"OUTPUT", "unicode upcase to combined char 3.2 bug?");
+    set S1, unicode:"___\u01f0123"
+    upcase S1
     getstdout P0          # need to convert back to utf8
     push P0, "utf8"       # push utf8 output layer
-    set S1, unicode:"\u01f0"
-    set I0, 5
-loop:
-    repeat S2, "_", I0
-    concat S2, S1
-    upcase S2
-    concat S2, '_'
-    print S2
+    print S1
     print "\n"
-    inc I0
-    lt I0, 24, loop
     end
 CODE
-_____J\xcc\x8c_
-______J\xcc\x8c_
-_______J\xcc\x8c_
-________J\xcc\x8c_
-_________J\xcc\x8c_
-__________J\xcc\x8c_
-___________J\xcc\x8c_
-____________J\xcc\x8c_
-_____________J\xcc\x8c_
-______________J\xcc\x8c_
-_______________J\xcc\x8c_
-________________J\xcc\x8c_
-_________________J\xcc\x8c_
-__________________J\xcc\x8c_
-___________________J\xcc\x8c_
-____________________J\xcc\x8c_
-_____________________J\xcc\x8c_
-______________________J\xcc\x8c_
-_______________________J\xcc\x8c_
+___J\xcc\x8c123
 OUTPUT
 
 output_is( <<'CODE', <<"OUTPUT", "unicode titlecase");