Move the locale/strict/warnings helper files back
[p5sagit/p5-mst-13.2.git] / t / lib / warnings / pp
1   pp.c  TODO
2
3   substr outside of string
4     $a = "ab" ; $b = substr($a, 4,5) ;
5
6   Attempt to use reference as lvalue in substr 
7     $a = "ab" ; $b = \$a ;  substr($b, 1,1) = $b
8
9   uninitialized in pp_rv2gv()
10         my *b = *{ undef()}
11
12   uninitialized in pp_rv2sv()
13         my $a = undef ; my $b = $$a
14
15   Odd number of elements in hash list
16         my $a = { 1,2,3 } ;
17
18   Invalid type in unpack: '%c
19         my $A = pack ("A,A", 1,2) ;
20         my @A = unpack ("A,A", "22") ;
21
22   Attempt to pack pointer to temporary value
23         pack("p", "abc") ;
24
25   Explicit blessing to '' (assuming package main)
26         bless \[], "";
27
28   Constant subroutine %s undefined                      <<<TODO
29   Constant subroutine (anonymous) undefined             <<<TODO
30
31 __END__
32 # pp.c
33 use warnings 'substr' ;
34 $a = "ab" ; 
35 $b = substr($a, 4,5) ;
36 no warnings 'substr' ;
37 $a = "ab" ; 
38 $b = substr($a, 4,5)  ;
39 EXPECT
40 substr outside of string at - line 4.
41 ########
42 # pp.c
43 use warnings 'substr' ;
44 $a = "ab" ; 
45 $b = \$a ;  
46 substr($b, 1,1) = "ab" ;
47 no warnings 'substr' ;
48 substr($b, 1,1) = "ab" ;
49 EXPECT
50 Attempt to use reference as lvalue in substr at - line 5.
51 ########
52 # pp.c
53 use warnings 'uninitialized' ;
54 # TODO
55 EXPECT
56
57 ########
58 # pp.c
59 use warnings 'misc' ;
60 my $a = { 1,2,3};
61 no warnings 'misc' ;
62 my $b = { 1,2,3};
63 EXPECT
64 Odd number of elements in hash assignment at - line 3.
65 ########
66 # pp.c
67 use warnings 'pack' ;
68 use warnings 'unpack' ;
69 my @a = unpack ("A,A", "22") ;
70 my $a = pack ("A,A", 1,2) ;
71 no warnings 'pack' ;
72 no warnings 'unpack' ;
73 my @b = unpack ("A,A", "22") ;
74 my $b = pack ("A,A", 1,2) ;
75 EXPECT
76 Invalid type in unpack: ',' at - line 4.
77 Invalid type in pack: ',' at - line 5.
78 ########
79 # pp.c
80 use warnings 'uninitialized' ;
81 my $a = undef ; 
82 my $b = $$a;
83 no warnings 'uninitialized' ;
84 my $c = $$a;
85 EXPECT
86 Use of uninitialized value in scalar dereference at - line 4.
87 ########
88 # pp.c
89 use warnings 'pack' ;
90 sub foo { my $a = "a"; return $a . $a++ . $a++ }
91 my $a = pack("p", &foo) ;
92 no warnings 'pack' ;
93 my $b = pack("p", &foo) ;
94 EXPECT
95 Attempt to pack pointer to temporary value at - line 4.
96 ########
97 # pp.c
98 use warnings 'misc' ;
99 bless \[], "" ;
100 no warnings 'misc' ;
101 bless \[], "" ;
102 EXPECT
103 Explicit blessing to '' (assuming package main) at - line 3.
104 ########
105 # pp.c
106 use utf8 ;
107 $_ = "\x80  \xff" ;
108 reverse ;
109 EXPECT
110 ########
111 # pp.c
112 use warnings 'pack' ;
113 print unpack("C", pack("C",   -1)), "\n";
114 print unpack("C", pack("C",    0)), "\n";
115 print unpack("C", pack("C",  255)), "\n";
116 print unpack("C", pack("C",  256)), "\n";
117 print unpack("c", pack("c", -129)), "\n";
118 print unpack("c", pack("c", -128)), "\n";
119 print unpack("c", pack("c",  127)), "\n";
120 print unpack("c", pack("c",  128)), "\n";
121 no warnings 'pack' ;
122 print unpack("C", pack("C",   -1)), "\n";
123 print unpack("C", pack("C",    0)), "\n";
124 print unpack("C", pack("C",  255)), "\n";
125 print unpack("C", pack("C",  256)), "\n";
126 print unpack("c", pack("c", -129)), "\n";
127 print unpack("c", pack("c", -128)), "\n";
128 print unpack("c", pack("c",  127)), "\n";
129 print unpack("c", pack("c",  128)), "\n";
130 EXPECT
131 Character in "C" format wrapped at - line 3.
132 Character in "C" format wrapped at - line 6.
133 Character in "c" format wrapped at - line 7.
134 Character in "c" format wrapped at - line 10.
135 255
136 0
137 255
138 0
139 127
140 -128
141 127
142 -128
143 255
144 0
145 255
146 0
147 127
148 -128
149 127
150 -128