From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 16 Aug 2001 12:22:29 +0000 (+0000)
Subject: One more twist to the sprintf + utf8 testing.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9efebafb83c49a7cc9bad37371f4e822f825bc8f;p=p5sagit%2Fp5-mst-13.2.git

One more twist to the sprintf + utf8 testing.

p4raw-id: //depot/perl@11692
---

diff --git a/t/op/misc.t b/t/op/misc.t
index e55e18a..3cfb667 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -727,10 +727,13 @@ 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
 ########
 # keep this last - doesn't seem to work otherwise?