diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2007-10-26 21:25:43 +0200 |
---|---|---|
committer | Stefan Metzmacher <metze@samba.org> | 2007-12-21 05:43:39 +0100 |
commit | 9d4addadc089b52867c98d714894192e832a27d2 (patch) | |
tree | cf1ada317b35402de51d74df570fde5d61b2d6ae /source4/selftest/output/html.pm | |
parent | e690c56ab7180f135ba0e67a24f53282c3f0d144 (diff) | |
download | samba-9d4addadc089b52867c98d714894192e832a27d2.tar.gz samba-9d4addadc089b52867c98d714894192e832a27d2.tar.bz2 samba-9d4addadc089b52867c98d714894192e832a27d2.zip |
r25742: Start trimming down hash size for start_testsuite.
(This used to be commit f2319fbe9be76966c81f3d4279f6bc2a631a3a5a)
Diffstat (limited to 'source4/selftest/output/html.pm')
-rw-r--r-- | source4/selftest/output/html.pm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/source4/selftest/output/html.pm b/source4/selftest/output/html.pm index b8ee60edf7..9e83821bc1 100644 --- a/source4/selftest/output/html.pm +++ b/source4/selftest/output/html.pm @@ -73,9 +73,9 @@ sub print_html_footer($$) sub output_msg($$$); -sub start_testsuite($$) +sub start_testsuite($$$) { - my ($self, $state) = @_; + my ($self, $name, $state) = @_; $self->{local_statistics} = { success => 0, @@ -84,13 +84,12 @@ sub start_testsuite($$) failure => 0 }; - $state->{HTMLFILE} = "$state->{NAME}.html"; + $state->{HTMLFILE} = "$name.html"; $state->{HTMLFILE} =~ s/[:\t\n \/]/_/g; open(TEST, ">$self->{dirname}/$state->{HTMLFILE}") or die("Unable to open $state->{HTMLFILE} for writing"); - $self->print_html_header("Test Results for $state->{NAME}", - *TEST); + $self->print_html_header("Test Results for $name", *TEST); if ($state->{ENVNAME} ne "none") { print TEST "<h2>Environment settings</h2>\n"; @@ -137,7 +136,7 @@ sub output_msg($$$) sub end_testsuite($$$$$) { - my ($self, $state, $expected_ret, $ret, $envlog) = @_; + my ($self, $name, $state, $expected_ret, $ret, $envlog) = @_; print TEST "</table>\n"; @@ -149,7 +148,7 @@ sub end_testsuite($$$$$) close(TEST); print INDEX "<tr>\n"; - print INDEX " <td class=\"testSuite\"><a href=\"$state->{HTMLFILE}\">$state->{NAME}</a></td>\n"; + print INDEX " <td class=\"testSuite\"><a href=\"$state->{HTMLFILE}\">$name</a></td>\n"; my $st = $self->{local_statistics}; if ($ret == $expected_ret) { |