r25031: Use pointers to services rather than service numbers when possible.
[kai/samba.git] / source4 / selftest / output / plain.pm
index bbf0f8f41423c472681cf29844dc878f73ec3515..2cb510b7e806cd83ac73882170a943f53cfe4e57 100644 (file)
@@ -77,9 +77,15 @@ sub start_test($$)
        my ($state, $testname) = @_;
 }
 
-sub end_test($$$$$)
+sub end_test($$$$$$)
 {
-       my ($state, $testname, $result, $unexpected, $reason) = @_;
+       my ($self, $state, $testname, $result, $unexpected, $reason) = @_;
+
+       if ($unexpected and $self->{immediate} and not $self->{verbose}) {
+               print "$testname: $result [ $reason ]\n";
+               print $self->{test_output}->{$state->{NAME}}."\n";
+       }
+       $self->{test_output}->{$state->{NAME}} = "";
 }
 
 sub summary($)