Added a TODO test for RT#69332 - PerlIO returns undef instead of 0 on EOL
authorJesse Vincent <jesse@bestpractical.com>
Sat, 10 Oct 2009 20:15:35 +0000 (16:15 -0400)
committerJesse Vincent <jesse@bestpractical.com>
Sat, 10 Oct 2009 20:15:35 +0000 (16:15 -0400)
t/io/perlio.t

index c5f236d..cdc4c72 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
        require './test.pl';
 }
 
-plan tests => 39;
+plan tests => 40;
 
 use_ok('PerlIO');
 
@@ -145,6 +145,30 @@ SKIP: {
 }
 
 
+{ local $TODO = 'fails well back into 5.8.x';
+
+       
+sub read_fh_and_return_final_rv {
+       my ($fh) = @_;
+       my $buf = '';
+       my $rv;
+       for (1..3) {
+               $rv = read($fh, $buf, 1, length($buf));
+               next if $rv;
+       }
+       return $rv
+}
+
+open(my $no_perlio, '<', \'ab') or die; 
+open(my $perlio, '<:crlf', \'ab') or die; 
+
+is(read_fh_and_return_final_rv($perlio), read_fh_and_return_final_rv($no_perlio), "RT#69332 - perlio should return the same value as nonperlio after EOF");
+
+close ($perlio);
+close ($no_perlio);
+}
+
+
 END {
     1 while unlink $txt;
     1 while unlink $bin;