r24878: Support specifying a reason for skips/expected failures

[kai/samba.git] / source4 / selftest / output / plain.pm

diff --git a/source4/selftest/output/plain.pm b/source4/selftest/output/plain.pm
index 736a138b079decd2c862ed4ea992086de8ef2c4f..bbf0f8f41423c472681cf29844dc878f73ec3515 100644 (file)
--- a/source4/selftest/output/plain.pm
+++ b/source4/selftest/output/plain.pm
@@ -113,9 +113,13 @@ sub missing_env($$$)
 
 sub skip_testsuite($$$)
 {
-       my ($self, $envname, $name) = @_;
+       my ($self, $envname, $name, $reason) = @_;
 
-       print "SKIPPED: $name\n";
+       if ($reason) {
+               print "SKIPPED: $name [$reason]\n";
+       } else {
+               print "SKIPPED: $name\n";
+       }
 }
 
 1;