Add a testcase for #7389.

p4raw-id: //depot/perl@7390

diff --git a/t/pragma/warn/op b/t/pragma/warn/op
index de326f8..0163d76 100644 (file)
--- a/t/pragma/warn/op
+++ b/t/pragma/warn/op
@@ -71,6 +71,13 @@
      Constant subroutine %s redefined 
         sub fred() {1;} sub fred() {1;}
  
+     Constant subroutine %s redefined 
+        sub fred() {1;} sub fred() {1;}
+ 
+     Prototype mismatch: sub main::foo () vs none
+     Constant subroutine foo redefined
+       sub foo () {1} sub foo {1}
+
      Format FRED redefined at /tmp/x line 5.
        format FRED =
        .
@@ -730,6 +737,14 @@ EXPECT
 Constant subroutine fred redefined at - line 4.
 ########
 # op.c
+use warnings;
+sub foo () {1}
+sub foo {1}
+EXPECT
+Prototype mismatch: sub main::foo () vs none at - line 4.
+Constant subroutine foo redefined at - line 4.
+########
+# op.c
 use warnings 'redefine' ;
 format FRED =
 .