diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-16 12:22:29 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-16 12:22:29 +0000 |
| commit | 9efebafb83c49a7cc9bad37371f4e822f825bc8f (patch) | |
| tree | 141236457d206bf29479fcbcc2c2cab77d43c25e /t | |
| parent | 6ee35fb7e604a038209f7db33f1e4817a38d5c05 (diff) | |
| download | perl-9efebafb83c49a7cc9bad37371f4e822f825bc8f.tar.gz | |
One more twist to the sprintf + utf8 testing.
p4raw-id: //depot/perl@11692
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/misc.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index e55e18a0a2..3cfb667ec8 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? |