Lines Matching defs:nok
25 sub nok ($;$) {26 my($nok, $name) = @_;28 ok( !$nok, $name );66 nok($x =~ /^xxx/);67 nok($x !~ /^abc/);70 nok($x !~ /def/);74 nok($x =~ /.def/);77 nok($x !~ /\ndef/);84 nok(/a+b?c+/);94 nok(/a*b+c*/);