Lines Matching defs:ok
19 sub ok {
20 my($test,$ok) = @_;
21 print "not " unless $ok;
22 print "ok $test\n";
29 ok 1, (eval "package ABC; sub zyx {1}; 1;" and
34 ok 2, (eval "package LABEL; sub zyx {1}; 1;" and
39 ok 3, (eval "package XYZZY; sub zyx {1}; 1;" and
44 ok 4, (eval "package m; sub zyx {1}; 1;" and
49 ok 5, (eval "package q; sub zyx {1}; 1;" and
54 ok 6, (eval "package qq; sub zyx {1}; 1;" and
59 ok 7, (eval "package qw; sub zyx {1}; 1;" and
64 ok 8, (eval "package qx; sub zyx {1}; 1;" and
69 ok 9, (eval "package s; sub zyx {1}; 1;" and
74 ok 10, (eval "package tr; sub zyx {1}; 1;" and
79 ok 11, (eval "package y; sub zyx {1}; 1;" and
84 ok 12, (eval "ABC:1" and
88 ok 13, (eval "LABEL:1" and
92 ok 14, (eval "XYZZY:1" and
96 ok 15, (not eval "m:1" and
100 ok 16, (not eval "q:1" and
104 ok 17, (not eval "qq:1" and
108 ok 18, (not eval "qw:1" and
112 ok 19, (not eval "qx:1" and
116 ok 20, (not eval "s:1" and
120 ok 21, (not eval "tr:1" and
124 ok 22, (not eval "y:1" and
128 ok 23, (eval "AUTOLOAD:1" and
132 ok 24, (eval "and:1" and
136 ok 25, (eval "alarm:1" and