Lines Matching defs:ok
44 sub ok {
46 if($_[0]) { print "ok $cnt\n"; } else {print "not ok $cnt\n"; }
68 ok( $y ne "" and $z ne "" );
74 ok( $y ne "" and $z ne "" );
80 ok( not (defined($y) and defined($z)) );
86 ok( not (defined($y) and defined($z)) );
109 ok( $y ne "" );
115 ok( not defined $y );
140 ok( $y ne "" );
146 ok( $flag == 1 );
168 ok( $flag == 2 );
187 ok( not defined $y);
188 ok($z ne "");
196 ok(!isweak($a));
198 ok(!isweak($b));
200 ok(isweak($b));
202 ok(!isweak($b));
206 ok(isweak($x->{Y}));
207 ok(!isweak($x->{Z}));
217 ok(1);
222 ok(ref($a)) or print "# didn't get a ref from eval\n";
226 ok($@ eq "") or print "# died with $@\n";
227 ok(isweak($b));
228 ok($$b eq "hello") or print "# b is '$$b'\n";
230 ok(not $b) or print "# b didn't go away\n";