diff options
Diffstat (limited to 'source4')
| -rw-r--r-- | source4/selftest/output/html.pm | 21 | ||||
| -rwxr-xr-x | source4/selftest/selftest.pl | 8 |
2 files changed, 26 insertions, 3 deletions
diff --git a/source4/selftest/output/html.pm b/source4/selftest/output/html.pm index 7f5d128983..52fe241156 100644 --- a/source4/selftest/output/html.pm +++ b/source4/selftest/output/html.pm @@ -91,6 +91,27 @@ sub start_testsuite($$) $self->print_html_header("Test Results for $state->{NAME}", *TEST); + + print TEST "<h2>Environment settings</h2>\n"; + + print TEST " <table>\n"; + print TEST " <tr><td><b>Variable name</b></td><td><b>Variable value</b></td></tr>\n"; + foreach (keys %{$state->{ENVVARS}}) { + print TEST " <tr><td>$_</td><td>"; + my $val = $state->{ENVVARS}->{$_}; + if ($val =~ /^\.\// and -r $val) { + print TEST "<a href=\"../$val\">$val</a>"; + } elsif (-r $val) { + print TEST "<a href=\"$val\">$val</a>"; + } else { + print TEST $val; + } + print TEST "</td></tr>\n"; + } + print TEST " </table>\n"; + + print TEST "<h2>Tests</h2>\n"; + print TEST " <table>\n"; } diff --git a/source4/selftest/selftest.pl b/source4/selftest/selftest.pl index 5b5c0146ad..7089cfa022 100755 --- a/source4/selftest/selftest.pl +++ b/source4/selftest/selftest.pl @@ -226,11 +226,12 @@ sub cleanup_pcap($$$) $state->{PCAP_FILE} = undef; } -sub run_testsuite($$$$$$) +sub run_testsuite($$$$$$$) { - my ($envname, $name, $cmd, $i, $totalsuites, $msg_ops) = @_; + my ($envname, $envvars, $name, $cmd, $i, $totalsuites, $msg_ops) = @_; my $msg_state = { ENVNAME => $envname, + ENVVARS => $envvars, NAME => $name, CMD => $cmd, INDEX => $i, @@ -755,7 +756,8 @@ $envvarstr next; } - run_testsuite($envname, $name, $cmd, $i, $suitestotal, $msg_ops); + run_testsuite($envname, $envvars, $name, $cmd, $i, $suitestotal, + $msg_ops); if (defined($opt_analyse_cmd)) { system("$opt_analyse_cmd \"$name\""); |