2 # Tests to ensure that we don't unexpectedly change prototypes of builtins
9 BEGIN { require './test.pl'; }
14 my ($keyword, $proto) = split;
15 if ($proto eq 'undef') {
16 ok( !defined prototype "CORE::".$keyword, $keyword );
18 elsif ($proto eq 'unknown') {
19 eval { prototype "CORE::".$keyword };
20 like( $@, qr/Can't find an opnumber for/, $keyword );
23 is( "(".prototype("CORE::".$keyword).")", $proto, $keyword );