Lines Matching defs:ok
10 sub ok ($;$) {
11 my($ok, $name) = @_;
16 printf "%s $test%s\n", $ok ? 'ok' : 'not ok',
19 printf "# Failed test at line %d\n", (caller($Ok_Level))[2] unless $ok;
22 return $ok;
28 ok( !$nok, $name );
46 ok( !$match && !$@, 'testing studys that used to hang' );
55 ok($x =~ /^abc/);
56 ok($x !~ /^def/);
59 ok($x =~ /^def/);
64 ok(/^([0-9][0-9]*)/);
69 ok($x =~ /def/);
73 ok($x !~ /.def/);
76 ok($x =~ /\ndef/);
81 ok(/(a*b*)(c*)/ && $1 eq 'aaabbb' && $2 eq 'ccc');
82 ok(/(a+b+c+)/ && $1 eq 'aaabbbccc');
88 ok(/a+b?c+/);
89 ok(/a*b+c*/);
93 ok(/a*b?c*/);
98 ok(/bcd|xyz/);
99 ok(/xyz|bcd/);
101 ok(m|bc/*d|);
103 ok(/^$_$/);
106 ok("ab\ncd\n" =~ /^cd/);
111 for (25..26) { print "not ok $_ # TODO compiler bug?\n" }