Add a test for Unicode sprintf.

p4raw-id: //depot/perl@11687

diff --git a/t/op/misc.t b/t/op/misc.t
index 3869030..e7f1623 100755 (executable)
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -724,5 +724,10 @@ sub DESTROY {
 EXPECT
 Bar=ARRAY(0x...)
 ########
+printf "%x %x", unpack "U*", sprintf "\x{1234}%s", "\x{5678}"
+EXPECT
+1234 5678
+########
+# keep this last - doesn't seem to work otherwise?
 eval "a.b.c.d.e.f;sub"
 EXPECT