4 print "1..0\n# no 64-bit types\n";
9 # First try to figure out whether we have sparse files.
11 if ($^O eq 'win32' || $^O eq 'vms') {
12 print "1..0\n# no sparse files\n";
23 unless (@s == 13 && defined $s[11] && defined $s[12]) {
24 print "1..0\n# no sparse files\n";
28 # By now we better be sure that we do have sparse files:
29 # if we are not, the following will hog 5 gigabytes of disk. Ooops.
35 seek(BIG, 5_000_000_000, 0);
41 print "not " unless $s[7] == 5_000_000_003;
44 print "not " unless -s "big" == 5_000_000_003;
50 seek(BIG, 4_500_000_000, 0);
52 print "not " unless tell(BIG) == 4_500_000_000;
57 print "not " unless tell(BIG) == 4_500_000_001;
62 print "not " unless tell(BIG) == 4_500_000_000;
67 print "not " unless tell(BIG) == 5_000_000_000;
72 print "not " unless read(BIG, $big, 3) == 3;
75 print "not " unless $big eq "big";
80 # Testing sysseek() and other sys*() io would be nice but for
81 # the tests to be be portable they require the SEEK_* constants.