On Mon, Nov 01, 2004 at 07:50:30PM -0000, Yitzchak Scott-Thoennes wrote:
> t/io/tell.................................FAILED at test 28
> The io/tell doesn't concern me; it's a questionable test, and goes away
> with PERLIO=perlio (or -Uusefaststdio).
Here's a patch to skip it. It isn't actually needed on blead (where
usefaststdio is undef), but is harmless there.
--- perl/t/io/tell.t.orig 2003-08-30 12:56:58.000000000 -0700
+++ perl/t/io/tell.t 2004-11-09 17:24:51.044630400 -0800
@@ -148,7 +148,13 @@
close $tst;
open($tst,">>$written") || die "Cannot open $written:$!";
+# This test makes a questionable assumption that the file pointer will
+# be at eof after opening a file but before seeking, reading, or writing.
+# Only known failure is on cygwin.
+my $skip = $^O eq "cygwin" && &PerlIO::get_layers($tst) eq 'stdio'
+ && ' # skip: file pointer not at eof';
+
if (tell($tst) == 6)
-{ print "ok 28\n"; } else { print "not ok 28\n"; }
+{ print "ok 28$skip\n"; } else { print "not ok 28$skip\n"; }
close $tst;
End of Patch.
