summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStefan Metzmacher <metze@samba.org>2009-11-17 17:30:14 +0100
committerStefan Metzmacher <metze@samba.org>2009-11-18 06:50:23 +0100
commit053fa03cd74bc6eeeaea0f21baa3680ef9e21ebe (patch)
treeee435376a9e0b03f9ea30b7219256482963f53a2
parente3032d5fc8c77aae9de990d40eac764f14376d2f (diff)
downloadsamba-053fa03cd74bc6eeeaea0f21baa3680ef9e21ebe.tar.gz
samba-053fa03cd74bc6eeeaea0f21baa3680ef9e21ebe.tar.bz2
samba-053fa03cd74bc6eeeaea0f21baa3680ef9e21ebe.zip
selftest/output/plain.pm: report the testuite name on error
metze
-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};