t/op/cproto.t

   1 #!./perl
   2 # Tests to ensure that we don't unexpectedly change prototypes of builtins
   3
   4 BEGIN {
   5     chdir 't' if -d 't';
   6     @INC = '../lib';
   7 }
   8
   9 BEGIN { require './test.pl'; }
  10 plan tests => 234;
  11
  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
 140 mkdir ($;$)
 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 ($)
 200 setpgrp undef
 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