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