12 (my $success, my $err_code, undef, undef, my $stderr)
22 plan skip_all => "Couldn't capture buffers" if $success and not defined $stderr;
23 plan tests => $total + 1;
25 $stderr = join '', @$stderr;
28 diag "Failed to execute data file (error $err_code)";
29 fail "Couldn't run test $_" for 1 .. $total + 1;
36 while ($stderr =~ /^Indirect\s+call\s+of\s+method\s+"([^"]+)"\s+on\s+object\s+"([^"]+)"/mg) {
37 my ($m, $o) = ($1, $2);
39 if ($m =~ /^(?:new|potato)(\d+)$/) {
41 } elsif ($o =~ /^Hlagh(\d+)$/) {
48 fail("test $id shouldn't have failed");
53 pass("test $_ hasn't failed") for grep { !$fail{$_} } 1 .. $total;
54 is($extra_fail, 0, 'no extra fails');