diff options
Diffstat (limited to 't/io')
| -rwxr-xr-x | t/io/tell.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/io/tell.t b/t/io/tell.t index fa9d809f1f..21e8336a29 100755 --- a/t/io/tell.t +++ b/t/io/tell.t @@ -148,7 +148,13 @@ print $tst "foobar"; 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; |