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