Change 11687 by jhi@alpha on 2001/08/16 00:29:29
Add a test for Unicode sprintf.
Affected files ...
... //depot/perl/t/op/misc.t#78 edit
Differences ...
==== //depot/perl/t/op/misc.t#78 (xtext) ====
Index: perl/t/op/misc.t
--- perl/t/op/misc.t.~1~ Wed Aug 15 18:45:06 2001
+++ perl/t/op/misc.t Wed Aug 15 18:45:06 2001
@@ -724,5 +724,10 @@
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
End of Patch.
