1#!/usr/bin/perl
2
3use strict;
4use warnings;
5no  warnings 'syntax';
6
7use 5.010;
8
9use lib ".";
10
11use Test::Tester;
12use Test::Regexp;
13use t::Common;
14
15my $match_res;
16
17foreach my $pattern (qr {Foo}, qr {Bar}) {
18    foreach my $match (0, 1) {
19        my ($premature, @results) = run_tests sub {
20            $match_res = match subject => "Foo",
21                               pattern => $pattern,
22                               match   => $match,
23                               todo    => "Todo test",
24        };
25
26        check results   => \@results,
27              premature => $premature,
28              expected  => $match ? 'PPPP' : 'P',
29              match     => $match,
30              match_res => $match_res,
31              pattern   => $pattern,
32              subject   => "Foo",
33              todo      => "Todo test",
34        ;
35    }
36}
37
38
39__END__
40