t/re/opt.t

56     my($pat, $minlen, $anchored, $floating, $other, $comment) = split /\t/;
62     $comment = (defined $comment && length $comment)
63         ? "$pat ($comment):"
67     ok($o, "$comment compiled ok");
75         $skip || ok($got >= $expect, "$comment minlen $got >= $expect");
78         $skip || is($got, $todo, "$comment minlen $got = $todo");
81         $skip || is($got, $expect, "$comment minlen $got = $expect");
87         $skip || ok($got >= $expect, "$comment minlenret $got >= $expect");
90         $skip || is($got, $todo, "$comment minlenret $got = $todo");
93         $skip || is($got, $expect, "$comment minlenret $got = $expect");
101         $skip || is($o->{anchored}, undef, "$comment no anchored");
104         $skip || is($o->{'anchored utf8'}, $astr, "$comment got anchored utf8");
107         $skip || is($o->{anchored_utf8}, undef, "$comment no anchored utf8");
110         $skip || is($o->{anchored}, $astr, "$comment got anchored");
113         $skip || is($o->{anchored}, undef, "$comment no anchored");
115         $skip || is($o->{anchored_utf8}, undef, "$comment no anchored utf8");
127                     "$comment anchored min offset");
137         $skip || is($o->{floating}, undef, "$comment no floating");
140         $skip || is($o->{'floating utf8'}, $fstr, "$comment got floating utf8");
143         $skip || is($o->{floating_utf8}, undef, "$comment no floating utf8");
146         $skip || is($o->{floating}, $fstr, "$comment got floating");
149         $skip || is($o->{floating}, undef, "$comment no floating");
151         $skip || is($o->{floating_utf8}, undef, "$comment no floating utf8");
163                     "$comment floating min offset");
172                     "$comment floating max offset");
193             $skip || is($o->{checking}, $check, "$comment checking $check");
205         $skip || is($got, $expect ? 1 : 0, "$comment $_");
214         $skip || is($got, $expect || 0, "$comment $_");
225             ? like($got, qr{$expect}, "$comment $_")
226             : is($got, $expect, "$comment $_")