3 # check if builtins behave as prototyped
20 print "not " unless $@ =~ /^Too many arguments/;
21 printf "ok %d\n",$i++;
26 print "not " unless $@ =~ /^Not enough arguments/;
27 printf "ok %d\n",$i++;
33 printf "ok %d\n",$i++;
36 test_too_many($_) for split /\n/,
37 q[ defined(&foo, $bar);
43 test_too_few($_) for split /\n/,
48 test_no_error($_) for split /\n/,
50 defined &foo, &foo, &foo;
53 grep(not($bar), $bar);
54 grep(not($bar, $bar), $bar);
55 grep((not $bar, $bar, $bar), $bar);