diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-16 00:29:29 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-16 00:29:29 +0000 |
| commit | ecbfecb9e052974d6dde629b704db3485e8ae7df (patch) | |
| tree | 68f980d60183ed9b516652f419f218eec578a562 | |
| parent | 4f5934513d9d00d273f4c179b77b3845e83bf927 (diff) | |
| download | perl-ecbfecb9e052974d6dde629b704db3485e8ae7df.tar.gz | |
Add a test for Unicode sprintf.
p4raw-id: //depot/perl@11687
| -rwxr-xr-x | t/op/misc.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index 38690305cf..e7f1623a28 100755 --- 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 |