Commit | Line | Data |
62c18ce2 |
1 | #!./perl |
2 | # |
3 | # check if builtins behave as prototyped |
4 | # |
5 | |
6 | BEGIN { |
7 | chdir 't' if -d 't'; |
20822f61 |
8 | @INC = '../lib'; |
62c18ce2 |
9 | } |
10 | |
2d2e263d |
11 | print "1..10\n"; |
62c18ce2 |
12 | |
13 | my $i = 1; |
14 | |
15 | sub foo {} |
16 | my $bar = "bar"; |
17 | |
18 | sub test_too_many { |
19 | eval $_[0]; |
20 | print "not " unless $@ =~ /^Too many arguments/; |
21 | printf "ok %d\n",$i++; |
22 | } |
23 | |
24 | sub test_no_error { |
25 | eval $_[0]; |
26 | print "not " if $@; |
27 | printf "ok %d\n",$i++; |
28 | } |
29 | |
30 | test_too_many($_) for split /\n/, |
31 | q[ defined(&foo, $bar); |
32 | undef(&foo, $bar); |
33 | uc($bar,$bar); |
34 | ]; |
35 | |
36 | test_no_error($_) for split /\n/, |
37 | q[ scalar(&foo,$bar); |
38 | defined &foo, &foo, &foo; |
39 | undef &foo, $bar; |
40 | uc $bar,$bar; |
2d2e263d |
41 | grep(not($bar), $bar); |
42 | grep(not($bar, $bar), $bar); |
43 | grep((not $bar, $bar, $bar), $bar); |
62c18ce2 |
44 | ]; |