This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
move pad.c warnings to different test file
authorDave Mitchell <davem@fdisolutions.com>
Thu, 23 Jan 2003 20:56:47 +0000 (20:56 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 23 Jan 2003 20:46:00 +0000 (20:46 +0000)
Message-ID: <20030123205647.C8696@fdgroup.com>

p4raw-id: //depot/perl@18577

MANIFEST
t/lib/warnings/op
t/lib/warnings/pad [new file with mode: 0644]

index be7882c..026cdd7 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -2500,6 +2500,7 @@ t/lib/warnings/hv         Tests for hv.c for warnings.t
 t/lib/warnings/malloc          Tests for malloc.c for warnings.t
 t/lib/warnings/mg              Tests for mg.c for warnings.t
 t/lib/warnings/op              Tests for op.c for warnings.t
+t/lib/warnings/pad             Tests for pad.c for warnings.t
 t/lib/warnings/perl            Tests for perl.c for warnings.t
 t/lib/warnings/perlio          Tests for perlio.c for warnings.t
 t/lib/warnings/perly           Tests for perly.y for warnings.t
index c5f8147..3e8261b 100644 (file)
@@ -1,25 +1,5 @@
   op.c         AOK
 
-     "my" variable %s masks earlier declaration in same scope
-       my $x;
-       my $x ;
-
-     Variable "%s" may be unavailable 
-       sub x {
-           my $x;
-           sub y {
-               $x
-           }
-       }
-
-     Variable "%s" will not stay shared 
-       sub x {
-           my $x;
-           sub y {
-               sub { $x }
-           }
-       }
-
      Found = in conditional, should be ==
        1 if $a = 1 ;
 
         sub fred() ;
         sub fred($) {}
 
-    %s never introduced                [pad_leavemy]   TODO
     Runaway prototype          [newSUB]        TODO
     oops: oopsAV               [oopsAV]        TODO
     oops: oopsHV               [oopsHV]        TODO
     
 __END__
 # op.c
-use warnings 'misc' ;
-my $x ;
-my $x ;
-my $y = my $y ;
-no warnings 'misc' ;
-my $x ;
-my $y ;
-EXPECT
-"my" variable $x masks earlier declaration in same scope at - line 4.
-"my" variable $y masks earlier declaration in same statement at - line 5.
-########
-# op.c
-use warnings 'closure' ;
-sub x {
-      my $x;
-      sub y {
-         $x
-      }
-   }
-EXPECT
-Variable "$x" will not stay shared at - line 7.
-########
-# op.c
-no warnings 'closure' ;
-sub x {
-      my $x;
-      sub y {
-         $x
-      }
-   }
-EXPECT
-
-########
-# op.c
-use warnings 'closure' ;
-sub x {
-      our $x;
-      sub y {
-         $x
-      }
-   }
-EXPECT
-
-########
-# op.c
-use warnings 'closure' ;
-sub x {
-      my $x;
-      sub y {
-         sub { $x }
-      }
-   }
-EXPECT
-Variable "$x" may be unavailable at - line 6.
-########
-# op.c
-no warnings 'closure' ;
-sub x {
-      my $x;
-      sub y {
-         sub { $x }
-      }
-   }
-EXPECT
-
-########
-# op.c
 use warnings 'syntax' ;
 1 if $a = 1 ;
 no warnings 'syntax' ;
diff --git a/t/lib/warnings/pad b/t/lib/warnings/pad
new file mode 100644 (file)
index 0000000..7dd2876
--- /dev/null
@@ -0,0 +1,105 @@
+  pad.c                AOK
+
+     "my" variable %s masks earlier declaration in same scope
+       my $x;
+       my $x ;
+
+     Variable "%s" may be unavailable 
+       sub x {
+           my $x;
+           sub y {
+               $x
+           }
+       }
+
+     Variable "%s" will not stay shared 
+       sub x {
+           my $x;
+           sub y {
+               sub { $x }
+           }
+       }
+    "our" variable %s redeclared       (Did you mean "local" instead of "our"?)
+       our $x;
+       {
+           our $x;
+       }
+
+    %s never introduced                [pad_leavemy]   TODO
+    
+__END__
+# pad.c
+use warnings 'misc' ;
+my $x ;
+my $x ;
+my $y = my $y ;
+no warnings 'misc' ;
+my $x ;
+my $y ;
+EXPECT
+"my" variable $x masks earlier declaration in same scope at - line 4.
+"my" variable $y masks earlier declaration in same statement at - line 5.
+########
+# pad.c
+use warnings 'closure' ;
+sub x {
+      my $x;
+      sub y {
+         $x
+      }
+   }
+EXPECT
+Variable "$x" will not stay shared at - line 7.
+########
+# pad.c
+no warnings 'closure' ;
+sub x {
+      my $x;
+      sub y {
+         $x
+      }
+   }
+EXPECT
+
+########
+# pad.c
+use warnings 'closure' ;
+sub x {
+      our $x;
+      sub y {
+         $x
+      }
+   }
+EXPECT
+
+########
+# pad.c
+use warnings 'closure' ;
+sub x {
+      my $x;
+      sub y {
+         sub { $x }
+      }
+   }
+EXPECT
+Variable "$x" may be unavailable at - line 6.
+########
+# pad.c
+no warnings 'closure' ;
+sub x {
+      my $x;
+      sub y {
+         sub { $x }
+      }
+   }
+EXPECT
+
+########
+use warnings 'misc' ;
+our $x;
+{
+    our $x;
+}
+EXPECT
+"our" variable $x redeclared at - line 4.
+       (Did you mean "local" instead of "our"?)