testing/ktest/ktest.pl

1 #!/usr/bin/perl -w
2 # SPDX-License-Identifier: GPL-2.0-only
4 # Copyright 2010 - Steven Rostedt <srostedt@redhat.com>, Red Hat Inc.
67     "GRUB_REBOOT"		=> "grub2-reboot",
68     "GRUB_BLS_GET"		=> "grubby --info=ALL",
76     "LOCALVERSION"		=> "-test",
79     "TARGET_IMAGE"		=> "/boot/vmlinuz-test",
422  i.e.  -j20
433 …POWER_CYCLE = wget --no-proxy -O /dev/null -q  --auth-no-challenge 'http://admin:admin\@power/outl…
444 CONSOLE = nc -d localhost 3001
490  kernel vmlinuz-test
495  menu must be a non-nested menu. Add the quotes used in the menu
689 	$time -= $hours * 3600;
693 	$time -= $minutes * 60;
939 	return -1;
967     $d--;
1176 		    if (-f "$1/$file") {
1182 	    if ( ! -r $file ) {
1190 	} elsif (/^\s*([A-Z_\[\]\d]+)\s*=~\s*(.*?)\s*$/) {
1204 	} elsif (/^\s*([A-Z_\[\]\d]+)\s*=\s*(.*?)\s*$/) {
1238 	} elsif (/^\s*([A-Z_\[\]\d]+)\s*:=\s*(.*?)\s*$/) {
1260 	$test_num += $repeat - 1;
1333 	    exit -1;
1440 	# 100 deep should be more than enough.
1583 	    my $size = $log_size - $test_log_start;
1590 	    my $pos = - $size;
1661     $stty_orig = `stty -g`;
1665     system("stty -icanon -echo -icrnl");
1714     if (--$monitor_cnt) {
1763 	if ($full_line =~ /Kernel panic -/) {
1771 	if ($now - $start_time >= $max_monitor_wait) {
1797     my $dir = "$machine-$test_type-$type-$result-$date";
1801     if (!-d $dir) {
1814 	if (-f "$source") {
1882 	$timeout = -1; # tell wait_for_input to wait indefinitely
1914 	    if ($timeout >= 0 && (($now - $start_time) >= $timeout)) {
1939     my $delta = $end_time - $start_time;
2002     $grub_number = -1;
2021 		$grub_number = -1;
2110 	    last if (defined($time) && (time - $start_time > $time));
2135 	run_ssh "'(echo \"savedefault --default=$grub_number --once\" | grub --batch)'";
2139 	run_ssh "$syslinux --once \\\"$syslinux_label\\\" $syslinux_path";
2149     doprint "git rev-list --max-count=1 $commit ... ";
2150     my $sha1 = `git rev-list --max-count=1 $commit`;
2195 	    my $time = $stop_after_failure - (time - $failure_start);
2232 	    if ($now - $success_start >= $stop_after_success) {
2256 	    if ($now - $failure_start >= $stop_after_failure) {
2266 	if ($full_line =~ /Kernel panic -/) {
2292 	    if (time - $monitor_start > $stop_test_after) {
2300     $reboot_time = $end_time - $start_time;
2306 	fail "failed - got a bug report" and return 0;
2311 	fail "failed - never got a boot prompt." and return 0;
2384 	$install_time = $end_time - $start_time;
2392     my $modtar = "ktest-mods.tar.bz2";
2394     run_ssh "rm -rf $modlib" or
2397     # would be nice if scp -r did not follow symbolic links
2398     run_command "cd $tmpdir && tar -cjf $modtar lib/modules/$version" or
2409     run_ssh "rm -f /tmp/$modtar";
2414     $install_time = $end_time - $start_time;
2421     $version = `$make -s kernelrelease | tail -1`;
2460     # Some compilers use UTF-8 extended for quotes and some don't.
2478     if (-f $warnings_file) {
2517     my @files = `git show $patch | diffstat -l`;
2526 	if (m,^--- a/(.*),) {
2562     if (-f $output_config) {
2654 	run_command "touch $output_config";
2715     $build_time = $end_time - $start_time;
2776 	    return -1;
2839 	    if ($full_line =~ /Kernel panic -/) {
2862 	    if ($now - $failure_start >= $stop_after_failure) {
2876     $test_time = $end_time - $start_time;
2886 		return -1;
2891 		fail "test abort" and return -2;
2905 		return -1;
2907 		return -2;
2910 		    and return -2;
2957 # returns 1 on success, 0 on failure, -1 on skip
2973 	    return -1;
2985 		return -1;
3080 	$start_files = " -- " . $start_files;
3107     if ( -f $bisect_start_file ) {
3278     my $diffexec = "diff -u";
3280     if (-f "$builddir/scripts/diffconfig") {
3296 	$reset = "-r";
3298     run_command "$config_bisect_exec $reset -b $outputdir $good $bad $last_result", 1;
3300     # config-bisect returns:
3304     #  -1 (255) on error
3353 		"$pwd/config-bisect.pl",
3354 		"$dirname/config-bisect.pl",
3355 		"$builddir/tools/testing/ktest/config-bisect.pl",
3360 	    last if (defined($config_bisect_exec && -x $config_bisect_exec));
3363 	    fail "Could not find an executable config-bisect.pl\n",
3364 		"  Set CONFIG_BISECT_EXEC to point to config-bisect.pl";
3377     if (-f "$tmpdir/good_config.tmp" || -f "$tmpdir/bad_config.tmp") {
3378 	if (read_yn "Interrupted config-bisect. Continue (n - will start new)?") {
3379 	    if (-f "$tmpdir/good_config.tmp") {
3384 	    if (-f "$tmpdir/bad_config.tmp") {
3484 	open (IN, "git cherry -v $start $end|") or
3487 	open (IN, "git log --pretty=oneline $end|") or
3609     if (! -f $kconfig) {
3661 	    $deps =~ s/^[^a-zA-Z0-9_]*//;
3662 	    $deps =~ s/[^a-zA-Z0-9_]*$//;
3664 	    my @deps = split /[^a-zA-Z0-9_]+/, $deps;
3670 	    $iflevel-- if ($iflevel);
3715     if (! -f $kconfig && $arch =~ /\d$/) {
3720 	if (! -f $kconfig) {
3761     my $valid = "A-Za-z_0-9";
3850     if (-f $output_minconfig && !$start_minconfig_defined) {
3871     # out what the defaults are that we can't touch.
3888 	`touch $ignore_config`;
4094 	# Some compilers use UTF-8 extended for quotes
4163 	if (-x "$path/$mailer") {
4191 …  $mail_command = "cat \$HEADER_FILE \$BODY_FILE | \$MAIL_PATH/\$MAILER -s \'\$SUBJECT\' \$MAILTO";
4193 	    $mail_command =  "cat \$HEADER_FILE \$BODY_FILE | \$MAIL_PATH/\$MAILER -t \$MAILTO";
4242 $#ARGV < 1 or die "ktest.pl version: $VERSION\n   usage: ktest.pl [config-file]\n";
4246     if (! -f $ktest_config) {
4254 if (! -f $ktest_config) {
4285     $opt{"LOG_FILE"} = eval_option("LOG_FILE", $opt{"LOG_FILE"}, -1);
4304     LOG->autoflush(1);
4360     if (!-d $outputdir) {
4398     if (!-d $tmpdir) {
4406     $buildlog = "$tmpdir/buildlog-$machine";
4407     $testlog = "$tmpdir/testlog-$machine";
4408     $dmesg = "$tmpdir/dmesg-$machine";