Commit | Line | Data |
---|---|---|
a687059c LW |
1 | #!./perl |
2 | ||
fe14fcc3 | 3 | # $Header: pack.t,v 4.0 91/03/20 01:53:57 lwall Locked $ |
a687059c LW |
4 | |
5 | print "1..3\n"; | |
6 | ||
450a55e4 LW |
7 | $format = "c2x5CCxsdila6"; |
8 | # Need the expression in here to force ary[5] to be numeric. This avoids | |
9 | # test2 failing because ary2 goes str->numeric->str and ary doesn't. | |
10 | @ary = (1,-100,127,128,32767,987.654321098 / 100.0,12345,123456,"abcdef"); | |
a687059c LW |
11 | $foo = pack($format,@ary); |
12 | @ary2 = unpack($format,$foo); | |
13 | ||
14 | print ($#ary == $#ary2 ? "ok 1\n" : "not ok 1\n"); | |
15 | ||
16 | $out1=join(':',@ary); | |
17 | $out2=join(':',@ary2); | |
18 | print ($out1 eq $out2 ? "ok 2\n" : "not ok 2\n"); | |
19 | ||
20 | print ($foo =~ /def/ ? "ok 3\n" : "not ok 3\n"); |