diff options
| author | Yitzchak Scott-Thoennes <sthoenna@efn.org> | 2004-11-09 17:30:14 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-11-10 09:32:39 +0000 |
| commit | 9277038781ef547cb9d994aebe1ec82e3270d9ac (patch) | |
| tree | a0430001c00b17e4929ac8147eef22a022517f0e /t/io | |
| parent | e4fdb3274a28952a735da9461d3c59a2e59bcb77 (diff) | |
| download | perl-9277038781ef547cb9d994aebe1ec82e3270d9ac.tar.gz | |
Replace a skip by a todo.
Subject: Re: [PATCH] Re: [perl #32272] Not OK: perl v5.8.5 +MAINT23414 on cygwin-thread-multi-64int 1.5.12s(0.11642) (UNINSTALLED)
Message-ID: <20041110093014.GA1676@efn.org>
p4raw-id: //depot/perl@23492
Diffstat (limited to 't/io')
| -rwxr-xr-x | t/io/tell.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/io/tell.t b/t/io/tell.t index 21e8336a29..1e1f661cd1 100755 --- a/t/io/tell.t +++ b/t/io/tell.t @@ -151,10 +151,10 @@ 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'; +my $todo = $^O eq "cygwin" && &PerlIO::get_layers($tst) eq 'stdio' + && ' # TODO: file pointer not at eof'; if (tell($tst) == 6) -{ print "ok 28$skip\n"; } else { print "not ok 28$skip\n"; } +{ print "ok 28$todo\n"; } else { print "not ok 28$todo\n"; } close $tst; |