3 # check if builtins behave as prototyped
8 unshift @INC, '../lib';
20 print "not " unless $@ =~ /^Too many arguments/;
21 printf "ok %d\n",$i++;
27 printf "ok %d\n",$i++;
30 test_too_many($_) for split /\n/,
31 q[ defined(&foo, $bar);
36 test_no_error($_) for split /\n/,
38 defined &foo, &foo, &foo;