📄 html.pm

📁 samba最新软件
💻 PM
字号:
#!/usr/bin/perlpackage output::html;use Exporter;@ISA = qw(Exporter);use strict;use warnings;use FindBin qw($RealBin);use lib "$RealBin/..";use Subunit qw(parse_results);sub new($$$) {	my ($class, $dirname, $statistics) = @_;	my $self = { 		dirname => $dirname,		active_test => undef,		local_statistics => {},		statistics => $statistics,		msg => "",		error_summary => { 			skip => [],			expected_success => [],			unexpected_success => [],			expected_failure => [],			unexpected_failure => [],			skip_testsuites => [],			error => []		}	};	link("$RealBin/output/testresults.css", "$dirname/testresults.css");	open(INDEX, ">$dirname/index.html");	bless($self, $class);	$self->print_html_header("Samba Testsuite Run", *INDEX);	print INDEX "  <center>";	print INDEX "  <table>\n";	print INDEX "  <tr>\n";	print INDEX "    <td class=\"tableHead\">Test</td>\n";	print INDEX "    <td class=\"tableHead\">Result</td>\n";	print INDEX "  </tr>\n";	return $self;}sub print_html_header($$$){	my ($self, $title, $fh) = @_;	print $fh "<html lang=\"en\">\n";	print $fh "<head>\n";	print $fh "  <title>$title</title>\n";	print $fh "  <link rel=\"stylesheet\" type=\"text/css\" href=\"testresults.css\"/>\n";	print $fh "</head>\n";	print $fh "<body>\n";	print $fh "<table width=\"100%\" border=\"0\" cellspacing=\"0\">\n";	print $fh "  <tr><td class=\"title\">$title</td></tr>\n";	print $fh "  <tr><td>\n";}sub print_html_footer($$){	my ($self, $fh) = @_;	print $fh "</td></tr>\n";	print $fh "</table>\n";	print $fh "</body>\n";	print $fh "</html>\n";}sub output_msg($$);sub start_testsuite($$){	my ($self, $name) = @_;	$self->{local_statistics} = {		success => 0,		skip => 0,		error => 0,		failure => 0	};	$self->{NAME} = $name;	$self->{HTMLFILE} = "$name.html";	$self->{HTMLFILE} =~ s/[:\t\n \/]/_/g;	open(TEST, ">$self->{dirname}/$self->{HTMLFILE}") or die("Unable to open $self->{HTMLFILE} for writing");	$self->print_html_header("Test Results for $name", *TEST);	print TEST "<h2>Tests</h2>\n";	print TEST "  <table>\n";}sub control_msg($$){	my ($self, $output) = @_;	$self->{msg} .=  "<span class=\"control\">$output<br/></span>\n";}sub output_msg($$){	my ($self, $output) = @_;	unless (defined($self->{active_test})) {		print TEST "$output<br/>";	} else {		$self->{msg} .= "$output<br/>";	}}sub end_testsuite($$$$){	my ($self, $name, $result, $unexpected, $reason) = @_;	print TEST "</table>\n";	print TEST "<div class=\"duration\">Duration: " . (time() - $self->{START_TIME}) . "s</div>\n";	$self->print_html_footer(*TEST);	close(TEST);	print INDEX "<tr>\n";	print INDEX "  <td class=\"testSuite\"><a href=\"$self->{HTMLFILE}\">$name</a></td>\n";	my $st = $self->{local_statistics};	if (not $unexpected) {		if ($result eq "failure") {			print INDEX "  <td class=\"resultExpectedFailure\">";		} else {			print INDEX "  <td class=\"resultOk\">";		}	} else {		print INDEX "  <td class=\"resultFailure\">";	}	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 (not $unexpected) {			print INDEX "OK";		} else {			print INDEX "FAIL";		}	}	print INDEX "</td>";			print INDEX "</tr>\n";}sub start_test($$){	my ($self, $parents, $testname) = @_;	if ($#$parents == -1) {		$self->{START_TIME} = time();		$self->start_testsuite($testname);		return;	}	$self->{active_test} = $testname;	$self->{msg} = "";}sub end_test($$$$$$){	my ($self, $parents, $testname, $result, $unexpected, $reason) = @_;	if ($#$parents == -1) {		$self->end_testsuite($testname, $result, $unexpected, $reason);		return;	}	print TEST "<tr>";	$self->{local_statistics}->{$result}++;	my $track_class;	if ($result eq "skip") {		print TEST "<td class=\"outputSkipped\">\n";		$track_class = "skip";	} elsif ($unexpected) {		print TEST "<td class=\"outputFailure\">\n";		if ($result eq "error") {			$track_class = "error";		} else {			$track_class = "unexpected_$result";		}	} else {		if ($result eq "failure") {			print TEST "<td class=\"outputExpectedFailure\">\n";		} else {			print TEST "<td class=\"outputOk\">\n";		}		$track_class = "expected_$result";	}	push(@{$self->{error_summary}->{$track_class}}, ,		 [$self->{HTMLFILE}, $testname, $self->{NAME}, 		  $reason]);	print TEST "<a name=\"$testname\"><h3>$testname</h3></a>\n";	print TEST $self->{msg};	if (defined($reason)) {		print TEST "<div class=\"reason\">$reason</div>\n";	}	print TEST "</td></tr>\n";	$self->{active_test} = undef;}sub summary($){	my ($self) = @_;	my $st = $self->{statistics};	print INDEX "<tr>\n";	print INDEX "  <td class=\"testSuiteTotal\">Total</td>\n";	if ($st->{TESTS_UNEXPECTED_OK} == 0 and 	    $st->{TESTS_UNEXPECTED_FAIL} == 0 and		$st->{TESTS_ERROR} == 0) {		print INDEX "  <td class=\"resultOk\">";	} else {		print INDEX "  <td class=\"resultFailure\">";	}	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 "</td>";	print INDEX "</tr>\n";	print INDEX "</table>\n";	print INDEX "<a href=\"summary.html\">Summary</a>\n";	print INDEX "</center>\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 "<h3>$title</h3>\n";		print SUMMARY "<table>\n";		print SUMMARY "<tr>\n";		print SUMMARY "  <td class=\"tableHead\">Testsuite</td>\n";		print SUMMARY "  <td class=\"tableHead\">Test</td>\n";		print SUMMARY "  <td class=\"tableHead\">Reason</td>\n";		print SUMMARY "</tr>\n";		foreach (@$list) {			print SUMMARY "<tr>\n";			print SUMMARY "  <td><a href=\"" . $$_[0] . "\">$$_[2]</a></td>\n";			print SUMMARY "  <td><a href=\"" . $$_[0] . "#$$_[1]\">$$_[1]</a></td>\n";			if (defined($$_[3])) {				print SUMMARY "  <td>$$_[3]</td>\n";			} else {				print SUMMARY "  <td></td>\n";			}			print SUMMARY "</tr>\n";		}		print SUMMARY "</table>";	}	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});	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>$$_[0]</td>\n";		if (defined($$_[1])) {			print SUMMARY "  <td>$$_[1]</td>\n";		} else {			print SUMMARY "  <td></td>\n";		}		print SUMMARY "</tr>\n";	}	print SUMMARY "</table>";	$self->print_html_footer(*SUMMARY);	close(SUMMARY);}sub skip_testsuite($$$$){	my ($self, $name, $reason) = @_;	push (@{$self->{error_summary}->{skip_testsuites}}, 		  [$name, $reason]);}1;
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -