Change 11692 by jhi@alpha on 2001/08/16 12:22:29
One more twist to the sprintf + utf8 testing.
Affected files ...
... //depot/perl/t/op/misc.t#80 edit
Differences ...
==== //depot/perl/t/op/misc.t#80 (xtext) ====
Index: perl/t/op/misc.t
--- perl/t/op/misc.t.~1~ Thu Aug 16 06:30:05 2001
+++ perl/t/op/misc.t Thu Aug 16 06:30:05 2001
@@ -727,10 +727,13 @@
# 20010407.008 sprintf removes utf8-ness
$a = sprintf "\x{1234}";
printf "%x %d\n", unpack("U*", $a), length($a);
+$a = sprintf "%s", "\x{5678}";
+printf "%x %d\n", unpack("U*", $a), length($a);
$a = sprintf "\x{1234}%s", "\x{5678}";
printf "%x %x %d\n", unpack("U*", $a), length($a);
EXPECT
1234 1
+5678 1
1234 5678 2
########
# keep this last - doesn't seem to work otherwise?
End of Patch.
