X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpragma%2Fwarn%2Fpp_hot;h=26aef63e7bb804377964a3505492e3960a3f60ed;hb=38e81d60445a7f4bad958fec53ae294aebf176e0;hp=208bf26b1504f499442eae14c549b63468e8e161;hpb=88c07c3641c0fb59ded524dfdcea26f44c3acd38;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/pragma/warn/pp_hot b/t/pragma/warn/pp_hot
index 208bf26..26aef63 100644
--- a/t/pragma/warn/pp_hot
+++ b/t/pragma/warn/pp_hot
@@ -1,127 +1,166 @@
-  pp_hot.c	AOK
+  pp_hot.c	
 
-  Filehandle %s never opened
+  print() on unopened filehandle abc		[pp_print]
     $f = $a = "abc" ; print $f $a
 
-  Filehandle %s opened only for input
+  Filehandle %s opened only for input		[pp_print]
     print STDIN "abc" ;
 
-  Filehandle %s opened only for output
+  Filehandle %s opened only for output		[pp_print]
     print <STDOUT> ;
 
-  print on closed filehandle %s
+  print() on closed filehandle %s		[pp_print]
     close STDIN ; print STDIN "abc" ;
 
-  uninitialized
+  uninitialized					[pp_rv2av]
 	my $a = undef ; my @b = @$a
 
-  uninitialized	
+  uninitialized					[pp_rv2hv]
 	my $a = undef ; my %b = %$a
 
-  Odd number of elements in hash list
+  Odd number of elements in hash list		[pp_aassign]
 	%X = (1,2,3) ;
 
-  Reference found where even-sized list expected 
+  Reference found where even-sized list expected [pp_aassign]
 	$X = [ 1 ..3 ];
 
