Minor niggles on the lfs tests.

p4raw-id: //depot/cfgperl@3963

diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t
index 8f89bdb..721a68f 100644 (file)
--- a/t/lib/syslfs.t
+++ b/t/lib/syslfs.t
@@ -14,7 +14,7 @@ BEGIN {
        require Config; import Config;
        # Don't bother if there are no quad offsets.
        if ($Config{lseeksize} < 8) {
-               print "1..0\n# no 64-bit offsets\n";
+               print "1..0\n# no 64-bit file offsets\n";
                bye();
        }
        require Fcntl; import Fcntl;
@@ -78,14 +78,14 @@ close BIG;
 print "# @s\n";
 
 sub fail () {
-    print " not ";
+    print "not ";
     $fail++;
 }
 
-fail unless $s[7] == 5_000_000_003;
+fail unless $s[7] == 5_000_000_003;    # exercizes pp_stat
 print "ok 1\n";
 
-fail unless -s "big" == 5_000_000_003;
+fail unless -s "big" == 5_000_000_003; # exercizes pp_ftsize
 print "ok 2\n";
 
 sysopen(BIG, "big", O_RDONLY) or do { warn "sysopen failed: $!\n"; bye };

diff --git a/t/op/lfs.t b/t/op/lfs.t
index 345fa26..5d4b3a1 100644 (file)
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -14,7 +14,7 @@ BEGIN {
        # Don't bother if there are no quad offsets.
        require Config; import Config;
        if ($Config{lseeksize} < 8) {
-               print "1..0\n# no 64-bit offsets\n";
+               print "1..0\n# no 64-bit file offsets\n";
                bye();
        }
 }
@@ -33,6 +33,8 @@ if ($^O eq 'win32' || $^O eq 'vms') {
 
 # Then try to deduce whether we have sparse files.
 
+# Let's not depend on Fcntl or any other extension.
+
 my ($SEEK_SET, $SEEK_CUR, $SEEK_END) = (0, 1, 2);
 
 # We'll start off by creating a one megabyte file which has
@@ -79,14 +81,14 @@ close BIG;
 print "# @s\n";
 
 sub fail () {
-    print " not ";
+    print "not ";
     $fail++;
 }
 
-fail unless $s[7] == 5_000_000_003;
+fail unless $s[7] == 5_000_000_003;    # exercizes pp_stat
 print "ok 1\n";
 
-fail unless -s "big" == 5_000_000_003;
+fail unless -s "big" == 5_000_000_003; # exercizes pp_ftsize
 print "ok 2\n";
 
 open(BIG, "big") or do { warn "open failed: $!\n"; bye };