Lines Matching +full:- +full:- +full:kernel +full:- +full:url

2 # SPDX-License-Identifier: GPL-2.0-or-later
4 # Copyright (c) 2020-2021 Petr Vorel <pvorel@suse.cz>
15 # tags which expect git tree, also need constant for URL
16 our @TAGS_GIT = ("linux-git", "linux-stable-git", "glibc-git", "musl-git");
19 use constant LINUX_GIT_URL => "https://git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux.git/c…
20 use constant LINUX_STABLE_GIT_URL => "https://git.kernel.org/pub/scm/linux/kernel/git/stable/linux.…
22 use constant MUSL_GIT_URL => "https://git.musl-libc.org/cgit/musl/commit/src/linux/clone.c?id=";
23 use constant CVE_DB_URL => "https://cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-";
52 // -*- mode:doc; -*-
78 	if ('known-fail') {
102 	my ($url, $text) = @_;
107 	return "$url\[$text\]";
172 	$content .= print_defined("URL", $json->{'testsuite'}->{'url'});
173 	$content .= print_defined("Version", $json->{'testsuite'}->{'version'});
174 	$content .= print_defined("Default timeout", $json->{'defaults'}->{'timeout'}, "seconds");
235 	while (my ($k, $v) = each %{$json->{'tests'}}) {
301 	$tag =~ s/-/_/g;
317 		unless (-d $ENV{$env}) {
328 		if (!system("git log -1 > /dev/null")) {
343 	my @names = sort keys %{$json->{'tests'}};
368 		if (defined($json->{'testsuite'}->{'scm_url_base'}) &&
369 			defined($json->{'tests'}{$name}{fname})) {
370 			$content .= paragraph(html_a(tag_url("fname", $json->{'tests'}{$name}{fname},
371 					$json->{'testsuite'}->{'scm_url_base'}), "source"));
374 		if (defined $json->{'tests'}{$name}{doc}) {
375 			for my $doc (@{$json->{'tests'}{$name}{doc}}) {
387 		if ($json->{'tests'}{$name}{timeout}) {
388 			if ($json->{'tests'}{$name}{timeout} eq -1) {
391 				$content .= paragraph("Test timeout is $json->{'tests'}{$name}{timeout} seconds");
394 			$content .= paragraph("Test timeout defaults to $json->{'defaults'}->{'timeout'} seconds");
398 		for my $k (sort keys %{$json->{'tests'}{$name}}) {
399 			my $v = $json->{'tests'}{$name}{$k};
432 		my @sorted_tags = sort { $a->[0] cmp $b->[0] } @{$json->{'tests'}{$name}{tags} // []};
440 			my $url;
446 					$commits{$k}{$v} = `git log --pretty=format:'%s' -1 $v`;
452 			$url = tag_url($k, @$tag[1]);
453 			if ($url) {
454 				$v = html_a($url, $v);
458 			# i.e. URL in known-fail
482 		title => h2("About $json->{'testsuite'}->{'name'}"),
491 		file => "all-tests.txt",
512 		$content .= "include::$c->{'file'}\[\]\n";
514 …print_asciidoc_page($fh, $json, h1($json->{'testsuite'}->{'short_name'} . " test catalog"), $conte…
518 	open(my $fh, '>', $c->{'file'}) or die("Can't open $c->{'file'} $!");
519 	print_asciidoc_page($fh, $json, $c->{'title'}, $c->{'content'}->($json));