3 # check if builtins behave as prototyped
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;
41 grep(not($bar), $bar);
42 grep(not($bar, $bar), $bar);
43 grep((not $bar, $bar, $bar), $bar);