Lines Matching defs:ok
26 sub ok ($;$) {
28 my $ok = '';
29 $ok .= "not " unless $test;
30 $ok .= "ok $test_num";
31 $ok .= " - $name" if defined $name;
32 $ok .= "\n";
33 print $ok;
44 ok( 1, 'passing' );
45 ok( 2, 'passing still' );
46 ok( 3, 'still passing' );
47 ok( 0, 'oh no!' );
48 ok( 0, 'damnit' );
52 My::Test::ok($$out eq <<OUT);
54 ok 1 - passing
55 ok 2 - passing still
56 ok 3 - still passing
57 not ok 4 - oh no!
58 not ok 5 - damnit
61 My::Test::ok($$err eq <<ERR);