r25035: Fix some more warnings, use service pointer rather than service number in...

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

diff --git a/source4/selftest/output/plain.pm b/source4/selftest/output/plain.pm
index 2cb510b7e806cd83ac73882170a943f53cfe4e57..5cd8e076cb3c0c06025d9e436019f366d7a659b3 100644 (file)
--- a/source4/selftest/output/plain.pm
+++ b/source4/selftest/output/plain.pm
@@ -82,7 +82,11 @@ sub end_test($$$$$$)
        my ($self, $state, $testname, $result, $unexpected, $reason) = @_;
 
        if ($unexpected and $self->{immediate} and not $self->{verbose}) {
-               print "$testname: $result [ $reason ]\n";
+               if ($reason) {
+                       print "$testname: $result [ $reason ]\n";
+               } else {
+                       print "$testname: $result\n";
+               }
                print $self->{test_output}->{$state->{NAME}}."\n";
        }
        $self->{test_output}->{$state->{NAME}} = "";