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