| … | |
… | |
| 3 | print "1..0 # skip Storable module unavailable\n"; |
3 | print "1..0 # skip Storable module unavailable\n"; |
| 4 | exit; |
4 | exit; |
| 5 | }; |
5 | }; |
| 6 | } |
6 | } |
| 7 | |
7 | |
| 8 | BEGIN { $| = 1; print "1..1245\n"; } |
8 | BEGIN { $| = 1; print "1..1246\n"; } |
| 9 | |
9 | |
| 10 | END {print "not ok 1\n" unless $loaded;} |
10 | END {print "not ok 1\n" unless $loaded;} |
| 11 | use Compress::LZF ':freeze'; |
11 | use Compress::LZF ':freeze'; |
| 12 | use Storable; |
12 | use Storable; |
| 13 | $loaded = 1; |
13 | $loaded = 1; |
| … | |
… | |
| 49 | chk chr($pfx)."x"; |
49 | chk chr($pfx)."x"; |
| 50 | chk chr($pfx)."xxxxxxxxxxxxx"; |
50 | chk chr($pfx)."xxxxxxxxxxxxx"; |
| 51 | chk chr($pfx)."abcdefghijklm"; |
51 | chk chr($pfx)."abcdefghijklm"; |
| 52 | } |
52 | } |
| 53 | |
53 | |
| 54 | ok (!eval {sthaw undef; 1}); |
54 | ok (eval {sthaw undef; 1}); |
| 55 | ok (!eval {sthaw "\x07"; 1}); |
55 | ok (!eval {sthaw "\x07"; 1}); |
| 56 | ok (!defined sthaw sfreeze undef); |
56 | ok (!defined sthaw sfreeze undef); |
| 57 | |
57 | |
