Change 14198 by jhi@alpha on 2002/01/11 23:53:05
Add a new test for is-sprintf-preserving Unicodeness:
#14194 and an old one from kill_perl.t (I could have used
sprintf.t, but it's format was quite fixed, and I didn't
feel like breaking the format)
Affected files ...
.... //depot/perl/MANIFEST#705 edit
.... //depot/perl/t/op/unisprintf.t#1 add
.... //depot/perl/t/run/kill_perl.t#26 edit
Differences ...
==== //depot/perl/MANIFEST#705 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST.~1~ Fri Jan 11 17:00:05 2002
+++ perl/MANIFEST Fri Jan 11 17:00:05 2002
@@ -2332,6 +2332,7 @@
t/op/tr.t See if tr works
t/op/undef.t See if undef works
t/op/unifold.t See if Unicode folding works
+t/op/unisprintf.t See if Unicode sprintf works
t/op/universal.t See if UNIVERSAL class works
t/op/unshift.t See if unshift works
t/op/utf8decode.t See if UTF-8 decoding works
==== //depot/perl/t/run/kill_perl.t#26 (text) ====
Index: perl/t/run/kill_perl.t
--- perl/t/run/kill_perl.t.~1~ Fri Jan 11 17:00:05 2002
+++ perl/t/run/kill_perl.t Fri Jan 11 17:00:05 2002
@@ -707,17 +707,6 @@
EXPECT
Bar=ARRAY(0x...)
########
-# 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
######## found by Markov chain stress testing
eval "a.b.c.d.e.f;sub"
EXPECT
==== //depot/perl/t/op/unisprintf.t#1 (text) ====
Index: perl/t/op/unisprintf.t
--- perl/t/op/unisprintf.t.~1~ Fri Jan 11 17:00:05 2002
+++ perl/t/op/unisprintf.t Fri Jan 11 17:00:05 2002
@@ -0,0 +1,126 @@
+#!./perl -w
+
+BEGIN {
+ chdir 't' if -d 't';
+ @INC = qw(../lib .);
+ require "test.pl";
+}
+
+plan tests => 23;
+
+$a = "B\x{fc}f";
+$b = "G\x{100}r";
+$c = 0x200;
+
+{
+ my $s = sprintf "%s", $a;
+ is($s, $a, "%s a");
+}
+
+{
+ my $s = sprintf "%s", $b;
+ is($s, $b, "%s b");
+}
+
+{
+ my $s = sprintf "%s%s", $a, $b;
+ is($s, $a.$b, "%s%s a b");
+}
+
+{
+ my $s = sprintf "%s%s", $b, $a;
+ is($s, $b.$a, "%s%s b a");
+}
+
+{
+ my $s = sprintf "%s%s", $b, $b;
+ is($s, $b.$b, "%s%s b b");
+}
+
+{
+ my $s = sprintf "%s$b", $a;
+ is($s, $a.$b, "%sb a");
+}
+
+{
+ my $s = sprintf "$b%s", $a;
+ is($s, $b.$a, "b%s a");
+}
+
+{
+ my $s = sprintf "%s$a", $b;
+ is($s, $b.$a, "%sa b");
+}
+
+{
+ my $s = sprintf "$a%s", $b;
+ is($s, $a.$b, "a%s b");
+}
+
+{
+ my $s = sprintf "$a%s", $a;
+ is($s, $a.$a, "a%s a");
+}
+
+{
+ my $s = sprintf "$b%s", $b;
+ is($s, $b.$b, "a%s b");
+}
+
+{
+ my $s = sprintf "%c", $c;
+ is($s, chr($c), "%c c");
+}
+
+{
+ my $s = sprintf "%s%c", $a, $c;
+ is($s, $a.chr($c), "%s%c a c");
+}
+
+{
+ my $s = sprintf "%c%s", $c, $a;
+ is($s, chr($c).$a, "%c%s c a");
+}
+
+{
+ my $s = sprintf "%c$b", $c;
+ is($s, chr($c).$b, "%cb c");
+}
+
+{
+ my $s = sprintf "%s%c$b", $a, $c;
+ is($s, $a.chr($c).$b, "%s%cb a c");
+}
+
+{
+ my $s = sprintf "%c%s$b", $c, $a;
+ is($s, chr($c).$a.$b, "%c%sb c a");
+}
+
+{
+ my $s = sprintf "$b%c", $c;
+ is($s, $b.chr($c), "b%c c");
+}
+
+{
+ my $s = sprintf "$b%s%c", $a, $c;
+ is($s, $b.$a.chr($c), "b%s%c a c");
+}
+
+{
+ my $s = sprintf "$b%c%s", $c, $a;
+ is($s, $b.chr($c).$a, "b%c%s c a");
+}
+
+{
+ # 20010407.008 sprintf removes utf8-ness
+ $a = sprintf "\x{1234}";
+ is((sprintf "%x %d", unpack("U*", $a), length($a)), "1234 1",
+ '\x{1234}');
+ $a = sprintf "%s", "\x{5678}";
+ is((sprintf "%x %d", unpack("U*", $a), length($a)), "5678 1",
+ '%s \x{5678}');
+ $a = sprintf "\x{1234}%s", "\x{5678}";
+ is((sprintf "%x %x %d", unpack("U*", $a), length($a)), "1234 5678 2",
+ '\x{1234}%s \x{5678}');
+}
End of Patch.
