Lines Matching defs:ok
25 sub ok {
28 print "ok $n\n";
31 print "not ok $n\n";
51 ok 1, $pid = open2 'READ', 'WRITE', $perl, '-e',
53 ok 2, print WRITE "hi kid\n";
54 ok 3, <READ> =~ /^hi kid\r?\n$/;
55 ok 4, close(WRITE), $!;
56 ok 5, close(READ), $!;
58 ok 6, $reaped_pid == $pid, $reaped_pid;
59 ok 7, $? == 0, $?;