svn commit: samba r25364 - in branches/SAMBA_4_0: .
source/selftest/output
jelmer at samba.org
jelmer at samba.org
Wed Sep 26 23:36:08 GMT 2007
Author: jelmer
Date: 2007-09-26 23:36:07 +0000 (Wed, 26 Sep 2007)
New Revision: 25364
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=25364
Log:
List skipped testsuites in summary only.
Modified:
branches/SAMBA_4_0/
branches/SAMBA_4_0/source/selftest/output/html.pm
Changeset:
Property changes on: branches/SAMBA_4_0
___________________________________________________________________
Name: bzr:revision-info
...skipped...
Name: bzr:revision-id:v3-trunk0
...skipped...
Modified: branches/SAMBA_4_0/source/selftest/output/html.pm
===================================================================
--- branches/SAMBA_4_0/source/selftest/output/html.pm 2007-09-26 23:24:47 UTC (rev 25363)
+++ branches/SAMBA_4_0/source/selftest/output/html.pm 2007-09-26 23:36:07 UTC (rev 25364)
@@ -23,6 +23,7 @@
unexpected_success => [],
expected_failure => [],
unexpected_failure => [],
+ skip_testsuites => [],
error => []
}
};
@@ -325,6 +326,27 @@
print_table("Unexpected failures", $summ->{unexpected_failure});
print_table("Skipped tests", $summ->{skip});
print_table("Expected failures", $summ->{expected_failure});
+
+ print SUMMARY "<h3>Skipped testsuites</h3>\n";
+ print SUMMARY "<table>\n";
+ print SUMMARY "<tr>\n";
+ print SUMMARY " <td class=\"tableHead\">Testsuite</td>\n";
+ print SUMMARY " <td class=\"tableHead\">Reason</td>\n";
+ print SUMMARY "</tr>\n";
+
+ foreach (@{$summ->{skip_testsuites}}) {
+ print SUMMARY "<tr>\n";
+ print SUMMARY " <td>$$_[1]</td>\n";
+ if (defined($$_[2])) {
+ print SUMMARY " <td>$$_[2]</td>\n";
+ } else {
+ print SUMMARY " <td></td>\n";
+ }
+ print SUMMARY "</tr>\n";
+ }
+
+ print SUMMARY "</table>";
+
$self->print_html_footer(*SUMMARY);
close(SUMMARY);
}
@@ -340,15 +362,8 @@
{
my ($self, $envname, $name, $reason) = @_;
- print INDEX "<tr>\n";
- print INDEX " <td class=\"testSuite\">$name</td>\n";
- print INDEX " <td class=\"environment\">$envname</td>\n";
- if ($reason) {
- print INDEX " <td class=\"resultSkipped\">SKIPPED - $reason</td>\n";
- } else {
- print INDEX " <td class=\"resultSkipped\">SKIPPED</td>\n";
- }
- print INDEX "</tr>\n";
+ push (@{$self->{error_summary}->{skip_testsuites}},
+ [$envname, $name, $reason]);
}
1;
More information about the samba-cvs
mailing list