update TOC for perl5153delta

[perl5.git] / t / io / say.t

diff --git a/t/io/say.t b/t/io/say.t
index ead4d0b..70f83a7 100644 (file)
--- a/t/io/say.t
+++ b/t/io/say.t
@@ -16,7 +16,7 @@ BEGIN {
 use strict 'vars';
 use feature "say";
 
-say "1..12";
+say "1..13";
 
 my $foo = 'STDOUT';
 say $foo "ok 1";
@@ -53,3 +53,8 @@ say STDOUT;
     local $, = "\nnot ok 13"; # how to fool Test::Harness
     say "ok 12";
 }
+
+{
+    no feature 'say';
+    CORE::say "ok 13 - CORE::say without feature.pm";
+}