Fix wrong text in Module-CoreList is_core test
[perl.git] / t / op / cproto.t
1 #!./perl
2 # Tests to ensure that we don't unexpectedly change prototypes of builtins
3
4 BEGIN {
5     chdir 't' if -d 't';
6     require './test.pl';
7     set_up_inc('../lib');
8 }
9
10 plan tests => 254;
11
12 while (<DATA>) {
13     chomp;
14     (my $keyword, my $proto, local $TODO) = split " ", $_, 3;
15     if ($proto eq 'undef') {
16         ok( !defined prototype "CORE::".$keyword, $keyword );
17     }
18     elsif ($proto eq 'unknown') {
19         eval { prototype "CORE::".$keyword };
20         like( $@, qr/Can't find an opnumber for/, $keyword );
21     }
22     else {
23         is(
24             "(".(prototype("CORE::".$keyword) // 'undef').")", $proto,
25             $keyword
26         );
27     }
28 }
29
30 # the keyword list :
31
32 __DATA__
33 __FILE__ ()
34 __LINE__ ()
35 __PACKAGE__ ()
36 __DATA__ undef
37 __END__ undef
38 __SUB__ ()
39 AUTOLOAD undef
40 BEGIN undef
41 CORE unknown
42 DESTROY undef
43 END undef
44 INIT undef
45 CHECK undef
46 abs (_)
47 accept (**)
48 alarm (_)
49 and undef
50 atan2 ($$)
51 bind (*$)
52 binmode (*;$)
53 bless ($;$)
54 break ()
55 caller (;$)
56 chdir (;$)
57 chmod (@)
58 chomp undef
59 chop undef
60 chown (@)
61 chr (_)
62 chroot (_)
63 close (;*)
64 closedir (*)
65 cmp undef
66 connect (*$)
67 continue ()
68 cos (_)
69 crypt ($$)
70 dbmclose (\%)
71 dbmopen (\%$$)
72 default undef
73 defined undef
74 delete undef
75 die (@)
76 do undef
77 dump ()
78 each (\[%@])
79 else undef
80 elsif undef
81 endgrent ()
82 endhostent ()
83 endnetent ()
84 endprotoent ()
85 endpwent ()
86 endservent ()
87 eof (;*)
88 eq undef
89 eval undef
90 evalbytes (_)
91 exec undef
92 exists undef
93 exit (;$)
94 exp (_)
95 fc (_)
96 fcntl (*$$)
97 fileno (*)
98 flock (*$)
99 for undef
100 foreach undef
101 fork ()
102 format undef
103 formline ($@)
104 ge undef
105 getc (;*)
106 getgrent ()
107 getgrgid ($)
108 getgrnam ($)
109 gethostbyaddr ($$)
110 gethostbyname ($)
111 gethostent ()
112 getlogin ()
113 getnetbyaddr ($$)
114 getnetbyname ($)
115 getnetent ()
116 getpeername (*)
117 getpgrp (;$)
118 getppid ()
119 getpriority ($$)
120 getprotobyname ($)
121 getprotobynumber ($;)
122 getprotoent ()
123 getpwent ()
124 getpwnam ($)
125 getpwuid ($)
126 getservbyname ($$)
127 getservbyport ($$)
128 getservent ()
129 getsockname (*)
130 getsockopt (*$$)
131 given undef
132 glob (_;)
133 gmtime (;$)
134 goto undef
135 grep undef
136 gt undef
137 hex (_)
138 if undef
139 index ($$;$)
140 int (_)
141 ioctl (*$$)
142 join ($@)
143 keys (\[%@])
144 kill (@)
145 last undef
146 lc (_)
147 lcfirst (_)
148 le undef
149 length (_)
150 link ($$)
151 listen (*$)
152 local undef
153 localtime (;$)
154 lock (\[$@%&*])
155 log (_)
156 lstat (;*)
157 lt undef
158 m undef
159 map undef
160 mkdir (_;$)
161 msgctl ($$$)
162 msgget ($$)
163 msgrcv ($$$$$)
164 msgsnd ($$$)
165 my undef
166 ne undef
167 next undef
168 no undef
169 not ($;)
170 oct (_)
171 open (*;$@)
172 opendir (*$)
173 or undef
174 ord (_)
175 our undef
176 pack ($@)
177 package undef
178 pipe (**)
179 pop (;\@)
180 pos (;\[$*])
181 print undef
182 printf undef
183 prototype (_)
184 push (\@@)
185 q undef
186 qq undef
187 qr undef
188 quotemeta (_)
189 qw undef
190 qx undef
191 rand (;$)
192 read (*\$$;$)
193 readdir (*)
194 readline (;*)
195 readlink (_)
196 readpipe (_)
197 recv (*\$$$)
198 redo undef
199 ref (_)
200 rename ($$)
201 require undef
202 reset (;$)
203 return undef
204 reverse (@)
205 rewinddir (*)
206 rindex ($$;$)
207 rmdir (_)
208 s undef
209 say undef
210 scalar ($)
211 seek (*$$)
212 seekdir (*$)
213 select undef
214 semctl ($$$$)
215 semget ($$$)
216 semop ($$)
217 send (*$$;$)
218 setgrent ()
219 sethostent ($)
220 setnetent ($)
221 setpgrp (;$$)
222 setpriority ($$$)
223 setprotoent ($)
224 setpwent ()
225 setservent ($)
226 setsockopt (*$$$)
227 shift (;\@)
228 shmctl ($$$)
229 shmget ($$$)
230 shmread ($$$$)
231 shmwrite ($$$$)
232 shutdown (*$)
233 sin (_)
234 sleep (;$)
235 socket (*$$$)
236 socketpair (**$$$)
237 sort undef
238 splice (\@;$$@)
239 split undef
240 sprintf ($@)
241 sqrt (_)
242 srand (;$)
243 stat (;*)
244 state undef
245 study (_)
246 sub undef
247 substr ($$;$$)
248 symlink ($$)
249 syscall ($@)
250 sysopen (*$$;$)
251 sysread (*\$$;$)
252 sysseek (*$$)
253 system undef
254 syswrite (*$;$$)
255 tell (;*)
256 telldir (*)
257 tie (\[$@%*]$@)
258 tied (\[$@%*])
259 time ()
260 times ()
261 tr undef
262 truncate ($$)
263 uc (_)
264 ucfirst (_)
265 umask (;$)
266 undef (;\[$@%&*])
267 unless undef
268 unlink (@)
269 unpack ($_)
270 unshift (\@@)
271 untie (\[$@%*])
272 until undef
273 use undef
274 utime (@)
275 values (\[%@])
276 vec ($$$)
277 wait ()
278 waitpid ($$)
279 wantarray ()
280 warn (@)
281 when undef
282 while undef
283 write (;*)
284 x undef
285 xor undef
286 y undef