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