-  Read on closed filehandle %s
+  Filehandle %s opened only for output		[Perl_do_readline] 
+  	open (FH, ">./xcv") ;
+	my $a = <FH> ;
+
+  glob failed (can't start child: %s)		[Perl_do_readline] <<TODO
+
+  readline() on closed filehandle %s		[Perl_do_readline]
     close STDIN ; $a = <STDIN>;
 
-  Deep recursion on subroutine \"%s\"
-     sub fred { fred() if $a++ < 200} fred()
+  readline() on closed filehandle %s		[Perl_do_readline]
+    readline(NONESUCH);
+
+  glob failed (child exited with status %d%s)	[Perl_do_readline] <<TODO
+
+  Deep recursion on subroutine \"%s\"		[Perl_sub_crush_depth]
+    sub fred { fred() if $a++ < 200} fred()
+
+  Deep recursion on anonymous subroutine 	[Perl_sub_crush_depth]
+    $a = sub { &$a if $a++ < 200} &$a
+
+  Possible Y2K bug: about to append an integer to '19' [pp_concat]
+    $x     = "19$yy\n";
 
-  Deep recursion on anonymous subroutine 
-     $a = sub { &$a if $a++ < 200} &$a
+  Use of reference "%s" as array index [pp_aelem]
+    $x[\1]
 
 __END__
-# pp_hot.c
-use warning 'unopened' ;
+# pp_hot.c [pp_print]
+use warnings 'unopened' ;
 $f = $a = "abc" ; 
 print $f $a;
-no warning 'unopened' ;
+no warnings 'unopened' ;
 print $f $a;
 EXPECT
-Filehandle main::abc never opened at - line 4.
+print() on unopened filehandle abc at - line 4.
 ########
-# pp_hot.c
-use warning 'io' ;
+# pp_hot.c [pp_print]
+use warnings 'io' ;
 print STDIN "anc";
 print <STDOUT>;
 print <STDERR>;
 open(FOO, ">&STDOUT") and print <FOO>;
 print getc(STDERR);
 print getc(FOO);
-read(FOO,$_,1);
-no warning 'io' ;
-print STDIN "anc";
 ####################################################################
-#                            N O T E                               #
-# This test is known to fail on Linux and *BSD systems with glibc. #
-# The glibc development team is aware of the problem, and has      #
-# determined a fix for the next release of that library.           #
+# The next test is known to fail on some systems (Linux+old glibc, #
+# some *BSDs (including Mac OS X and NeXT), among others.          #
+# We skip it for now (on the grounds that it is "just" a warning). #
 ####################################################################
+#read(FOO,$_,1);
+no warnings 'io' ;
+print STDIN "anc";
 EXPECT
-Filehandle main::STDIN opened only for input at - line 3.
-Filehandle main::STDOUT opened only for output at - line 4.
-Filehandle main::STDERR opened only for output at - line 5.
-Filehandle main::FOO opened only for output at - line 6.
-Filehandle main::STDERR opened only for output at - line 7.
-Filehandle main::FOO opened only for output at - line 8.
-Filehandle main::FOO opened only for output at - line 9.
+Filehandle STDIN opened only for input at - line 3.
+Filehandle STDOUT opened only for output at - line 4.
+Filehandle STDERR opened only for output at - line 5.
+Filehandle FOO opened only for output at - line 6.
+Filehandle STDERR opened only for output at - line 7.
+Filehandle FOO opened only for output at - line 8.
 ########
-# pp_hot.c
-use warning 'closed' ;
+# pp_hot.c [pp_print]
+use warnings 'closed' ;
 close STDIN ;
 print STDIN "anc";
-no warning 'closed' ;
+opendir STDIN, ".";
+print STDIN "anc";
+closedir STDIN;
+no warnings 'closed' ;
+print STDIN "anc";
+opendir STDIN, ".";
 print STDIN "anc";
 EXPECT
-print on closed filehandle main::STDIN at - line 4.
+print() on closed filehandle STDIN at - line 4.
+print() on closed filehandle STDIN at - line 6.
+	(Are you trying to call print() on dirhandle STDIN?)
 ########
-# pp_hot.c
-use warning 'uninitialized' ;
+# pp_hot.c [pp_rv2av]
+use warnings 'uninitialized' ;
 my $a = undef ;
 my @b = @$a;
-no warning 'uninitialized' ;
+no warnings 'uninitialized' ;
 my @c = @$a;
 EXPECT
-Use of uninitialized value at - line 4.
+Use of uninitialized value in array dereference at - line 4.
 ########
-# pp_hot.c
-use warning 'uninitialized' ;
+# pp_hot.c [pp_rv2hv]
+use warnings 'uninitialized' ;
 my $a = undef ;
 my %b = %$a;
-no warning 'uninitialized' ;
+no warnings 'uninitialized' ;
 my %c = %$a;
 EXPECT
-Use of uninitialized value at - line 4.
+Use of uninitialized value in hash dereference at - line 4.
 ########
-# pp_hot.c
-use warning 'unsafe' ;
+# pp_hot.c [pp_aassign]
+use warnings 'misc' ;
 my %X ; %X = (1,2,3) ;
-no warning 'unsafe' ;
+no warnings 'misc' ;
 my %Y ; %Y = (1,2,3) ;
 EXPECT
 Odd number of elements in hash assignment at - line 3.
 ########
-# pp_hot.c
-use warning 'unsafe' ;
+# pp_hot.c [pp_aassign]
+use warnings 'misc' ;
 my %X ; %X = [1 .. 3] ;
-no warning 'unsafe' ;
+no warnings 'misc' ;
 my %Y ; %Y = [1 .. 3] ;
 EXPECT
 Reference found where even-sized list expected at - line 3.
 ########
-# pp_hot.c
-use warning 'closed' ;
-close STDIN ; $a = <STDIN> ;
-no warning 'closed' ;
+# pp_hot.c [Perl_do_readline]
+use warnings 'closed' ;
+close STDIN        ; $a = <STDIN> ;
+opendir STDIN, "." ; $a = <STDIN> ;
+closedir STDIN;
+no warnings 'closed' ;
+opendir STDIN, "." ; $a = <STDIN> ;
 $a = <STDIN> ;
 EXPECT
-Read on closed filehandle main::STDIN at - line 3.
+readline() on closed filehandle STDIN at - line 3.
+readline() on closed filehandle STDIN at - line 4.
+	(Are you trying to call readline() on dirhandle STDIN?)
 ########
-# pp_hot.c
-use warning 'recursion' ;
+# pp_hot.c [Perl_do_readline]
+use warnings 'io' ;
+my $file = "./xcv" ; unlink $file ;
+open (FH, ">./xcv") ;
+my $a = <FH> ;
+no warnings 'io' ;
+$a = <FH> ;
+close (FH) ;
+unlink $file ;
+EXPECT
+Filehandle FH opened only for output at - line 5.
+########
+# pp_hot.c [Perl_sub_crush_depth]
+use warnings 'recursion' ;
 sub fred 
 { 
     fred() if $a++ < 200
@@ -135,8 +174,8 @@ sub fred
 EXPECT
 ok
 ########
-# pp_hot.c
-no warning 'recursion' ;
+# pp_hot.c [Perl_sub_crush_depth]
+no warnings 'recursion' ;
 sub fred 
 { 
     fred() if $a++ < 200
@@ -150,8 +189,8 @@ sub fred
 EXPECT
 
 ########
-# pp_hot.c
-use warning 'recursion' ;
+# pp_hot.c [Perl_sub_crush_depth]
+use warnings 'recursion' ;
 $b = sub 
 { 
     &$b if $a++ < 200
@@ -161,8 +200,8 @@ $b = sub
 EXPECT
 Deep recursion on anonymous subroutine at - line 5.
 ########
-# pp_hot.c
-no warning 'recursion' ;
+# pp_hot.c [Perl_sub_crush_depth]
+no warnings 'recursion' ;
 $b = sub 
 { 
     &$b if $a++ < 200
@@ -170,4 +209,39 @@ $b = sub
 
 &$b ;
 EXPECT
+########
+# pp_hot.c [pp_concat]
+use warnings 'y2k';
+use Config;
+BEGIN {
+    unless ($Config{ccflags} =~ /Y2KWARN/) {
+	print "SKIPPED\n# perl not built with -DPERL_Y2KWARN";
+	exit 0;
+    }
+}
+my $x;
+my $yy = 78;
+$x     = "19$yy\n";
+$x     = "19" . $yy . "\n";
+$x     = "319$yy\n";
+$x     = "319" . $yy . "\n";
+no warnings 'y2k';
+$x     = "19$yy\n";
+$x     = "19" . $yy . "\n";
+EXPECT
+Possible Y2K bug: about to append an integer to '19' at - line 12.
+Possible Y2K bug: about to append an integer to '19' at - line 13.
+########
+# pp_hot.c [pp_aelem]
+{
+use warnings 'misc';
+print $x[\1];
+}
+{
+no warnings 'misc';
+print $x[\1];
+}
 
+EXPECT
+OPTION regex
+Use of reference ".*" as array index at - line 4.