Lines Matching defs:ok
17 sub ok ($;$) {
19 my $ok = '';
20 $ok .= "not " unless $test;
21 $ok .= "ok $test_num";
22 $ok .= " - $name" if defined $name;
23 $ok .= "\n";
24 print $ok;
41 ok(1, 'Foo');
42 ok(0, 'Bar');
43 ok(1, 'Yar');
44 ok(1, 'Car');
45 ok(0, 'Sar');
48 My::Test::ok($$out eq <<OUT);
50 ok 1 - Foo
51 not ok 2 - Bar
52 ok 3 - Yar
53 ok 4 - Car
54 not ok 5 - Sar
57 My::Test::ok($$err eq <<ERR);