diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-21 19:34:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-21 19:34:34 +0000 |
| commit | 9e6390329e0b2f4a2dab0836dc608590db56a9e1 (patch) | |
| tree | 8fe1f89665e7ff087e7c88df3109292db0d038a1 /t/op/pack.t | |
| parent | c61790a238ee53bd915ae572325dabe678a89e75 (diff) | |
| download | perl-9e6390329e0b2f4a2dab0836dc608590db56a9e1.tar.gz | |
Retract #8875, cannot let go of the old semantics of unpack U
without rethinking utf8decode.t.
p4raw-id: //depot/perl@8880
Diffstat (limited to 't/op/pack.t')
| -rwxr-xr-x | t/op/pack.t | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index db033f3013..3483597fbe 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -6,7 +6,7 @@ BEGIN { require Config; import Config; } -print "1..165\n"; +print "1..163\n"; $format = "c2 x5 C C x s d i l a6"; # Need the expression in here to force ary[5] to be numeric. This avoids @@ -453,16 +453,3 @@ print "ok $test\n"; $test++; print "ok $test\n"; $test++; } -# 164: pack C and pack U equivalence - -print "not " unless pack("C", 0x100) eq pack("U", 0x100) && - chr(0x100) eq pack("U", 0x100); -print "ok $test\n"; $test++; - -# 165: unpack C and unpack U equivalence - -print "not " unless "@{[unpack('C*', chr(0x100) . chr(0x200))]}" eq - "@{[unpack('U*', chr(0x100) . chr(0x200))]}" && - "@{[unpack('U*', chr(0x100) . chr(0x200))]}" eq "256 512"; -print "ok $test\n"; $test++; - |