ktest: Added sample.conf, new %default option format (a75fecec) · Commits · e / devices / android_kernel_xiaomi_markw

tools/testing/ktest/ktest.pl

+319 −142

Original line number	Original line	Diff line number	Diff line
	@@ -16,28 +16,45 @@ $#ARGV >= 0 \|\| die "usage: autotest.pl config-file\n";
	$\| = 1;		$\| = 1;

	my %opt;		my %opt;
			my %default;

	#default opts		#default opts
	$opt{"NUM_BUILDS"} = 5;		$default{"NUM_TESTS"} = 5;
	$opt{"BUILD_TYPE"} = "randconfig";		$default{"REBOOT_TYPE"} = "grub";
	$opt{"MAKE_CMD"} = "make";		$default{"TEST_TYPE"} = "test";
	$opt{"TIMEOUT"} = 120;		$default{"BUILD_TYPE"} = "randconfig";
	$opt{"TMP_DIR"} = "/tmp/autotest";		$default{"MAKE_CMD"} = "make";
	$opt{"SLEEP_TIME"} = 60; # sleep time between tests		$default{"TIMEOUT"} = 120;
	$opt{"BUILD_NOCLEAN"} = 0;		$default{"TMP_DIR"} = "/tmp/autotest";
	$opt{"REBOOT_ON_ERROR"} = 0;		$default{"SLEEP_TIME"} = 60; # sleep time between tests
	$opt{"POWEROFF_ON_ERROR"} = 0;		$default{"BUILD_NOCLEAN"} = 0;
	$opt{"REBOOT_ON_SUCCESS"} = 1;		$default{"REBOOT_ON_ERROR"} = 0;
	$opt{"POWEROFF_ON_SUCCESS"} = 0;		$default{"POWEROFF_ON_ERROR"} = 0;
	$opt{"BUILD_OPTIONS"} = "";		$default{"REBOOT_ON_SUCCESS"} = 1;
	$opt{"BISECT_SLEEP_TIME"} = 10; # sleep time between bisects		$default{"POWEROFF_ON_SUCCESS"} = 0;
	$opt{"CLEAR_LOG"} = 0;		$default{"BUILD_OPTIONS"} = "";
	$opt{"SUCCESS_LINE"} = "login:";		$default{"BISECT_SLEEP_TIME"} = 60; # sleep time between bisects
	$opt{"BOOTED_TIMEOUT"} = 1;		$default{"CLEAR_LOG"} = 0;
	$opt{"DIE_ON_FAILURE"} = 1;		$default{"SUCCESS_LINE"} = "login:";
			$default{"BOOTED_TIMEOUT"} = 1;
			$default{"DIE_ON_FAILURE"} = 1;

	my $version;		my $version;
			my $machine;
			my $tmpdir;
			my $builddir;
			my $outputdir;
			my $test_type;
	my $build_type;		my $build_type;
			my $build_options;
			my $reboot_type;
			my $reboot_script;
			my $power_cycle;
			my $reboot_on_error;
			my $poweroff_on_error;
			my $die_on_failure;
			my $power_off;
			my $grub_menu;
	my $grub_number;		my $grub_number;
	my $target;		my $target;
	my $make;		my $make;
	@@ -55,6 +72,16 @@ my $dmesg;
	my $monitor_fp;		my $monitor_fp;
	my $monitor_pid;		my $monitor_pid;
	my $monitor_cnt = 0;		my $monitor_cnt = 0;
			my $sleep_time;
			my $bisect_sleep_time;
			my $store_failures;
			my $timeout;
			my $booted_timeout;
			my $console;
			my $success_line;
			my $build_target;
			my $target_image;
			my $localversion;

	sub read_config {		sub read_config {
	my ($config) = @_;		my ($config) = @_;
	@@ -70,11 +97,22 @@ sub read_config {
	my $lvalue = $1;		my $lvalue = $1;
	my $rvalue = $2;		my $rvalue = $2;

			if (defined($opt{$lvalue})) {
			die "Error: Option $lvalue defined more than once!\n";
			}
	$opt{$lvalue} = $rvalue;		$opt{$lvalue} = $rvalue;
	}		}
	}		}

	close(IN);		close(IN);

			# set any defaults

			foreach my $default (keys %default) {
			if (!defined($opt{$default})) {
			$opt{$default} = $default{$default};
			}
			}
	}		}

	sub logit {		sub logit {
	@@ -96,20 +134,20 @@ sub reboot {
	# try to reboot normally		# try to reboot normally
	if (!run_command "ssh $target reboot") {		if (!run_command "ssh $target reboot") {
	# nope? power cycle it.		# nope? power cycle it.
	run_command "$opt{POWER_CYCLE}";		run_command "$power_cycle";
	}		}
	}		}

	sub dodie {		sub dodie {
	doprint "CRITICAL FAILURE... ", @_, "\n";		doprint "CRITICAL FAILURE... ", @_, "\n";

	if ($opt{"REBOOT_ON_ERROR"}) {		if ($reboot_on_error && $test_type ne "build") {
	doprint "REBOOTING\n";		doprint "REBOOTING\n";
	reboot;		reboot;

	} elsif ($opt{"POWEROFF_ON_ERROR"} && defined($opt{"POWER_OFF"})) {		} elsif ($poweroff_on_error && defined($power_off)) {
	doprint "POWERING OFF\n";		doprint "POWERING OFF\n";
	`$opt{"POWER_OFF"}`;		`$power_off`;
	}		}

	die @_;		die @_;
	@@ -120,8 +158,8 @@ sub open_console {

	my $flags;		my $flags;

	my $pid = open($fp, "$opt{CONSOLE}\|") or		my $pid = open($fp, "$console\|") or
	dodie "Can't open console $opt{CONSOLE}";		dodie "Can't open console $console";

	$flags = fcntl($fp, F_GETFL, 0) or		$flags = fcntl($fp, F_GETFL, 0) or
	dodie "Can't get flags for the socket: $!\n";		dodie "Can't get flags for the socket: $!\n";
	@@ -147,6 +185,10 @@ sub start_monitor {
	}		}
	$monitor_fp = \*MONFD;		$monitor_fp = \*MONFD;
	$monitor_pid = open_console $monitor_fp;		$monitor_pid = open_console $monitor_fp;

			return;

			open(MONFD, "Stop perl from warning about single use of MONFD");
	}		}

	sub end_monitor {		sub end_monitor {
	@@ -160,43 +202,50 @@ sub wait_for_monitor {
	my ($time) = @_;		my ($time) = @_;
	my $line;		my $line;

	doprint "Wait for monitor to settle down.\n";		doprint " Wait for monitor to settle down \n";

	# read the monitor and wait for the system to calm down		# read the monitor and wait for the system to calm down
	do {		do {
	$line = wait_for_input($monitor_fp, $time);		$line = wait_for_input($monitor_fp, $time);
			print "$line" if (defined($line));
	} while (defined($line));		} while (defined($line));
			print " Monitor flushed \n";
	}		}

	sub fail {		sub fail {

	if ($opt{"DIE_ON_FAILURE"}) {		if ($die_on_failure) {
	dodie @_;		dodie @_;
	}		}

	doprint "Failed: ", @_, "\n";		doprint "FAILED\n";

			# no need to reboot for just building.
			if ($test_type ne "build") {
	doprint "REBOOTING\n";		doprint "REBOOTING\n";
	reboot;		reboot;
	start_monitor;		start_monitor;
	wait_for_monitor $opt{"SLEEP_TIME"};		wait_for_monitor $sleep_time;
	end_monitor;		end_monitor;
			}

			doprint "** Failed: ", @_, " **\n";

	return 1 if (!defined($opt{"STORE_FAILURES"}));		return 1 if (!defined($store_failures));

	my @t = localtime;		my @t = localtime;
	my $date = sprintf "%04d%02d%02d%02d%02d%02d",		my $date = sprintf "%04d%02d%02d%02d%02d%02d",
	1900+$t[5],$t[4],$t[3],$t[2],$t[1],$t[0];		1900+$t[5],$t[4],$t[3],$t[2],$t[1],$t[0];

	my $dir = "$opt{MACHINE}-$build_type-fail-$date";		my $dir = "$machine-$test_type-$build_type-fail-$date";
	my $faildir = "$opt{STORE_FAILURES}/$dir";		my $faildir = "$store_failures/$dir";

	if (!-d $faildir) {		if (!-d $faildir) {
	mkpath($faildir) or		mkpath($faildir) or
	die "can't create $opt{STORE_FAILURES}";		die "can't create $faildir";
	}		}
	if (-f "$opt{OUTPUT_DIR}/.config") {		if (-f "$outputdir/.config") {
	cp "$opt{OUTPUT_DIR}/.config", "$faildir/config" or		cp "$outputdir/.config", "$faildir/config" or
	die "failed to copy .config";		die "failed to copy .config";
	}		}
	if (-f $buildlog) {		if (-f $buildlog) {
	@@ -259,6 +308,9 @@ sub run_command {

	sub get_grub_index {		sub get_grub_index {

			if ($reboot_type ne "grub") {
			return;
			}
	return if (defined($grub_number));		return if (defined($grub_number));

	doprint "Find grub menu ... ";		doprint "Find grub menu ... ";
	@@ -266,7 +318,7 @@ sub get_grub_index {
	open(IN, "ssh $target cat /boot/grub/menu.lst \|")		open(IN, "ssh $target cat /boot/grub/menu.lst \|")
	or die "unable to get menu.lst";		or die "unable to get menu.lst";
	while (<IN>) {		while (<IN>) {
	if (/^\stitle\s+$opt{GRUB_MENU}\s$/) {		if (/^\stitle\s+$grub_menu\s$/) {
	$grub_number++;		$grub_number++;
	last;		last;
	} elsif (/^\s*title\s/) {		} elsif (/^\s*title\s/) {
	@@ -275,13 +327,11 @@ sub get_grub_index {
	}		}
	close(IN);		close(IN);

	die "Could not find '$opt{GRUB_MENU}' in /boot/grub/menu on $opt{MACHINE}"		die "Could not find '$grub_menu' in /boot/grub/menu on $machine"
	if ($grub_number < 0);		if ($grub_number < 0);
	doprint "$grub_number\n";		doprint "$grub_number\n";
	}		}

	my $timeout = $opt{"TIMEOUT"};

	sub wait_for_input		sub wait_for_input
	{		{
	my ($fp, $time) = @_;		my ($fp, $time) = @_;
	@@ -314,7 +364,12 @@ sub wait_for_input
	}		}

	sub reboot_to {		sub reboot_to {
			if ($reboot_type eq "grub") {
	run_command "ssh $target '(echo \"savedefault --default=$grub_number --once\" \| grub --batch; reboot)'";		run_command "ssh $target '(echo \"savedefault --default=$grub_number --once\" \| grub --batch; reboot)'";
			return;
			}

			run_command "$reboot_script";
	}		}

	sub monitor {		sub monitor {
	@@ -336,7 +391,7 @@ sub monitor {
	for (;;) {		for (;;) {

	if ($booted) {		if ($booted) {
	$line = wait_for_input($monitor_fp, $opt{"BOOTED_TIMEOUT"});		$line = wait_for_input($monitor_fp, $booted_timeout);
	} else {		} else {
	$line = wait_for_input($monitor_fp);		$line = wait_for_input($monitor_fp);
	}		}
	@@ -349,7 +404,7 @@ sub monitor {
	# we are not guaranteed to get a full line		# we are not guaranteed to get a full line
	$full_line .= $line;		$full_line .= $line;

	if ($full_line =~ /$opt{"SUCCESS_LINE"}/) {		if ($full_line =~ /$success_line/) {
	$booted = 1;		$booted = 1;
	}		}

	@@ -376,14 +431,14 @@ sub monitor {

	close(DMESG);		close(DMESG);

	if (!$booted) {		if ($bug) {
	return 0 if ($in_bisect);		return 0 if ($in_bisect);
	fail "failed - never got a boot prompt.\n" and return 0;		fail "failed - got a bug report\n" and return 0;
	}		}

	if ($bug) {		if (!$booted) {
	return 0 if ($in_bisect);		return 0 if ($in_bisect);
	fail "failed - got a bug report\n" and return 0;		fail "failed - never got a boot prompt.\n" and return 0;
	}		}

	return 1;		return 1;
	@@ -391,14 +446,14 @@ sub monitor {

	sub install {		sub install {

	run_command "scp $opt{OUTPUT_DIR}/$opt{BUILD_TARGET} $target:$opt{TARGET_IMAGE}" or		run_command "scp $outputdir/$build_target $target:$target_image" or
	dodie "failed to copy image";		dodie "failed to copy image";

	my $install_mods = 0;		my $install_mods = 0;

	# should we process modules?		# should we process modules?
	$install_mods = 0;		$install_mods = 0;
	open(IN, "$opt{OUTPUT_DIR}/.config") or dodie("Can't read config file");		open(IN, "$outputdir/.config") or dodie("Can't read config file");
	while (<IN>) {		while (<IN>) {
	if (/CONFIG_MODULES(=y)?/) {		if (/CONFIG_MODULES(=y)?/) {
	$install_mods = 1 if (defined($1));		$install_mods = 1 if (defined($1));
	@@ -412,7 +467,7 @@ sub install {
	return;		return;
	}		}

	run_command "$make INSTALL_MOD_PATH=$opt{TMP_DIR} modules_install" or		run_command "$make INSTALL_MOD_PATH=$tmpdir modules_install" or
	dodie "Failed to install modules";		dodie "Failed to install modules";

	my $modlib = "/lib/modules/$version";		my $modlib = "/lib/modules/$version";
	@@ -422,13 +477,13 @@ sub install {
	dodie "failed to remove old mods: $modlib";		dodie "failed to remove old mods: $modlib";

	# would be nice if scp -r did not follow symbolic links		# would be nice if scp -r did not follow symbolic links
	run_command "cd $opt{TMP_DIR} && tar -cjf $modtar lib/modules/$version" or		run_command "cd $tmpdir && tar -cjf $modtar lib/modules/$version" or
	dodie "making tarball";		dodie "making tarball";

	run_command "scp $opt{TMP_DIR}/$modtar $target:/tmp" or		run_command "scp $tmpdir/$modtar $target:/tmp" or
	dodie "failed to copy modules";		dodie "failed to copy modules";

	unlink "$opt{TMP_DIR}/$modtar";		unlink "$tmpdir/$modtar";

	run_command "ssh $target '(cd / && tar xf /tmp/$modtar)'" or		run_command "ssh $target '(cd / && tar xf /tmp/$modtar)'" or
	dodie "failed to tar modules";		dodie "failed to tar modules";
	@@ -456,7 +511,7 @@ sub check_buildlog {
	if (/^\s(.?):.*(warning\|error)/) {		if (/^\s(.?):.*(warning\|error)/) {
	my $err = $1;		my $err = $1;
	foreach my $file (@files) {		foreach my $file (@files) {
	my $fullpath = "$opt{BUILD_DIR}/$file";		my $fullpath = "$builddir/$file";
	if ($file eq $err \|\| $fullpath eq $err) {		if ($file eq $err \|\| $fullpath eq $err) {
	fail "$file built with warnings" and return 0;		fail "$file built with warnings" and return 0;
	}		}
	@@ -476,7 +531,7 @@ sub build {
	unlink $buildlog;		unlink $buildlog;

	if ($type =~ /^useconfig:(.*)/) {		if ($type =~ /^useconfig:(.*)/) {
	run_command "cp $1 $opt{OUTPUT_DIR}/.config" or		run_command "cp $1 $outputdir/.config" or
	dodie "could not copy $1 to .config";		dodie "could not copy $1 to .config";

	$type = "oldconfig";		$type = "oldconfig";
	@@ -487,38 +542,38 @@ sub build {
	$append = "yes ''\|";		$append = "yes ''\|";

	# allow for empty configs		# allow for empty configs
	run_command "touch $opt{OUTPUT_DIR}/.config";		run_command "touch $outputdir/.config";

	run_command "mv $opt{OUTPUT_DIR}/.config $opt{OUTPUT_DIR}/config_temp" or		run_command "mv $outputdir/.config $outputdir/config_temp" or
	dodie "moving .config";		dodie "moving .config";

	if (!$noclean && !run_command "$make mrproper") {		if (!$noclean && !run_command "$make mrproper") {
	dodie "make mrproper";		dodie "make mrproper";
	}		}

	run_command "mv $opt{OUTPUT_DIR}/config_temp $opt{OUTPUT_DIR}/.config" or		run_command "mv $outputdir/config_temp $outputdir/.config" or
	dodie "moving config_temp";		dodie "moving config_temp";

	} elsif (!$noclean) {		} elsif (!$noclean) {
	unlink "$opt{OUTPUT_DIR}/.config";		unlink "$outputdir/.config";
	run_command "$make mrproper" or		run_command "$make mrproper" or
	dodie "make mrproper";		dodie "make mrproper";
	}		}

	# add something to distinguish this build		# add something to distinguish this build
	open(OUT, "> $opt{OUTPUT_DIR}/localversion") or dodie("Can't make localversion file");		open(OUT, "> $outputdir/localversion") or dodie("Can't make localversion file");
	print OUT "$opt{LOCALVERSION}\n";		print OUT "$localversion\n";
	close(OUT);		close(OUT);

	if (defined($minconfig)) {		if (defined($minconfig)) {
	$defconfig = "KCONFIG_ALLCONFIG=$minconfig";		$defconfig = "KCONFIG_ALLCONFIG=$minconfig";
	}		}

	run_command "$defconfig $append $make $type" or		run_command "$append $defconfig $make $type" or
	dodie "failed make config";		dodie "failed make config";

	$redirect = "$opt{TMP_DIR}/buildlog";		$redirect = "$buildlog";
	if (!run_command "$make $opt{BUILD_OPTIONS}") {		if (!run_command "$make $build_options") {
	undef $redirect;		undef $redirect;
	# bisect may need this to pass		# bisect may need this to pass
	return 0 if ($in_bisect);		return 0 if ($in_bisect);
	@@ -530,9 +585,9 @@ sub build {
	}		}

	sub halt {		sub halt {
	if (!run_command "ssh $target halt" or defined($opt{"POWER_OFF"})) {		if (!run_command "ssh $target halt" or defined($power_off)) {
	# nope? the zap it!		# nope? the zap it!
	run_command "$opt{POWER_OFF}";		run_command "$power_off";
	}		}
	}		}

	@@ -541,15 +596,17 @@ sub success {

	doprint "\n\n*******************************************\n";		doprint "\n\n*******************************************\n";
	doprint "*******************************************\n";		doprint "*******************************************\n";
	doprint " SUCCESS!!!! \n";		doprint " TEST $i SUCCESS!!!! \n";
	doprint "*******************************************\n";		doprint "*******************************************\n";
	doprint "*******************************************\n";		doprint "*******************************************\n";

	if ($i != $opt{"NUM_BUILDS"}) {		if ($i != $opt{"NUM_TESTS"} && $test_type ne "build" &&
	doprint "Reboot and wait $opt{SLEEP_TIME} seconds\n";		!($test_type eq "patchcheck" && $opt{"PATCHCHECK_TYPE[$i]"} eq "build") &&
			!($test_type eq "bisect" && $opt{"BISECT_TYPE[$i]"} eq "build")) {
			doprint "Reboot and wait $sleep_time seconds\n";
	reboot;		reboot;
	start_monitor;		start_monitor;
	wait_for_monitor $opt{"SLEEP_TIME"};		wait_for_monitor $sleep_time;
	end_monitor;		end_monitor;
	}		}
	}		}
	@@ -566,9 +623,9 @@ sub child_run_test {
	my $failed = 0;		my $failed = 0;

	# child should have no power		# child should have no power
	$opt{"REBOOT_ON_ERROR"} = 0;		$reboot_on_error = 0;
	$opt{"POWEROFF_ON_ERROR"} = 0;		$poweroff_on_error = 0;
	$opt{"DIE_ON_FAILURE"} = 1;		$die_on_failure = 1;

	run_command $run_test or $failed = 1;		run_command $run_test or $failed = 1;
	exit $failed;		exit $failed;
	@@ -638,6 +695,36 @@ sub do_run_test {
	return 1;		return 1;
	}		}

			sub run_git_bisect {
			my ($command) = @_;

			doprint "$command ... ";

			my $output = `$command 2>&1`;
			my $ret = $?;

			logit $output;

			if ($ret) {
			doprint "FAILED\n";
			dodie "Failed to git bisect";
			}

			doprint "SUCCESS\n";
			if ($output =~ m/^(Bisecting: .*$roughly \d+ steps?$)\s+\[([[:xdigit:]]+)\]/) {
			doprint "$1 [$2]\n";
			} elsif ($output =~ m/^([[:xdigit:]]+) is the first bad commit/) {
			$bisect_bad = $1;
			doprint "Found bad commit... $1\n";
			return 0;
			} else {
			# we already logged it, just print it now.
			print $output;
			}

			return 1;
			}

	sub run_bisect {		sub run_bisect {
	my ($type) = @_;		my ($type) = @_;

	@@ -676,11 +763,11 @@ sub run_bisect {
	$result = "bad";		$result = "bad";

	# reboot the box to a good kernel		# reboot the box to a good kernel
	if ($type eq "boot") {		if ($type ne "build") {
	doprint "Reboot and sleep $opt{BISECT_SLEEP_TIME} seconds\n";		doprint "Reboot and sleep $bisect_sleep_time seconds\n";
	reboot;		reboot;
	start_monitor;		start_monitor;
	wait_for_monitor $opt{"BISECT_SLEEP_TIME"};		wait_for_monitor $bisect_sleep_time;
	end_monitor;		end_monitor;
	}		}
	} else {		} else {
	@@ -696,31 +783,7 @@ sub run_bisect {
	}		}
	}		}

	doprint "git bisect $result ... ";		return $result;
	$output = `git bisect $result 2>&1`;
	$ret = $?;

	logit $output;

	if ($ret) {
	doprint "FAILED\n";
	fail "Failed to git bisect";
	}

	doprint "SUCCESS\n";
	if ($output =~ m/^(Bisecting: .*$roughly \d+ steps?$)\s+\[([[:xdigit:]]+)\]/) {
	doprint "$1 [$2]\n";
	} elsif ($output =~ m/^([[:xdigit:]]+) is the first bad commit/) {
	$bisect_bad = $1;
	doprint "Found bad commit... $1\n";
	return 0;
	} else {
	# we already logged it, just print it now.
	print $output;
	}


	return 1;
	}		}

	sub bisect {		sub bisect {
	@@ -735,6 +798,8 @@ sub bisect {
	my $good = $opt{"BISECT_GOOD[$i]"};		my $good = $opt{"BISECT_GOOD[$i]"};
	my $bad = $opt{"BISECT_BAD[$i]"};		my $bad = $opt{"BISECT_BAD[$i]"};
	my $type = $opt{"BISECT_TYPE[$i]"};		my $type = $opt{"BISECT_TYPE[$i]"};
			my $start = $opt{"BISECT_START[$i]"};
			my $replay = $opt{"BISECT_REPLAY[$i]"};

	if (defined($opt{"BISECT_REVERSE[$i]"}) &&		if (defined($opt{"BISECT_REVERSE[$i]"}) &&
	$opt{"BISECT_REVERSE[$i]"} == 1) {		$opt{"BISECT_REVERSE[$i]"} == 1) {
	@@ -746,23 +811,83 @@ sub bisect {

	$in_bisect = 1;		$in_bisect = 1;

			# Can't have a test without having a test to run
			if ($type eq "test" && !defined($run_test)) {
			$type = "boot";
			}

			my $check = $opt{"BISECT_CHECK[$i]"};
			if (defined($check) && $check ne "0") {

			# get current HEAD
			doprint "git rev-list HEAD --max-count=1 ... ";
			my $head = `git rev-list HEAD --max-count=1`;
			my $ret = $?;

			logit $head;

			if ($ret) {
			doprint "FAILED\n";
			dodie "Failed to get git HEAD";
			}

			print "SUCCESS\n";

			chomp $head;

			if ($check ne "good") {
			doprint "TESTING BISECT BAD [$bad]\n";
			run_command "git checkout $bad" or
			die "Failed to checkout $bad";

			$result = run_bisect $type;

			if ($result ne "bad") {
			fail "Tested BISECT_BAD [$bad] and it succeeded" and return 0;
			}
			}

			if ($check ne "bad") {
			doprint "TESTING BISECT GOOD [$good]\n";
			run_command "git checkout $good" or
			die "Failed to checkout $good";

			$result = run_bisect $type;

			if ($result ne "good") {
			fail "Tested BISECT_GOOD [$good] and it failed" and return 0;
			}
			}

			# checkout where we started
			run_command "git checkout $head" or
			die "Failed to checkout $head";
			}

	run_command "git bisect start" or		run_command "git bisect start" or
	fail "could not start bisect";		dodie "could not start bisect";

	run_command "git bisect good $good" or		run_command "git bisect good $good" or
	fail "could not set bisect good to $good";		dodie "could not set bisect good to $good";

	run_command "git bisect bad $bad" or		run_git_bisect "git bisect bad $bad" or
	fail "could not set bisect good to $bad";		dodie "could not set bisect bad to $bad";

	# Can't have a test without having a test to run		if (defined($replay)) {
	if ($type eq "test" && !defined($run_test)) {		run_command "git bisect replay $replay" or
	$type = "boot";		dodie "failed to run replay";
			}

			if (defined($start)) {
			run_command "git checkout $start" or
			dodie "failed to checkout $start";
	}		}

			my $test;
	do {		do {
	$result = run_bisect $type;		$result = run_bisect $type;
	} while ($result);		$test = run_git_bisect "git bisect $result";
			} while ($test);

	run_command "git bisect log" or		run_command "git bisect log" or
	dodie "could not capture git bisect log";		dodie "could not capture git bisect log";
	@@ -883,11 +1008,6 @@ die "TARGET_IMAGE not defined\n" if (!defined($opt{"TARGET_IMAGE"}));
	die "POWER_CYCLE not defined\n" if (!defined($opt{"POWER_CYCLE"}));		die "POWER_CYCLE not defined\n" if (!defined($opt{"POWER_CYCLE"}));
	die "CONSOLE not defined\n" if (!defined($opt{"CONSOLE"}));		die "CONSOLE not defined\n" if (!defined($opt{"CONSOLE"}));
	die "LOCALVERSION not defined\n" if (!defined($opt{"LOCALVERSION"}));		die "LOCALVERSION not defined\n" if (!defined($opt{"LOCALVERSION"}));
	die "GRUB_MENU not defined\n" if (!defined($opt{"GRUB_MENU"}));

	chdir $opt{"BUILD_DIR"} \|\| die "can't change directory to $opt{BUILD_DIR}";

	$target = "$opt{SSH_USER}\@$opt{MACHINE}";

	if ($opt{"CLEAR_LOG"} && defined($opt{"LOG_FILE"})) {		if ($opt{"CLEAR_LOG"} && defined($opt{"LOG_FILE"})) {
	unlink $opt{"LOG_FILE"};		unlink $opt{"LOG_FILE"};
	@@ -899,11 +1019,7 @@ foreach my $option (sort keys %opt) {
	doprint "$option = $opt{$option}\n";		doprint "$option = $opt{$option}\n";
	}		}

	$buildlog = "$opt{TMP_DIR}/buildlog";		sub set_test_option {
	$dmesg = "$opt{TMP_DIR}/dmesg";
	$make = "$opt{MAKE_CMD} O=$opt{OUTPUT_DIR}";

	sub set_build_option {
	my ($name, $i) = @_;		my ($name, $i) = @_;

	my $option = "$name\[$i\]";		my $option = "$name\[$i\]";
	@@ -920,16 +1036,74 @@ sub set_build_option {
	}		}

	# First we need to do is the builds		# First we need to do is the builds
	for (my $i = 1; $i <= $opt{"NUM_BUILDS"}; $i++) {		for (my $i = 1; $i <= $opt{"NUM_TESTS"}; $i++) {

	$build_type = set_build_option("BUILD_TYPE", $i);		my $ssh_user = set_test_option("SSH_USER", $i);
	$noclean = set_build_option("BUILD_NOCLEAN", $i);		my $makecmd = set_test_option("MAKE_CMD", $i);
	$minconfig = set_build_option("MIN_CONFIG", $i);
	$run_test = set_build_option("TEST", $i);		$machine = set_test_option("MACHINE", $i);
	$addconfig = set_build_option("ADD_CONFIG", $i);		$tmpdir = set_test_option("TMP_DIR", $i);
			$outputdir = set_test_option("OUTPUT_DIR", $i);
			$builddir = set_test_option("BUILD_DIR", $i);
			$test_type = set_test_option("TEST_TYPE", $i);
			$build_type = set_test_option("BUILD_TYPE", $i);
			$build_options = set_test_option("BUILD_OPTIONS", $i);
			$power_cycle = set_test_option("POWER_CYCLE", $i);
			$noclean = set_test_option("BUILD_NOCLEAN", $i);
			$minconfig = set_test_option("MIN_CONFIG", $i);
			$run_test = set_test_option("TEST", $i);
			$addconfig = set_test_option("ADD_CONFIG", $i);
			$reboot_type = set_test_option("REBOOT_TYPE", $i);
			$grub_menu = set_test_option("GRUB_MENU", $i);
			$reboot_script = set_test_option("REBOOT_SCRIPT", $i);
			$reboot_on_error = set_test_option("REBOOT_ON_ERROR", $i);
			$poweroff_on_error = set_test_option("POWEROFF_ON_ERROR", $i);
			$die_on_failure = set_test_option("DIE_ON_FAILURE", $i);
			$power_off = set_test_option("POWER_OFF", $i);
			$sleep_time = set_test_option("SLEEP_TIME", $i);
			$bisect_sleep_time = set_test_option("BISECT_SLEEP_TIME", $i);
			$store_failures = set_test_option("STORE_FAILURES", $i);
			$timeout = set_test_option("TIMEOUT", $i);
			$booted_timeout = set_test_option("BOOTED_TIMEOUT", $i);
			$console = set_test_option("CONSOLE", $i);
			$success_line = set_test_option("SUCCESS_LINE", $i);
			$build_target = set_test_option("BUILD_TARGET", $i);
			$target_image = set_test_option("TARGET_IMAGE", $i);
			$localversion = set_test_option("LOCALVERSION", $i);

			chdir $builddir \|\| die "can't change directory to $builddir";

			if (!-d $tmpdir) {
			mkpath($tmpdir) or
			die "can't create $tmpdir";
			}

			$target = "$ssh_user\@$machine";

			$buildlog = "$tmpdir/buildlog-$machine";
			$dmesg = "$tmpdir/dmesg-$machine";
			$make = "$makecmd O=$outputdir";

			if ($reboot_type eq "grub") {
			dodie "GRUB_MENU not defined\n" if (!defined($grub_menu));
			} elsif (!defined($reboot_script)) {
			dodie "REBOOT_SCRIPT not defined\n"
			}

			my $run_type = $build_type;
			if ($test_type eq "patchcheck") {
			$run_type = $opt{"PATCHCHECK_TYPE[$i]"};
			} elsif ($test_type eq "bisect") {
			$run_type = $opt{"BISECT_TYPE[$i]"};
			}

			# mistake in config file?
			if (!defined($run_type)) {
			$run_type = "ERROR";
			}

	doprint "\n\n";		doprint "\n\n";
	doprint "RUNNING TEST $i of $opt{NUM_BUILDS} with option $build_type\n\n";		doprint "RUNNING TEST $i of $opt{NUM_TESTS} with option $test_type $run_type\n\n";

	unlink $dmesg;		unlink $dmesg;
	unlink $buildlog;		unlink $buildlog;
	@@ -938,9 +1112,9 @@ for (my $i = 1; $i <= $opt{"NUM_BUILDS"}; $i++) {
	$minconfig = $addconfig;		$minconfig = $addconfig;

	} elsif (defined($addconfig)) {		} elsif (defined($addconfig)) {
	run_command "cat $addconfig $minconfig > $opt{TMP_DIR}/use_config" or		run_command "cat $addconfig $minconfig > $tmpdir/use_config" or
	dodie "Failed to create temp config";		dodie "Failed to create temp config";
	$minconfig = "$opt{TMP_DIR}/use_config";		$minconfig = "$tmpdir/use_config";
	}		}

	my $checkout = $opt{"CHECKOUT[$i]"};		my $checkout = $opt{"CHECKOUT[$i]"};
	@@ -949,10 +1123,10 @@ for (my $i = 1; $i <= $opt{"NUM_BUILDS"}; $i++) {
	die "failed to checkout $checkout";		die "failed to checkout $checkout";
	}		}

	if ($build_type eq "bisect") {		if ($test_type eq "bisect") {
	bisect $i;		bisect $i;
	next;		next;
	} elsif ($build_type eq "patchcheck") {		} elsif ($test_type eq "patchcheck") {
	patchcheck $i;		patchcheck $i;
	next;		next;
	}		}
	@@ -961,6 +1135,7 @@ for (my $i = 1; $i <= $opt{"NUM_BUILDS"}; $i++) {
	build $build_type or next;		build $build_type or next;
	}		}

			if ($test_type ne "build") {
	get_grub_index;		get_grub_index;
	get_version;		get_version;
	install;		install;
	@@ -968,18 +1143,20 @@ for (my $i = 1; $i <= $opt{"NUM_BUILDS"}; $i++) {
	my $failed = 0;		my $failed = 0;
	start_monitor;		start_monitor;
	monitor or $failed = 1;;		monitor or $failed = 1;;
	if (!$failed && defined($run_test)) {
			if (!$failed && $test_type ne "boot" && defined($run_test)) {
	do_run_test or $failed = 1;		do_run_test or $failed = 1;
	}		}
	end_monitor;		end_monitor;
	next if ($failed);		next if ($failed);
			}

	success $i;		success $i;
	}		}

	if ($opt{"POWEROFF_ON_SUCCESS"}) {		if ($opt{"POWEROFF_ON_SUCCESS"}) {
	halt;		halt;
	} elsif ($opt{"REBOOT_ON_SUCCESS"}) {		} elsif ($opt{"REBOOT_ON_SUCCESS"} && $test_type ne "build") {
	reboot;		reboot;
	}		}

tools/testing/ktest/sample.conf

0 → 100644

+330 −0

File added.

Preview size limit exceeded, changes collapsed.