diff options
| -rw-r--r-- | selftest/output/plain.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/selftest/output/plain.pm b/selftest/output/plain.pm index 5e75ce9511..066cacfb29 100644 --- a/selftest/output/plain.pm +++ b/selftest/output/plain.pm @@ -113,10 +113,14 @@ sub end_testsuite($$$$) my $out = ""; my $unexpected = 0; + if (not defined($self->{test_output}->{$name})) { + print "no output for name[$name]\n"; + } + if ($result eq "success" or $result eq "xfail") { $self->{suites_ok}++; } else { - $self->output_msg("ERROR: $reason\n"); + $self->output_msg("ERROR: Testsuite[$name]\nREASON: $reason\n"); push (@{$self->{suitesfailed}}, $name); if ($self->{immediate} and not $self->{verbose}) { $out .= $self->{test_output}->{$name}; |