[perl #133721] TODO test for eof with no ${^LAST_FH}
authorTony Cook <tony@develop-help.com>
Wed, 2 Jan 2019 00:49:47 +0000 (11:49 +1100)
committerTony Cook <tony@develop-help.com>
Wed, 2 Jan 2019 00:52:46 +0000 (11:52 +1100)
t/io/tell.t

index 7a046ca..30adafb 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
     set_up_inc('../lib');
 }
 
-plan(35);
+plan(36);
 
 $TST = 'TST';
 
@@ -187,3 +187,11 @@ seek $fh,0,0;
 is(tell, 0, "argless tell after seek \$coercible...");
 seek *$fh,0,0;
 is(tell, 0, "argless tell after seek *\$coercible...");
+
+{
+    local $TODO = "not fixed yet";
+    # [perl #133721]
+    fresh_perl_is(<<'EOI', 'ok', {}, 'eof with no ${^LAST_FH}');
+print "ok" if eof;
+EOI
+}