sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-02-04 17:47:26 +03:00
Code

r25465: improve plain output...

Browse Source 
metze
(This used to be commit 8deb2f068c7574618467859d9335fbd1ca6e49a1)
This commit is contained in:
Stefan Metzmacher 2007-10-02 15:53:26 +00:00 committed by Gerald (Jerry) Carter
parent f069623ace
commit 00d2a19554
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
source4/selftest/output/plain.pm
View File

@ -81,16 +81,21 @@ sub start_test($$)
sub end_test($$$$$$)
{
my ($self, $state, $testname, $result, $unexpected, $reason) = @_;
my $append = "";
if ($unexpected and $self->{immediate} and not $self->{verbose}) {
if ($reason) {
print "$testname: $result [ $reason ]\n";
} else {
print "$testname: $result\n";
}
print $self->{test_output}->{$state->{NAME}}."\n";
unless ($unexpected) {
$self->{test_output}->{$state->{NAME}} = "";
return;
}
$append = "UNEXPECTED($result): $testname\n";
$self->{test_output}->{$state->{NAME}} .= $append;
if ($self->{immediate} and not $self->{verbose}) {
print $self->{test_output}->{$state->{NAME}};
$self->{test_output}->{$state->{NAME}} = "";
}
$self->{test_output}->{$state->{NAME}} = "";
}
sub summary($)