selftest: Print reason when a test fails unexpectedly

[ira/wip.git] / selftest / output / plain.pm

diff --git a/selftest/output/plain.pm b/selftest/output/plain.pm
index 066cacfb2941414cf4cd45f6af5e5fcd92400633..eae1e7aaac27f9b9057d24e45a09cab871ef1919 100644 (file)
--- 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;