Lines Matching defs:ok
30 sub ok ($;$) {32 my $ok = '';33 $ok .= "not " unless $test;34 $ok .= "ok $test_num";35 $ok .= " - $name" if defined $name;36 $ok .= "\n";37 print $ok;94 My::Test::ok( $actual_exit != 0,99 My::Test::ok( $actual_exit == $exit_code,