2 # Tests to ensure that we don't unexpectedly change prototypes of builtins
9 use Test::More tests => 234;
12 my ($keyword, $proto) = split;
13 if ($proto eq 'undef') {
14 ok( !defined prototype "CORE::".$keyword, $keyword );
16 elsif ($proto eq 'unknown') {
17 eval { prototype "CORE::".$keyword };
18 like( $@, qr/Can't find an opnumber for/, $keyword );
21 is( "(".prototype("CORE::".$keyword).")", $proto, $keyword );