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
[perl5.git] / t / lib / warnings / pad
1   pad.c         AOK
2
3      "my" variable %s masks earlier declaration in same scope
4         my $x;
5         my $x ;
6
7      Variable "%s" may be unavailable 
8         sub x {
9             my $x;
10             sub y {
11                 $x
12             }
13         }
14
15      Variable "%s" will not stay shared 
16         sub x {
17             my $x;
18             sub y {
19                 sub { $x }
20             }
21         }
22     "our" variable %s redeclared        (Did you mean "local" instead of "our"?)
23         our $x;
24         {
25             our $x;
26         }
27
28     %s never introduced         [pad_leavemy]   TODO
29     
30 __END__
31 # pad.c
32 use warnings 'misc' ;
33 my $x ;
34 my $x ;
35 my $y = my $y ;
36 no warnings 'misc' ;
37 my $x ;
38 my $y ;
39 EXPECT
40 "my" variable $x masks earlier declaration in same scope at - line 4.
41 "my" variable $y masks earlier declaration in same statement at - line 5.
42 ########
43 # pad.c
44 use warnings 'closure' ;
45 sub x {
46       my $x;
47       sub y {
48          $x
49       }
50    }
51 EXPECT
52 Variable "$x" will not stay shared at - line 7.
53 ########
54 # pad.c
55 no warnings 'closure' ;
56 sub x {
57       my $x;
58       sub y {
59          $x
60       }
61    }
62 EXPECT
63
64 ########
65 # pad.c
66 use warnings 'closure' ;
67 sub x {
68       our $x;
69       sub y {
70          $x
71       }
72    }
73 EXPECT
74
75 ########
76 # pad.c
77 use warnings 'closure' ;
78 sub x {
79       my $x;
80       sub y {
81          sub { $x }
82       }
83    }
84 EXPECT
85 Variable "$x" may be unavailable at - line 6.
86 ########
87 # pad.c
88 no warnings 'closure' ;
89 sub x {
90       my $x;
91       sub y {
92          sub { $x }
93       }
94    }
95 EXPECT
96
97 ########
98 use warnings 'misc' ;
99 our $x;
100 {
101     our $x;
102 }
103 EXPECT
104 "our" variable $x redeclared at - line 4.
105         (Did you mean "local" instead of "our"?)