Commit 68253e71 authored by Linus Torvalds's avatar Linus Torvalds

Merge tag 'ktest-v5.1' of git://git.kernel.org/pub/scm/linux/kernel/git/rostedt/linux-ktest

Pull ktest updates from Steven Rostedt:
 "Minor updates to ktest.pl

   - Handle meta characters in grub memu

   - Use configurable reboot return code for handling ssh reboots

   - Display names and iteration number on error message"

* tag 'ktest-v5.1' of git://git.kernel.org/pub/scm/linux/kernel/git/rostedt/linux-ktest:
  ktest: introduce REBOOT_RETURN_CODE to confirm the result of REBOOT
  ktest: Add support for meta characters in GRUB_MENU
  ktest: Show name and iteration on errors
parents 09686219 37e16773
...@@ -58,6 +58,7 @@ my %default = ( ...@@ -58,6 +58,7 @@ my %default = (
"SCP_TO_TARGET" => "scp \$SRC_FILE \$SSH_USER\@\$MACHINE:\$DST_FILE", "SCP_TO_TARGET" => "scp \$SRC_FILE \$SSH_USER\@\$MACHINE:\$DST_FILE",
"SCP_TO_TARGET_INSTALL" => "\${SCP_TO_TARGET}", "SCP_TO_TARGET_INSTALL" => "\${SCP_TO_TARGET}",
"REBOOT" => "ssh \$SSH_USER\@\$MACHINE reboot", "REBOOT" => "ssh \$SSH_USER\@\$MACHINE reboot",
"REBOOT_RETURN_CODE" => 255,
"STOP_AFTER_SUCCESS" => 10, "STOP_AFTER_SUCCESS" => 10,
"STOP_AFTER_FAILURE" => 60, "STOP_AFTER_FAILURE" => 60,
"STOP_TEST_AFTER" => 600, "STOP_TEST_AFTER" => 600,
...@@ -105,6 +106,7 @@ my $reboot_type; ...@@ -105,6 +106,7 @@ my $reboot_type;
my $reboot_script; my $reboot_script;
my $power_cycle; my $power_cycle;
my $reboot; my $reboot;
my $reboot_return_code;
my $reboot_on_error; my $reboot_on_error;
my $switch_to_good; my $switch_to_good;
my $switch_to_test; my $switch_to_test;
...@@ -278,6 +280,7 @@ my %option_map = ( ...@@ -278,6 +280,7 @@ my %option_map = (
"POST_BUILD_DIE" => \$post_build_die, "POST_BUILD_DIE" => \$post_build_die,
"POWER_CYCLE" => \$power_cycle, "POWER_CYCLE" => \$power_cycle,
"REBOOT" => \$reboot, "REBOOT" => \$reboot,
"REBOOT_RETURN_CODE" => \$reboot_return_code,
"BUILD_NOCLEAN" => \$noclean, "BUILD_NOCLEAN" => \$noclean,
"MIN_CONFIG" => \$minconfig, "MIN_CONFIG" => \$minconfig,
"OUTPUT_MIN_CONFIG" => \$output_minconfig, "OUTPUT_MIN_CONFIG" => \$output_minconfig,
...@@ -1437,16 +1440,27 @@ sub do_not_reboot { ...@@ -1437,16 +1440,27 @@ sub do_not_reboot {
my $in_die = 0; my $in_die = 0;
sub get_test_name() {
my $name;
if (defined($test_name)) {
$name = "$test_name:$test_type";
} else {
$name = $test_type;
}
return $name;
}
sub dodie { sub dodie {
# avoid recusion # avoid recusion
return if ($in_die); return if ($in_die);
$in_die = 1; $in_die = 1;
doprint "CRITICAL FAILURE... ", @_, "\n";
my $i = $iteration; my $i = $iteration;
doprint "CRITICAL FAILURE... [TEST $i] ", @_, "\n";
if ($reboot_on_error && !do_not_reboot) { if ($reboot_on_error && !do_not_reboot) {
doprint "REBOOTING\n"; doprint "REBOOTING\n";
...@@ -1462,7 +1476,8 @@ sub dodie { ...@@ -1462,7 +1476,8 @@ sub dodie {
} }
if ($email_on_error) { if ($email_on_error) {
send_email("KTEST: critical failure for your [$test_type] test", my $name = get_test_name;
send_email("KTEST: critical failure for test $i [$name]",
"Your test started at $script_start_time has failed with:\n@_\n"); "Your test started at $script_start_time has failed with:\n@_\n");
} }
...@@ -1737,6 +1752,7 @@ sub run_command { ...@@ -1737,6 +1752,7 @@ sub run_command {
my $dord = 0; my $dord = 0;
my $dostdout = 0; my $dostdout = 0;
my $pid; my $pid;
my $command_orig = $command;
$command =~ s/\$SSH_USER/$ssh_user/g; $command =~ s/\$SSH_USER/$ssh_user/g;
$command =~ s/\$MACHINE/$machine/g; $command =~ s/\$MACHINE/$machine/g;
...@@ -1791,6 +1807,11 @@ sub run_command { ...@@ -1791,6 +1807,11 @@ sub run_command {
# shift 8 for real exit status # shift 8 for real exit status
$run_command_status = $? >> 8; $run_command_status = $? >> 8;
if ($command_orig eq $default{REBOOT} &&
$run_command_status == $reboot_return_code) {
$run_command_status = 0;
}
close(CMD); close(CMD);
close(LOG) if ($dolog); close(LOG) if ($dolog);
close(RD) if ($dord); close(RD) if ($dord);
...@@ -1866,9 +1887,10 @@ sub get_grub2_index { ...@@ -1866,9 +1887,10 @@ sub get_grub2_index {
or dodie "unable to get $grub_file"; or dodie "unable to get $grub_file";
my $found = 0; my $found = 0;
my $grub_menu_qt = quotemeta($grub_menu);
while (<IN>) { while (<IN>) {
if (/^menuentry.*$grub_menu/) { if (/^menuentry.*$grub_menu_qt/) {
$grub_number++; $grub_number++;
$found = 1; $found = 1;
last; last;
...@@ -1909,9 +1931,10 @@ sub get_grub_index { ...@@ -1909,9 +1931,10 @@ sub get_grub_index {
or dodie "unable to get menu.lst"; or dodie "unable to get menu.lst";
my $found = 0; my $found = 0;
my $grub_menu_qt = quotemeta($grub_menu);
while (<IN>) { while (<IN>) {
if (/^\s*title\s+$grub_menu\s*$/) { if (/^\s*title\s+$grub_menu_qt\s*$/) {
$grub_number++; $grub_number++;
$found = 1; $found = 1;
last; last;
...@@ -4193,7 +4216,8 @@ sub send_email { ...@@ -4193,7 +4216,8 @@ sub send_email {
sub cancel_test { sub cancel_test {
if ($email_when_canceled) { if ($email_when_canceled) {
send_email("KTEST: Your [$test_type] test was cancelled", my $name = get_test_name;
send_email("KTEST: Your [$name] test was cancelled",
"Your test started at $script_start_time was cancelled: sig int"); "Your test started at $script_start_time was cancelled: sig int");
} }
die "\nCaught Sig Int, test interrupted: $!\n" die "\nCaught Sig Int, test interrupted: $!\n"
...@@ -4247,7 +4271,8 @@ for (my $i = 1; $i <= $opt{"NUM_TESTS"}; $i++) { ...@@ -4247,7 +4271,8 @@ for (my $i = 1; $i <= $opt{"NUM_TESTS"}; $i++) {
run_command $pre_ktest; run_command $pre_ktest;
} }
if ($email_when_started) { if ($email_when_started) {
send_email("KTEST: Your [$test_type] test was started", my $name = get_test_name;
send_email("KTEST: Your [$name] test was started",
"Your test was started on $script_start_time"); "Your test was started on $script_start_time");
} }
} }
...@@ -4414,7 +4439,7 @@ if ($opt{"POWEROFF_ON_SUCCESS"}) { ...@@ -4414,7 +4439,7 @@ if ($opt{"POWEROFF_ON_SUCCESS"}) {
doprint "\n $successes of $opt{NUM_TESTS} tests were successful\n\n"; doprint "\n $successes of $opt{NUM_TESTS} tests were successful\n\n";
if ($email_when_finished) { if ($email_when_finished) {
send_email("KTEST: Your [$test_type] test has finished!", send_email("KTEST: Your test has finished!",
"$successes of $opt{NUM_TESTS} tests started at $script_start_time were successful!"); "$successes of $opt{NUM_TESTS} tests started at $script_start_time were successful!");
} }
exit 0; exit 0;
...@@ -887,6 +887,10 @@ ...@@ -887,6 +887,10 @@
# The variables SSH_USER and MACHINE are defined. # The variables SSH_USER and MACHINE are defined.
#REBOOT = ssh $SSH_USER@$MACHINE reboot #REBOOT = ssh $SSH_USER@$MACHINE reboot
# The return code of REBOOT
# (default 255)
#REBOOT_RETURN_CODE = 255
# The way triple faults are detected is by testing the kernel # The way triple faults are detected is by testing the kernel
# banner. If the kernel banner for the kernel we are testing is # banner. If the kernel banner for the kernel we are testing is
# found, and then later a kernel banner for another kernel version # found, and then later a kernel banner for another kernel version
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment