}
BEGIN { require './test.pl'; }
-plan tests => 234;
+plan tests => 238;
while (<DATA>) {
chomp;
- my ($keyword, $proto) = split;
+ (my $keyword, my $proto, local $TODO) = split " ", $_, 3;
if ($proto eq 'undef') {
ok( !defined prototype "CORE::".$keyword, $keyword );
}
# the keyword list :
__DATA__
-abs (;$)
+abs (_)
accept (**)
-alarm (;$)
+alarm (_)
and ()
atan2 ($$)
bind (*$)
chomp undef
chop undef
chown (@)
-chr (;$)
-chroot (;$)
+chr (_)
+chroot (_)
close (;*)
closedir (*)
cmp unknown
connect (*$)
-continue unknown
-cos (;$)
+continue ()
+cos (_)
crypt ($$)
dbmclose (\%)
dbmopen (\%$$)
endservent ()
eof (;*)
eq ($$)
-err unknown
+err ()
eval undef
exec undef
exists undef
exit (;$)
-exp (;$)
+exp (_)
fcntl (*$$)
fileno (*)
flock (*$)
getservent ()
getsockname (*)
getsockopt (*$$)
+given undef
glob undef
gmtime (;$)
goto undef
grep undef
gt ($$)
-hex (;$)
+hex (_)
if undef
index ($$;$)
-int (;$)
+int (_)
ioctl (*$$)
join ($@)
keys (\%)
kill (@)
last undef
-lc (;$)
-lcfirst (;$)
+lc (_)
+lcfirst (_)
le ($$)
-length (;$)
+length (_)
link ($$)
listen (*$)
local undef
localtime (;$)
lock (\$)
-log (;$)
+log (_)
lstat (*)
lt ($$)
m undef
map undef
-mkdir (;$$)
+mkdir (_;$)
msgctl ($$$)
msgget ($$)
msgrcv ($$$$$)
next undef
no undef
not ($)
-oct (;$)
+oct (_)
open (*;$@)
opendir (*$)
or ()
-ord (;$)
+ord (_)
our undef
pack ($@)
package undef
q undef
qq undef
qr undef
-quotemeta (;$)
+quotemeta (_)
qw undef
qx undef
rand (;$)
read (*\$$;$)
readdir (*)
readline (;*)
-readlink (;$)
-readpipe unknown
+readlink (_)
+readpipe (_)
recv (*\$$$)
redo undef
-ref (;$)
+ref (_)
rename ($$)
require undef
reset (;$)
reverse (@)
rewinddir (*)
rindex ($$;$)
-rmdir (;$)
+rmdir (_)
s undef
+say undef
scalar undef
seek (*$$)
seekdir (*$)
shmread ($$$$)
shmwrite ($$$$)
shutdown (*$)
-sin (;$)
+sin (_)
sleep (;$)
socket (*$$$)
socketpair (**$$$)
splice (\@;$$@)
split undef
sprintf ($@)
-sqrt (;$)
+sqrt (_)
srand (;$)
stat (*)
+state undef
study undef
sub undef
substr ($$;$$)
times ()
tr undef
truncate ($$)
-uc (;$)
-ucfirst (;$)
+uc (_)
+ucfirst (_)
umask (;$)
undef undef
unless undef
waitpid ($$)
wantarray ()
warn (@)
+when undef
while undef
write (;*)
x unknown