Lines Matching defs:ok
14 sub ok {
15 my($ok, $got, $exp, $rexp, $wexp) = @_;
17 print $ok ? "ok $t\n" : "# expected $exp, got $got\nnot ok $t\n";
20 print "ok $t\n";
24 print "not ok $t\n";
29 sub ok_undef { ok(!defined($_[0]), shift, "undef", @_) }
30 sub ok_numeric { ok($_[0] == $_[1], @_) }
31 sub ok_string { ok($_[0] eq $_[1], @_) }