3 # $Header: undef.t,v 4.0 91/03/20 01:55:16 lwall Locked $
7 print defined($a) ? "not ok 1\n" : "ok 1\n";
10 print defined($a) ? "ok 2\n" : "not ok 2\n";
13 print defined($a) ? "not ok 3\n" : "ok 3\n";
16 print defined($a) ? "ok 4\n" : "not ok 4\n";
19 print defined($a) ? "not ok 5\n" : "ok 5\n";
23 print defined($a) ? "ok 6\n" : "not ok 6\n";
25 print defined($a) ? "not ok 7\n" : "ok 7\n";
29 print defined($a) ? "ok 8\n" : "not ok 8\n";
31 print defined($a) ? "not ok 9\n" : "ok 9\n";
34 print defined($ary{'foo'}) ? "ok 10\n" : "not ok 10\n";
35 print defined($ary{'bar'}) ? "not ok 11\n" : "ok 11\n";
37 print defined($ary{'foo'}) ? "not ok 12\n" : "ok 12\n";
39 print defined(@ary) ? "ok 13\n" : "not ok 13\n";
40 print defined(%ary) ? "ok 14\n" : "not ok 14\n";
42 print defined(@ary) ? "not ok 15\n" : "ok 15\n";
44 print defined(%ary) ? "not ok 16\n" : "ok 16\n";
46 print defined @ary ? "ok 17\n" : "not ok 17\n";
48 print defined %ary ? "ok 18\n" : "not ok 18\n";
50 sub foo { print "ok 19\n"; }
52 &foo || print "not ok 19\n";
54 print defined &foo ? "ok 20\n" : "not ok 20\n";
56 print defined(&foo) ? "not ok 21\n" : "ok 21\n";