Lines Matching defs:ok
12 sub ok ($;$) {14 my $ok = '';15 $ok .= "not " unless $test;16 $ok .= "ok $test_num";17 $ok .= " - $name" if defined $name;18 $ok .= "\n";19 print $ok;32 ok( $@ =~ /^plan\(\) doesn't understand 7/, 'bad plan()' ) ||36 ok( $@ =~ /^plan\(\) doesn't understand wibble 7/, 'bad plan()' ) ||