11 use Test::More tests => $total + 1;
15 (my $success, my $err_code, undef, undef, my $stderr)
22 $stderr = join '', @$stderr;
25 diag "Failed to execute data file (error $err_code)";
26 fail "Couldn't run test $_" for 1 .. $total + 1;
29 my %fail = map { $_ => 1 } 2, 3, 5, 7;
33 while ($stderr =~ /^Indirect\s+call\s+of\s+method\s+"([^"]+)"\s+on\s+object\s+"([^"]+)"/mg) {
34 my ($m, $o) = ($1, $2);
36 if ($o =~ /^P(\d+)$/) {
43 if (exists $fail{$id}) {
44 pass("test $id failed as expected");
48 fail("test $id shouldn't have failed");
53 pass("test $_ hasn't failed") for grep { !$failed{$_} } 1 .. $total;
54 fail("test $_ should have failed") for sort { $a <=> $b } keys %fail;
55 is($extra_fail, 0, 'no extra fails');