develooper Front page | perl.perl5.porters | Postings from December 2000

Re: [ID 20001229.001] Not OK: perl v5.7.0 +DEVEL8221 on i686-linux 2.4.0-test13pre4-ac2 -2 (UNINSTALLED)

Thread Previous | Thread Next
From:
andreas.koenig
Date:
December 29, 2000 05:23
Subject:
Re: [ID 20001229.001] Not OK: perl v5.7.0 +DEVEL8221 on i686-linux 2.4.0-test13pre4-ac2 -2 (UNINSTALLED)
Message ID:
m3snn7uzt6.fsf@ak-71.mind.de
>>>>> 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


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About