diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-26 11:24:45 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-26 11:24:45 +0000 |
| commit | a1a1bbcd8cc170a7ad89ed19ad69b4d6c036c8ab (patch) | |
| tree | cab2dc2a6b76933387ace8512b259bce1f27a53e /t | |
| parent | 7cfc0d094edc5c812f838a43abfb8e5c736009ef (diff) | |
| parent | f5d5a27c761624409884a263632e1a922439502b (diff) | |
| download | perl-a1a1bbcd8cc170a7ad89ed19ad69b4d6c036c8ab.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@3769
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pack.t | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/t/op/pack.t b/t/op/pack.t index 5b727974a6..082b954756 100755 --- a/t/op/pack.t +++ b/t/op/pack.t @@ -6,7 +6,7 @@ BEGIN { require Config; import Config; } -print "1..142\n"; +print "1..148\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 @@ -353,3 +353,19 @@ print "ok ", $test++, "\n"; print "not " unless pack("V", 0xdeadbeef) eq "\xef\xbe\xad\xde"; print "ok ", $test++, "\n"; + +# 143..148: # + +my $z; +eval { ($x) = unpack '#a*','hello' }; +print 'not ' unless $@; print "ok $test\n"; $test++; +eval { ($z,$x,$y) = unpack 'a3#A C#a* C#Z', "003ok \003yes\004z\000abc" }; +print $@ eq '' && $z eq 'ok' ? "ok $test\n" : "not ok $test\n"; $test++; +print $@ eq '' && $x eq 'yes' ? "ok $test\n" : "not ok $test\n"; $test++; +print $@ eq '' && $y eq 'z' ? "ok $test\n" : "not ok $test\n"; $test++; + +eval { ($x) = pack '#a*','hello' }; +print 'not ' unless $@; print "ok $test\n"; $test++; +$z = pack 'n#a* w#A*','string','etc'; +print 'not ' unless $z eq "\000\006string\003etc"; print "ok $test\n"; $test++; + |