$title

#!/usr/bin/perl package output::html; use Exporter; @ISA = qw(Exporter); use strict; use warnings; sub new($$$$) { my ($class, $dirname, $statistics) = @_; my $self = { dirname => $dirname, statistics => $statistics, active_test => undef, local_statistics => {}, msg => "", error_summary => { skip => [], expected_success => [], unexpected_success => [], expected_failure => [], unexpected_failure => [], error => [] } }; link("selftest/output/testresults.css", "$dirname/testresults.css"); open(INDEX, ">$dirname/index.html"); bless($self, $class); $self->print_html_header("Samba Testsuite Run", *INDEX); print INDEX " "; print INDEX " \n"; print INDEX " \n"; print INDEX " \n"; print INDEX " \n"; print INDEX " \n"; print INDEX " \n"; return $self; } sub print_html_header($$$) { my ($self, $title, $fh) = @_; print $fh "\n"; print $fh "\n"; print $fh " $title\n"; print $fh " \n"; print $fh "\n"; print $fh "\n"; print $fh "

Test

Environment

Result

\n"; print $fh " \n"; print $fh " \n"; print $fh "

$title

\n"; } sub print_html_footer($$) { my ($self, $fh) = @_; print $fh "

\n"; print $fh "\n"; print $fh "\n"; } sub output_msg($$$); sub start_testsuite($$) { my ($self, $state) = @_; $self->{local_statistics} = { success => 0, skip => 0, error => 0, failure => 0 }; $state->{HTMLFILE} = "$state->{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); print TEST " \n"; } sub control_msg($$$) { my ($self, $state, $output) = @_; $self->{msg} .= "$output
\n"; } sub output_msg($$$) { my ($self, $state, $output) = @_; unless (defined($self->{active_test})) { print TEST "$output
"; } else { $self->{msg} .= "$output
"; } } sub end_testsuite($$$$$) { my ($self, $state, $expected_ret, $ret, $envlog) = @_; print TEST "

\n"; print TEST "

Duration: " . (time() - $state->{START_TIME}) . "s

\n"; $self->print_html_footer(*TEST); close(TEST); print INDEX "\n"; print INDEX " {HTMLFILE}\">$state->{NAME}\n"; print INDEX " $state->{ENVNAME}\n"; my $st = $self->{local_statistics}; if ($ret == $expected_ret) { if ($ret == 0) { print INDEX " "; } else { print INDEX " "; } } else { print INDEX " "; } my $l = 0; if ($st->{success} > 0) { print INDEX "$st->{success} ok"; $l++; } if ($st->{skip} > 0) { print INDEX ", " if ($l); print INDEX "$st->{skip} skipped"; $l++; } if ($st->{failure} > 0) { print INDEX ", " if ($l); print INDEX "$st->{failure} failures"; $l++; } if ($st->{error} > 0) { print INDEX ", " if ($l); print INDEX "$st->{error} errors"; $l++; } if ($l == 0) { if ($ret == $expected_ret) { print INDEX "OK"; } else { print INDEX "FAIL"; } } print INDEX ""; print INDEX "\n"; } sub start_test($$$) { my ($self, $state, $testname) = @_; $self->{active_test} = $testname; $self->{msg} = ""; } sub end_test($$$$$$) { my ($self, $state, $testname, $result, $unexpected, $reason) = @_; print TEST ""; $self->{local_statistics}->{$result}++; my $track_class; if ($result eq "skip") { print TEST "\n"; $track_class = "skip"; } elsif ($unexpected) { print TEST "\n"; if ($result eq "error") { $track_class = "error"; } else { $track_class = "unexpected_$result"; } } else { if ($result eq "failure") { print TEST "\n"; } else { print TEST "\n"; } $track_class = "expected_$result"; } push(@{$self->{error_summary}->{$track_class}}, , [$state->{HTMLFILE}, $testname, $state->{NAME}, $reason]); print TEST "

$testname

\n"; print TEST $self->{msg}; if (defined($reason)) { print TEST "

$reason

\n"; } print TEST "\n"; $self->{active_test} = undef; } sub summary($) { my ($self) = @_; my $st = $self->{statistics}; print INDEX "\n"; print INDEX " Total\n"; print INDEX " \n"; if ($st->{SUITES_FAIL} == 0) { print INDEX " "; } else { print INDEX " "; } print INDEX ($st->{TESTS_EXPECTED_OK} + $st->{TESTS_UNEXPECTED_OK}) . " ok"; if ($st->{TESTS_UNEXPECTED_OK} > 0) { print INDEX " ($st->{TESTS_UNEXPECTED_OK} unexpected)"; } if ($st->{TESTS_SKIP} > 0) { print INDEX ", $st->{TESTS_SKIP} skipped"; } if (($st->{TESTS_UNEXPECTED_FAIL} + $st->{TESTS_EXPECTED_FAIL}) > 0) { print INDEX ", " . ($st->{TESTS_UNEXPECTED_FAIL} + $st->{TESTS_EXPECTED_FAIL}) . " failures"; if ($st->{TESTS_UNEXPECTED_FAIL} > 0) { print INDEX " ($st->{TESTS_EXPECTED_FAIL} expected)"; } } if ($st->{TESTS_ERROR} > 0) { print INDEX ", $st->{TESTS_ERROR} errors"; } print INDEX ""; print INDEX "\n"; print INDEX "\n"; print INDEX "\n"; $self->print_html_footer(*INDEX); close(INDEX); my $summ = $self->{error_summary}; open(SUMMARY, ">$self->{dirname}/summary.html"); $self->print_html_header("Summary", *SUMMARY); sub print_table($$) { my ($title, $list) = @_; return if ($#$list == -1); print SUMMARY "

$title

\n"; print SUMMARY "\n"; print SUMMARY "\n"; print SUMMARY " \n"; print SUMMARY " \n"; print SUMMARY " \n"; print SUMMARY "\n"; foreach (@$list) { print SUMMARY "\n"; print SUMMARY " \n"; print SUMMARY " \n"; if (defined($$_[3])) { print SUMMARY " \n"; } else { print SUMMARY " \n"; } print SUMMARY "\n"; } print SUMMARY "

Testsuite	Test	Reason
$$_[2]	$$_[1]	$$_[3]

"; } print_table("Errors", $summ->{error}); print_table("Unexpected successes", $summ->{unexpected_success}); print_table("Unexpected failures", $summ->{unexpected_failure}); print_table("Skipped tests", $summ->{skip}); print_table("Expected failures", $summ->{expected_failure}); $self->print_html_footer(*SUMMARY); close(SUMMARY); } sub missing_env($$$) { my ($self, $name, $envname) = @_; print INDEX "\n"; print INDEX " $name\n"; print INDEX " SKIPPED - environment `$envname` not available!\n"; print INDEX "\n"; } sub skip_testsuite($$) { my ($self, $name) = @_; print INDEX "\n"; print INDEX " $name\n"; print INDEX " SKIPPED\n"; print INDEX "\n"; } 1;