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 MS |
9 | BEGIN { require './test.pl'; } |
10 | plan tests => 234; | |
11 | ||
c0222185 RGS |
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 RGS |
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 RGS |
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 |