1N/A#!./perl -w
1N/A
1N/ABEGIN {
1N/A chdir 't' if -d 't';
1N/A @INC = qw(../lib .);
1N/A require "test.pl";
1N/A}
1N/A
1N/Aplan tests => 25;
1N/A
1N/A$a = "B\x{fc}f";
1N/A$b = "G\x{100}r";
1N/A$c = 0x200;
1N/A
1N/A{
1N/A my $s = sprintf "%s", $a;
1N/A is($s, $a, "%s a");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "%s", $b;
1N/A is($s, $b, "%s b");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "%s%s", $a, $b;
1N/A is($s, $a.$b, "%s%s a b");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "%s%s", $b, $a;
1N/A is($s, $b.$a, "%s%s b a");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "%s%s", $b, $b;
1N/A is($s, $b.$b, "%s%s b b");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "%s$b", $a;
1N/A is($s, $a.$b, "%sb a");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "$b%s", $a;
1N/A is($s, $b.$a, "b%s a");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "%s$a", $b;
1N/A is($s, $b.$a, "%sa b");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "$a%s", $b;
1N/A is($s, $a.$b, "a%s b");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "$a%s", $a;
1N/A is($s, $a.$a, "a%s a");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "$b%s", $b;
1N/A is($s, $b.$b, "a%s b");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "%c", $c;
1N/A is($s, chr($c), "%c c");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "%s%c", $a, $c;
1N/A is($s, $a.chr($c), "%s%c a c");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "%c%s", $c, $a;
1N/A is($s, chr($c).$a, "%c%s c a");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "%c$b", $c;
1N/A is($s, chr($c).$b, "%cb c");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "%s%c$b", $a, $c;
1N/A is($s, $a.chr($c).$b, "%s%cb a c");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "%c%s$b", $c, $a;
1N/A is($s, chr($c).$a.$b, "%c%sb c a");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "$b%c", $c;
1N/A is($s, $b.chr($c), "b%c c");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "$b%s%c", $a, $c;
1N/A is($s, $b.$a.chr($c), "b%s%c a c");
1N/A}
1N/A
1N/A{
1N/A my $s = sprintf "$b%c%s", $c, $a;
1N/A is($s, $b.chr($c).$a, "b%c%s c a");
1N/A}
1N/A
1N/A{
1N/A # 20010407.008 sprintf removes utf8-ness
1N/A $a = sprintf "\x{1234}";
1N/A is((sprintf "%x %d", unpack("U*", $a), length($a)), "1234 1",
1N/A '\x{1234}');
1N/A $a = sprintf "%s", "\x{5678}";
1N/A is((sprintf "%x %d", unpack("U*", $a), length($a)), "5678 1",
1N/A '%s \x{5678}');
1N/A $a = sprintf "\x{1234}%s", "\x{5678}";
1N/A is((sprintf "%x %x %d", unpack("U*", $a), length($a)), "1234 5678 2",
1N/A '\x{1234}%s \x{5678}');
1N/A}
1N/A
1N/A{
1N/A # check that utf8ness doesn't "accumulate"
1N/A
1N/A my $w = "w\x{fc}";
1N/A my $sprintf;
1N/A
1N/A $sprintf = sprintf "%s%s", $w, "$w\x{100}";
1N/A is(substr($sprintf,0,2), $w, "utf8 echo");
1N/A
1N/A $sprintf = sprintf "%s%s", $w, "$w\x{100}";
1N/A is(substr($sprintf,0,2), $w, "utf8 echo echo");
1N/A}