Commit | Line | Data |
---|---|---|
a687059c LW |
1 | #!./perl |
2 | ||
50a10aa9 | 3 | print "1..23\n"; |
a687059c LW |
4 | |
5 | print defined($a) ? "not ok 1\n" : "ok 1\n"; | |
6 | ||
7 | $a = 1+1; | |
8 | print defined($a) ? "ok 2\n" : "not ok 2\n"; | |
9 | ||
10 | undef $a; | |
11 | print defined($a) ? "not ok 3\n" : "ok 3\n"; | |
12 | ||
13 | $a = "hi"; | |
14 | print defined($a) ? "ok 4\n" : "not ok 4\n"; | |
15 | ||
16 | $a = $b; | |
17 | print defined($a) ? "not ok 5\n" : "ok 5\n"; | |
18 | ||
19 | @ary = ("1arg"); | |
20 | $a = pop(@ary); | |
21 | print defined($a) ? "ok 6\n" : "not ok 6\n"; | |
22 | $a = pop(@ary); | |
23 | print defined($a) ? "not ok 7\n" : "ok 7\n"; | |
24 | ||
25 | @ary = ("1arg"); | |
26 | $a = shift(@ary); | |
27 | print defined($a) ? "ok 8\n" : "not ok 8\n"; | |
28 | $a = shift(@ary); | |
29 | print defined($a) ? "not ok 9\n" : "ok 9\n"; | |
30 | ||
31 | $ary{'foo'} = 'hi'; | |
32 | print defined($ary{'foo'}) ? "ok 10\n" : "not ok 10\n"; | |
33 | print defined($ary{'bar'}) ? "not ok 11\n" : "ok 11\n"; | |
34 | undef $ary{'foo'}; | |
35 | print defined($ary{'foo'}) ? "not ok 12\n" : "ok 12\n"; | |
36 | ||
37 | print defined(@ary) ? "ok 13\n" : "not ok 13\n"; | |
38 | print defined(%ary) ? "ok 14\n" : "not ok 14\n"; | |
39 | undef @ary; | |
40 | print defined(@ary) ? "not ok 15\n" : "ok 15\n"; | |
41 | undef %ary; | |
42 | print defined(%ary) ? "not ok 16\n" : "ok 16\n"; | |
43 | @ary = (1); | |
fe14fcc3 | 44 | print defined @ary ? "ok 17\n" : "not ok 17\n"; |
a687059c LW |
45 | %ary = (1,1); |
46 | print defined %ary ? "ok 18\n" : "not ok 18\n"; | |
47 | ||
48 | sub foo { print "ok 19\n"; } | |
49 | ||
50 | &foo || print "not ok 19\n"; | |
51 | ||
52 | print defined &foo ? "ok 20\n" : "not ok 20\n"; | |
53 | undef &foo; | |
54 | print defined(&foo) ? "not ok 21\n" : "ok 21\n"; | |
50a10aa9 GB |
55 | |
56 | eval { undef $1 }; | |
57 | print $@ =~ /^Modification of a read/ ? "ok 22\n" : "not ok 22\n"; | |
58 | ||
59 | eval { $1 = undef }; | |
60 | print $@ =~ /^Modification of a read/ ? "ok 23\n" : "not ok 23\n"; | |
61 |