diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2004-11-09 09:40:13 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-11-10 07:40:31 +0000 |
| commit | e4fdb3274a28952a735da9461d3c59a2e59bcb77 (patch) | |
| tree | 64f0fc72e05185f688bbf9c27829eb54b68e6eee /t | |
| parent | 1d7a7f6e08569eb13844cd5993e89de940bb3298 (diff) | |
| download | perl-e4fdb3274a28952a735da9461d3c59a2e59bcb77.tar.gz | |
Re: [perl #32272] Not OK: perl v5.8.5 +MAINT23414 on cygwin-thread-multi-64int 1.5.12s(0.11642) (UNINSTALLED)
Message-ID: <20041110014012.GA2796@efn.org>
p4raw-id: //depot/perl@23491
Diffstat (limited to 't')
| -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; |