Front page | perl.perl5.porters |
Postings from December 2000
>>>>> On Fri, 29 Dec 2000 13:14:22 +0100, root@ak-75.mind.de said:
> I'll try to patch lfs.t to reveal more facts.
The patch below does just this (and makes it use strict clean). Output
of the test script after the patch is:
./perl op/lfs.t
# checking whether we have sparse files...
# s1 = 8451 1377435 33188 1 500 500 0 1000003 978092815 978092815 978092815 4096 16
# s2 = 8451 1377436 33188 1 500 500 0 2000003 978092815 978092815 978092815 4096 16
# we seem to have sparse files...
# 8451 1377435 33188 1 500 500 0 5000000003 978092815 978092815 978092815 4096 32
1..17
ok 1
ok 2
ok 3
ok 4
ok 5
# tell[205032704]
not ok 6
ok 7
# tell[205032705]
not ok 8
ok 9
# tell[205032704]
not ok 10
ok 11
# tell[705032704]
not ok 12
ok 13
ok 14
ok 15
ok 16
ok 17
Recommendations how to proceed further welcome.
--- lfs.t~ Tue Dec 12 04:32:12 2000
+++ lfs.t Fri Dec 29 13:26:51 2000
@@ -13,6 +13,10 @@
}
}
+use strict;
+our @s;
+our $fail;
+
sub zap {
close(BIG);
unlink("big");
@@ -189,25 +193,41 @@
fail unless seek(BIG, 4_500_000_000, $SEEK_SET);
print "ok 5\n";
-fail unless tell(BIG) == 4_500_000_000;
+my $tell = tell(BIG);
+unless ($tell == 4_500_000_000){
+ print "# tell[$tell]\n";
+ fail;
+}
print "ok 6\n";
fail unless seek(BIG, 1, $SEEK_CUR);
print "ok 7\n";
-fail unless tell(BIG) == 4_500_000_001;
+$tell = tell(BIG);
+unless ($tell == 4_500_000_001){
+ print "# tell[$tell]\n";
+ fail;
+}
print "ok 8\n";
fail unless seek(BIG, -1, $SEEK_CUR);
print "ok 9\n";
-fail unless tell(BIG) == 4_500_000_000;
+$tell = tell(BIG);
+unless ($tell == 4_500_000_000){
+ print "# tell[$tell]\n";
+ fail;
+}
print "ok 10\n";
fail unless seek(BIG, -3, $SEEK_END);
print "ok 11\n";
-fail unless tell(BIG) == 5_000_000_000;
+$tell = tell(BIG);
+unless ($tell == 5_000_000_000){
+ print "# tell[$tell]\n";
+ fail;
+}
print "ok 12\n";
my $big;
--
andreas
Thread Previous
|
Thread Next