Commit | Line | Data |
---|---|---|
afebc493 GS |
1 | #!./perl |
2 | ||
3 | BEGIN { | |
4 | chdir 't' if -d 't'; | |
20822f61 | 5 | @INC = '../lib'; |
afebc493 GS |
6 | } |
7 | ||
8 | print "1..9\n"; | |
9 | ||
10 | sub t1; | |
d152a4c4 | 11 | sub t2 : lvalue; |
afebc493 GS |
12 | sub t3 (); |
13 | sub t4 ($); | |
14 | sub t5 {1;} | |
15 | { | |
16 | package P1; | |
17 | sub tmc {1;} | |
18 | package P2; | |
19 | @ISA = 'P1'; | |
20 | } | |
21 | ||
22 | print "not " unless exists &t1 && not defined &t1; | |
23 | print "ok 1\n"; | |
24 | print "not " unless exists &t2 && not defined &t2; | |
25 | print "ok 2\n"; | |
26 | print "not " unless exists &t3 && not defined &t3; | |
27 | print "ok 3\n"; | |
28 | print "not " unless exists &t4 && not defined &t4; | |
29 | print "ok 4\n"; | |
30 | print "not " unless exists &t5 && defined &t5; | |
31 | print "ok 5\n"; | |
32 | P2::->tmc; | |
33 | print "not " unless not exists &P2::tmc && not defined &P2::tmc; | |
34 | print "ok 6\n"; | |
35 | my $ref; | |
36 | $ref->{A}[0] = \&t4; | |
37 | print "not " unless exists &{$ref->{A}[0]} && not defined &{$ref->{A}[0]}; | |
38 | print "ok 7\n"; | |
39 | undef &P1::tmc; | |
40 | print "not " unless exists &P1::tmc && not defined &P1::tmc; | |
41 | print "ok 8\n"; | |
42 | eval 'exists &t5()'; | |
43 | print "not " unless $@; | |
44 | print "ok 9\n"; | |
45 | ||
46 | exit 0; |