From 053fa03cd74bc6eeeaea0f21baa3680ef9e21ebe Mon Sep 17 00:00:00 2001
From: Stefan Metzmacher <metze@samba.org>
Date: Tue, 17 Nov 2009 17:30:14 +0100
Subject: selftest/output/plain.pm: report the testuite name on error

metze
---
 selftest/output/plain.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'selftest/output')

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};
-- 
cgit