Add more tests to cproto.t

[perl5.git] / t / op / cproto.t

diff --git a/t/op/cproto.t b/t/op/cproto.t
index af1555f..ee97433 100644 (file)
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -7,7 +7,7 @@ BEGIN {
 }
 
 BEGIN { require './test.pl'; }
-plan tests => 237;
+plan tests => 243;
 
 while (<DATA>) {
     chomp;
@@ -27,10 +27,15 @@ while (<DATA>) {
 # the keyword list :
 
 __DATA__
+__FILE__ ()
+__LINE__ ()
+__PACKAGE__ ()
+__DATA__ undef
+__END__ undef
 abs (_)
 accept (**)
 alarm (_)
-and ()
+and undef
 atan2 ($$)
 bind (*$)
 binmode (*;$)
@@ -45,19 +50,20 @@ chr (_)
 chroot (_)
 close (;*)
 closedir (*)
-cmp unknown
+cmp undef
 connect (*$)
 continue ()
 cos (_)
 crypt ($$)
 dbmclose (\%)
 dbmopen (\%$$)
+default undef
 defined undef
 delete undef
 die (@)
 do undef
 dump ()
-each (\[@%])
+each (+)
 else undef
 elsif undef
 endgrent ()
@@ -67,7 +73,7 @@ endprotoent ()
 endpwent ()
 endservent ()
 eof (;*)
-eq ($$)
+eq undef
 eval undef
 exec undef
 exists undef
@@ -81,7 +87,7 @@ foreach undef
 fork ()
 format undef
 formline ($@)
-ge ($$)
+ge undef
 getc (;*)
 getgrent ()
 getgrgid ($)
@@ -113,28 +119,28 @@ glob undef
 gmtime (;$)
 goto undef
 grep undef
-gt ($$)
+gt undef
 hex (_)
 if undef
 index ($$;$)
 int (_)
 ioctl (*$$)
 join ($@)
-keys (\[@%])
+keys (+)
 kill (@)
 last undef
 lc (_)
 lcfirst (_)
-le ($$)
+le undef
 length (_)
 link ($$)
 listen (*$)
 local undef
 localtime (;$)
-lock (\$)
+lock (\[$@%*])
 log (_)
-lstat (*)
-lt ($$)
+lstat undef
+lt undef
 m undef
 map undef
 mkdir (_;$)
@@ -143,25 +149,25 @@ msgget ($$)
 msgrcv ($$$$$)
 msgsnd ($$$)
 my undef
-ne ($$)
+ne undef
 next undef
 no undef
 not ($)
 oct (_)
 open (*;$@)
 opendir (*$)
-or ()
+or undef
 ord (_)
 our undef
 pack ($@)
 package undef
 pipe (**)
-pop (;\@)
+pop (;+)
 pos undef
 print undef
 printf undef
 prototype undef
-push (\@@)
+push (+@)
 q undef
 qq undef
 qr undef
@@ -204,7 +210,7 @@ setprotoent ($)
 setpwent ()
 setservent ($)
 setsockopt (*$$$)
-shift (;\@)
+shift (;+)
 shmctl ($$$)
 shmget ($$$)
 shmread ($$$$)
@@ -215,12 +221,12 @@ sleep (;$)
 socket (*$$$)
 socketpair (**$$$)
 sort undef
-splice (\@;$$@)
+splice (+;$$@)
 split undef
 sprintf ($@)
 sqrt (_)
 srand (;$)
-stat (*)
+stat undef
 state undef
 study undef
 sub undef
@@ -234,8 +240,8 @@ system undef
 syswrite (*$;$$)
 tell (;*)
 telldir (*)
-tie undef
-tied undef
+tie (\[$@%*]$@)
+tied (\[$@%*])
 time ()
 times ()
 tr undef
@@ -247,12 +253,12 @@ undef undef
 unless undef
 unlink (@)
 unpack ($;$)
-unshift (\@@)
-untie undef
+unshift (+@)
+untie (\[$@%*])
 until undef
 use undef
 utime (@)
-values (\[@%])
+values (+)
 vec ($$$)
 wait ()
 waitpid ($$)
@@ -261,6 +267,6 @@ warn (@)
 when undef
 while undef
 write (;*)
-x unknown
-xor ($$)
+x undef
+xor undef
 y undef