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

selftest/output/plain.pm: report the testuite name on error

Browse Source 
metze
This commit is contained in:
Stefan Metzmacher 2009-11-17 17:30:14 +01:00
parent e3032d5fc8
commit 053fa03cd7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
selftest/output/plain.pm
View File

@ -113,10 +113,14 @@ sub end_testsuite($$$$)
my $out = ""; my $out = "";
my $unexpected = 0; my $unexpected = 0;
if (not defined($self->{test_output}->{$name})) {
print "no output for name[$name]\n";
}
if ($result eq "success" or $result eq "xfail") { if ($result eq "success" or $result eq "xfail") {
$self->{suites_ok}++; $self->{suites_ok}++;
} else { } else {
$self->output_msg("ERROR: $reason\n"); $self->output_msg("ERROR: Testsuite[$name]\nREASON: $reason\n");
push (@{$self->{suitesfailed}}, $name); push (@{$self->{suitesfailed}}, $name);
if ($self->{immediate} and not $self->{verbose}) { if ($self->{immediate} and not $self->{verbose}) {
$out .= $self->{test_output}->{$name}; $out .= $self->{test_output}->{$name};