Change 12058 by ams@ams-lustre on 2001/09/17 19:52:01
Subject: [PATCH t/lib/warnings/pp, t/lib/warnings/op] new tests
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Mon, 17 Sep 2001 22:48:05 +0200
Message-Id: <20010917224805.C11744@rafael>
Affected files ...
... //depot/perl/t/lib/warnings/op#6 edit
... //depot/perl/t/lib/warnings/pp#4 edit
Differences ...
==== //depot/perl/t/lib/warnings/op#6 (text) ====
Index: perl/t/lib/warnings/op
--- perl/t/lib/warnings/op.~1~ Mon Sep 17 14:00:05 2001
+++ perl/t/lib/warnings/op Mon Sep 17 14:00:05 2001
@@ -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 @@
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.
==== //depot/perl/t/lib/warnings/pp#4 (text) ====
Index: perl/t/lib/warnings/pp
--- perl/t/lib/warnings/pp.~1~ Mon Sep 17 14:00:05 2001
+++ perl/t/lib/warnings/pp Mon Sep 17 14:00:05 2001
@@ -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 @@
########
# 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 @@
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 ;
End of Patch.
