diff options
| author | Stefan Metzmacher <metze@samba.org> | 2009-11-17 17:30:14 +0100 |
|---|---|---|
| committer | Stefan Metzmacher <metze@samba.org> | 2009-11-18 06:50:23 +0100 |
| commit | 053fa03cd74bc6eeeaea0f21baa3680ef9e21ebe (patch) | |
| tree | ee435376a9e0b03f9ea30b7219256482963f53a2 /selftest | |
| parent | e3032d5fc8c77aae9de990d40eac764f14376d2f (diff) | |
| download | samba-053fa03cd74bc6eeeaea0f21baa3680ef9e21ebe.tar.gz samba-053fa03cd74bc6eeeaea0f21baa3680ef9e21ebe.tar.bz2 samba-053fa03cd74bc6eeeaea0f21baa3680ef9e21ebe.zip | |
selftest/output/plain.pm: report the testuite name on error
metze
Diffstat (limited to 'selftest')
| -rw-r--r-- | selftest/output/plain.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/selftest/output/plain.pm b/selftest/output/plain.pm index 5e75ce9511..066cacfb29 100644 --- a/selftest/output/plain.pm +++ b/selftest/output/plain.pm @@ -113,10 +113,14 @@ sub end_testsuite($$$$) my $out = ""; 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") { $self->{suites_ok}++; } else { - $self->output_msg("ERROR: $reason\n"); + $self->output_msg("ERROR: Testsuite[$name]\nREASON: $reason\n"); push (@{$self->{suitesfailed}}, $name); if ($self->{immediate} and not $self->{verbose}) { $out .= $self->{test_output}->{$name}; |