new tests

Message-Id: <20010917224805.C11744@rafael>

p4raw-id: //depot/perl@12058

2 files changed, 51 insertions, 7 deletions

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 2c2c3f5113..ab6d773c1f 100644
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -106,6 +106,8 @@
      Use of "package" with no arguments is deprecated
 	package;
 
+    Package `%s' not found (did you use the incorrect case?)
+
     Mandatory Warnings 
     ------------------
     Prototype mismatch:		[cv_ckproto]
@@ -939,3 +941,12 @@ EXPECT
 Use of "package" with no arguments is deprecated at - line 3.
 Global symbol "BEGIN" requires explicit package name at - line 4.
 BEGIN not safe after errors--compilation aborted at - line 4.
+########
+# op.c [Perl_utilize]
+use warnings 'misc';
+push @INC, sub { $_[1] eq 'Joe.pm' ? *DATA : undef };
+eval "use Joe";
+__DATA__
+package joe; 1;
+EXPECT
+Package `Joe' not found (did you use the incorrect case?) at (eval 1) line 2.
diff --git a/t/lib/warnings/pp b/t/lib/warnings/pp
index 4b3014da14..2f4bf7b068 100644
--- a/t/lib/warnings/pp
+++ b/t/lib/warnings/pp
@@ -6,10 +6,10 @@
   Attempt to use reference as lvalue in substr 
     $a = "ab" ; $b = \$a ;  substr($b, 1,1) = $b
 
-  uninitialized	in pp_rv2gv()
-	my *b = *{ undef()}
+  Use of uninitialized value in ref-to-glob cast	[pp_rv2gv()]
+	*b = *{ undef()}
 
-  uninitialized	in pp_rv2sv()
+  Use of uninitialized value in scalar dereference	[pp_rv2sv()]
 	my $a = undef ; my $b = $$a
 
   Odd number of elements in hash list
@@ -18,8 +18,11 @@
   Explicit blessing to '' (assuming package main)
 	bless \[], "";
 
-  Constant subroutine %s undefined			<<<TODO
-  Constant subroutine (anonymous) undefined		<<<TODO
+  Constant subroutine %s undefined
+	sub foo () { 1 }; undef &foo;
+
+  Constant subroutine (anonymous) undefined
+	$foo = sub () { 3 }; undef &$foo;
 
 __END__
 # pp.c
@@ -44,9 +47,19 @@ Attempt to use reference as lvalue in substr at - line 5.
 ########
 # pp.c
 use warnings 'uninitialized' ;
-# TODO
+*x = *{ undef() };
+no warnings 'uninitialized' ;
+*y = *{ undef() };
 EXPECT
-
+Use of uninitialized value in ref-to-glob cast at - line 3.
+########
+# pp.c
+use warnings 'uninitialized';
+$x = undef; $y = $$x;
+no warnings 'uninitialized' ;
+$u = undef; $v = $$u;
+EXPECT
+Use of uninitialized value in scalar dereference at - line 3.
 ########
 # pp.c
 use warnings 'misc' ;
@@ -65,6 +78,26 @@ EXPECT
 Explicit blessing to '' (assuming package main) at - line 3.
 ########
 # pp.c
+use warnings 'misc';
+sub foo () { 1 }
+undef &foo;
+no warnings 'misc';
+sub bar () { 2 }
+undef &bar;
+EXPECT
+Constant subroutine foo undefined at - line 4.
+########
+# pp.c
+use warnings 'misc';
+$foo = sub () { 3 };
+undef &$foo;
+no warnings 'misc';
+$bar = sub () { 4 };
+undef &$bar;
+EXPECT
+Constant subroutine (anonymous) undefined at - line 4.
+########
+# pp.c
 use utf8 ;
 $_ = "\x80  \xff" ;
 reverse ;