From 0271566a5b3211735faad67e37e2d0474996b710 Mon Sep 17 00:00:00 2001
From: Jelmer Vernooij <jelmer@samba.org>
Date: Sun, 2 Sep 2007 00:24:38 +0000
Subject: r24878: Support specifying a reason for skips/expected failures (This
 used to be commit 84c94b37fed837c7a45f59746de80d20063d93e8)

---
 source4/selftest/output/html.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'source4/selftest/output/html.pm')

diff --git a/source4/selftest/output/html.pm b/source4/selftest/output/html.pm
index 44846dc9dd..2a2a12b63d 100644
--- a/source4/selftest/output/html.pm
+++ b/source4/selftest/output/html.pm
@@ -315,14 +315,18 @@ sub missing_env($$$)
 	print INDEX "</tr>\n";
 }
 
-sub skip_testsuite($$$)
+sub skip_testsuite($$$$)
 {
-	my ($self, $envname, $name) = @_;
+	my ($self, $envname, $name, $reason) = @_;
 
 	print INDEX "<tr>\n";
 	print INDEX "  <td class=\"testSuite\">$name</td>\n";
 	print INDEX "  <td class=\"environment\">$envname</td>\n";
-	print INDEX "  <td class=\"resultSkipped\">SKIPPED</td>\n";
+	if ($reason) {
+		print INDEX "  <td class=\"resultSkipped\">SKIPPED - $reason</td>\n";
+	} else {
+		print INDEX "  <td class=\"resultSkipped\">SKIPPED</td>\n";
+	}
 	print INDEX "</tr>\n";
 }
 
-- 
cgit