Perlito5 - indirect-object tests

fglock · Jul 12, 2013 · 840f866 · 840f866
1 parent 360b966
commit 840f866
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/t5-bug/40-indirect-object.t b/t5-bug/40-indirect-object.t
@@ -1,7 +1,7 @@
 use feature 'say';
 use strict;
 
-say "1..50";
+say "1..52";
 
 {
     package Exists; 
@@ -277,6 +277,9 @@ $code = 'say STDOUT "# 123"';
 $expect = '';
 show;
 
+$code = 'say STDERR, "# 123"';
+$expect = 'No comma allowed after filehandle'; 
+show;
 
 
 #----- special syntax for print and say
@@ -297,6 +300,10 @@ $code = 'say (STDOUT "# 123")';
 $expect = '';
 show();
 
+$code = 'say (STDERR, "# 123")';
+$expect = 'No comma allowed after filehandle'; 
+show;
+
 
 #----- print and say with scalar