Lines Matching defs:ok
18 sub ok ($;$) {
20 my $ok = '';
21 $ok .= "not " unless $test;
22 $ok .= "ok $test_num";
23 $ok .= " - $name" if defined $name;
24 $ok .= "\n";
25 print $ok;
38 ok( defined $out );
48 ok($line eq 'hi!');
61 ok($lines[1] =~ /Hello!/);
73 $Test->ok(1, "ok");
74 $Test->ok(1, "ok\n");
75 $Test->ok(1, "ok, like\nok");
80 ok( $output eq <<OUTPUT ) || print STDERR $output;
82 ok 1 - ok
83 ok 2 - ok
85 ok 3 - ok, like
86 # ok
87 ok 4 # skip wibble
89 not ok 5 # TODO & SKIP todo