From 7147c8453e7174e5b6bf20172b48b065fb9b8e99 Mon Sep 17 00:00:00 2001
From: Kai Blin <kai@samba.org>
Date: Wed, 13 Jan 2010 10:07:25 +0100
Subject: selftest: Print reason when a test fails unexpectedly

---
 selftest/output/plain.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'selftest')

diff --git a/selftest/output/plain.pm b/selftest/output/plain.pm
index 066cacfb29..eae1e7aaac 100644
--- a/selftest/output/plain.pm
+++ b/selftest/output/plain.pm
@@ -162,7 +162,9 @@ sub end_test($$$$$)
 		return;
 	}
 
-	$append = "UNEXPECTED($result): $testname\n";
+	chomp $reason;
+
+	$append = "UNEXPECTED($result): $testname\nREASON: $reason\n";
 
 	$self->{test_output}->{$self->{NAME}} .= $append;
 
-- 
cgit