ktest: Added better console, add test build

Better reading of the console.

Added running a script to do testing after build succeeds.

Signed-off-by: Steven Rostedt <rostedt@goodmis.org>

1 files changed, 159 insertions, 48 deletions

diff --git a/tools/testing/ktest/ktest.pl b/tools/testing/ktest/ktest.pl
index a34f6f4193df..9eaf8d05c749 100644
--- a/tools/testing/ktest/ktest.pl
+++ b/tools/testing/ktest/ktest.pl
@@ -23,6 +23,7 @@ $opt{"REBOOT_ON_ERROR"}		= 0;
 $opt{"POWEROFF_ON_ERROR"}       = 0;
 $opt{"POWEROFF_ON_SUCCESS"}     = 0;
 $opt{"BUILD_OPTIONS"}           = "";
+$opt{"BISECT_SLEEP_TIME"}       = 10;   # sleep time between bisects
 
 my $version;
 my $grub_number;
@@ -32,6 +33,7 @@ my $noclean;
 my $minconfig;
 my $in_bisect = 0;
 my $bisect_bad = "";
+my $run_test;
 
 sub read_config {
     my ($config) = @_;
@@ -68,7 +70,7 @@ sub doprint {
 }
 
 sub dodie {
-    doprint "CRITICAL FAILURE... ", @_;
+    doprint "CRITICAL FAILURE... ", @_, "\n";
 
     if ($opt{"REBOOT_ON_ERROR"}) {
         doprint "REBOOTING\n";
@@ -84,14 +86,14 @@ sub dodie {
 
 sub run_command {
     my ($command) = @_;
-    my $redirect = "";
+    my $redirect_log = "";
 
     if (defined($opt{"LOG_FILE"})) {
-        $redirect = " >> $opt{LOG_FILE} 2>&1";
+        $redirect_log = " >> $opt{LOG_FILE} 2>&1";
     }
 
     doprint "$command ... ";
-    `$command $redirect`;
+    `$command $redirect_log`;
 
     my $failed = $?;
 
@@ -106,7 +108,7 @@ sub run_command {
 
 sub get_grub_index {
 
-    return if ($grub_number >= 0);
+    return if (defined($grub_number));
 
     doprint "Find grub menu ... ";
     $grub_number = -1;
@@ -164,28 +166,40 @@ sub reboot_to {
     run_command "ssh $target '(echo \"savedefault --default=$grub_number --once\" | grub --batch; reboot)'";
 }
 
-sub monitor {
+sub open_console {
+    my ($fp) = @_;
+
     my $flags;
+
+    my $pid = open($fp, "$opt{CONSOLE}|") or
+        dodie "Can't open console $opt{CONSOLE}";
+
+    $flags = fcntl($fp, F_GETFL, 0) or
+        dodie "Can't get flags for the socket: $!\n";
+    $flags = fcntl($fp, F_SETFL, $flags | O_NONBLOCK) or
+        dodie "Can't set flags for the socket: $!\n";
+
+    return $pid;
+}
+
+sub close_console {
+    my ($fp, $pid) = @_;
+
+    doprint "kill child process $pid\n";
+    kill 2, $pid;
+
+    print "closing!\n";
+    close($fp);
+}
+
+sub monitor {
     my $booted = 0;
     my $bug = 0;
     my $pid;
-    my $doopen2 = 0;
     my $skip_call_trace = 0;
+    my $fp = \*IN;
 
-    if ($doopen2) {
-        $pid = open2(\*IN, \*OUT, $opt{"CONSOLE"});
-        if ($pid < 0) {
-            dodie "Failed to connect to the console";
-        }
-    } else {
-        $pid = open(IN, "$opt{CONSOLE} |");
-    }
-
-    $flags = fcntl(IN, F_GETFL, 0) or
-        dodie "Can't get flags for the socket: $!\n";
-
-    $flags = fcntl(IN, F_SETFL, $flags | O_NONBLOCK) or
-        dodie "Can't set flags for the socket: $!\n";
+    $pid = open_console($fp);
 
     my $line;
     my $full_line = "";
@@ -193,14 +207,14 @@ sub monitor {
     doprint "Wait for monitor to settle down.\n";
     # read the monitor and wait for the system to calm down
     do {
-        $line = wait_for_input(\*IN, 5);
+        $line = wait_for_input($fp, 5);
     } while (defined($line));
 
     reboot_to;
 
     for (;;) {
 
-        $line = wait_for_input(\*IN);
+        $line = wait_for_input($fp);
 
         last if (!defined($line));
 
@@ -234,19 +248,15 @@ sub monitor {
         }
     }
 
-    doprint "kill child process $pid\n";
-    kill 2, $pid;
-
-    print "closing!\n";
-    close(IN);
+    close_console($fp, $pid);
 
     if (!$booted) {
-        return 1 if (!$in_bisect);
+        return 1 if ($in_bisect);
         dodie "failed - never got a boot prompt.\n";
     }
 
     if ($bug) {
-        return 1 if (!$in_bisect);
+        return 1 if ($in_bisect);
         dodie "failed - got a bug report\n";
     }
 
@@ -395,6 +405,84 @@ sub get_version {
     doprint "$version\n";
 }
 
+sub child_run_test {
+    my $failed;
+
+    $failed = !run_command $run_test;
+    exit $failed;
+}
+
+my $child_done;
+
+sub child_finished {
+    $child_done = 1;
+}
+
+sub do_run_test {
+    my $child_pid;
+    my $child_exit;
+    my $pid;
+    my $line;
+    my $full_line;
+    my $bug = 0;
+    my $fp = \*IN;
+
+    $pid = open_console($fp);
+
+    # read the monitor and wait for the system to calm down
+    do {
+        $line = wait_for_input($fp, 1);
+    } while (defined($line));
+
+    $child_done = 0;
+
+    $SIG{CHLD} = qw(child_finished);
+
+    $child_pid = fork;
+
+    child_run_test if (!$child_pid);
+
+    $full_line = "";
+
+    do {
+        $line = wait_for_input($fp, 1);
+        if (defined($line)) {
+
+            # we are not guaranteed to get a full line
+            $full_line .= $line;
+
+            if ($full_line =~ /call trace:/i) {
+                $bug = 1;
+            }
+
+            if ($full_line =~ /Kernel panic -/) {
+                $bug = 1;
+            }
+
+            if ($line =~ /\n/) {
+                $full_line = "";
+            }
+        }
+    } while (!$child_done && !$bug);
+
+    if ($bug) {
+        doprint "Detected kernel crash!\n";
+        # kill the child with extreme prejudice
+        kill 9, $child_pid;
+    }
+
+    waitpid $child_pid, 0;
+    $child_exit = $?;
+
+    close_console($fp, $pid);
+
+    if ($bug || $child_exit) {
+        return 1 if $in_bisect;
+        dodie "test failed";
+    }
+    return 0;
+}
+
 sub run_bisect {
     my ($type) = @_;
 
@@ -422,11 +510,20 @@ sub run_bisect {
 
         if ($type ne "boot") {
             dodie "Failed on boot" if $failed;
+
+            $failed = do_run_test;
         }
     }
 
     if ($failed) {
         $result = "bad";
+
+        # reboot the box to a good kernel
+        if ($type eq "boot") {
+            reboot;
+            doprint "sleep a little for reboot\n";
+            sleep $opt{"BISECT_SLEEP_TIME"};
+        }
     } else {
         $result = "good";
     }
@@ -443,12 +540,15 @@ sub run_bisect {
     }
 
     doprint "SUCCESS\n";
-    if ($output =~ m/^(Bisecting: .*\(roughly \d+ steps?\)) \[([[:xdigit:]]+)\]/) {
+    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;
     }
 
 
@@ -479,6 +579,11 @@ sub bisect {
     run_command "git bisect bad $bad" or
         dodie "could not set bisect good to $bad";
 
+    # Can't have a test without having a test to run
+    if ($type eq "test" && !defined($run_test)) {
+        $type = "boot";
+    }
+
     do {
         $result = run_bisect $type;
     } while ($result);
@@ -519,29 +624,30 @@ doprint "\n\nSTARTING AUTOMATED TESTS\n";
 
 $make = "$opt{MAKE_CMD} O=$opt{OUTPUT_DIR}";
 
-# First we need to do is the builds
-for (my $i = 1; $i <= $opt{"NUM_BUILDS"}; $i++) {
-    my $type = "BUILD_TYPE[$i]";
+sub set_build_option {
+    my ($name, $i) = @_;
 
-    if (defined($opt{"BUILD_NOCLEAN[$i]"}) &&
-        $opt{"BUILD_NOCLEAN[$i]"} != 0) {
-        $noclean = 1;
-    } else {
-        $noclean = $opt{"BUILD_NOCLEAN"};
-    }
+    my $option = "$name\[$i\]";
 
-    if (defined($opt{"MIN_CONFIG[$i]"})) {
-        $minconfig = $opt{"MIN_CONFIG[$i]"};
-    } elsif (defined($opt{"MIN_CONFIG"})) {
-        $minconfig = $opt{"MIN_CONFIG"};
-    } else {
-        undef $minconfig;
+    if (defined($opt{$option})) {
+        return $opt{$option};
     }
 
-    if (!defined($opt{$type})) {
-        $opt{$type} = $opt{"DEFAULT_BUILD_TYPE"};
+    if (defined($opt{$name})) {
+        return $opt{$name};
     }
 
+    return undef;
+}
+
+# First we need to do is the builds
+for (my $i = 1; $i <= $opt{"NUM_BUILDS"}; $i++) {
+    my $type = "BUILD_TYPE[$i]";
+
+    $noclean = set_build_option("BUILD_NOCLEAN", $i);
+    $minconfig = set_build_option("MIN_CONFIG", $i);
+    $run_test = set_build_option("TEST", $i);
+
     doprint "\n\n";
     doprint "RUNNING TEST $i of $opt{NUM_BUILDS} with option $opt{$type}\n\n";
 
@@ -558,6 +664,11 @@ for (my $i = 1; $i <= $opt{"NUM_BUILDS"}; $i++) {
     get_version;
     install;
     monitor;
+
+    if (defined($run_test)) {
+        do_run_test;
+    }
+
     success $i;
 }