summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--selftest/output/plain.pm6
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};