blob: 8d02ccb10c598bc8c7a9e926e9b9500c75d51e37 [file] [log] [blame]
Steven Rostedt2545eb62010-11-02 15:01:32 -04001#!/usr/bin/perl -w
Steven Rostedtd6ce2a02010-11-02 14:58:05 -04002#
Uwe Kleine-Königcce1dac2011-01-24 21:12:01 +01003# Copyright 2010 - Steven Rostedt <srostedt@redhat.com>, Red Hat Inc.
Steven Rostedtd6ce2a02010-11-02 14:58:05 -04004# Licensed under the terms of the GNU GPL License version 2
5#
Steven Rostedt2545eb62010-11-02 15:01:32 -04006
7use strict;
8use IPC::Open2;
9use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);
Steven Rostedt7faafbd2010-11-02 14:58:22 -040010use File::Path qw(mkpath);
11use File::Copy qw(cp);
Steven Rostedt2545eb62010-11-02 15:01:32 -040012use FileHandle;
13
Steven Rostedte48c5292010-11-02 14:35:37 -040014my $VERSION = "0.2";
15
Steven Rostedt2545eb62010-11-02 15:01:32 -040016$| = 1;
17
18my %opt;
Steven Rostedta57419b2010-11-02 15:13:54 -040019my %repeat_tests;
20my %repeats;
Steven Rostedta75fece2010-11-02 14:58:27 -040021my %default;
Steven Rostedt2545eb62010-11-02 15:01:32 -040022
23#default opts
Steven Rostedta57419b2010-11-02 15:13:54 -040024$default{"NUM_TESTS"} = 1;
Steven Rostedta75fece2010-11-02 14:58:27 -040025$default{"REBOOT_TYPE"} = "grub";
26$default{"TEST_TYPE"} = "test";
27$default{"BUILD_TYPE"} = "randconfig";
28$default{"MAKE_CMD"} = "make";
29$default{"TIMEOUT"} = 120;
Steven Rostedt48920632011-06-14 20:42:19 -040030$default{"TMP_DIR"} = "/tmp/ktest/\${MACHINE}";
Steven Rostedta75fece2010-11-02 14:58:27 -040031$default{"SLEEP_TIME"} = 60; # sleep time between tests
32$default{"BUILD_NOCLEAN"} = 0;
33$default{"REBOOT_ON_ERROR"} = 0;
34$default{"POWEROFF_ON_ERROR"} = 0;
35$default{"REBOOT_ON_SUCCESS"} = 1;
36$default{"POWEROFF_ON_SUCCESS"} = 0;
37$default{"BUILD_OPTIONS"} = "";
38$default{"BISECT_SLEEP_TIME"} = 60; # sleep time between bisects
Steven Rostedt27d934b2011-05-20 09:18:18 -040039$default{"PATCHCHECK_SLEEP_TIME"} = 60; # sleep time between patch checks
Steven Rostedta75fece2010-11-02 14:58:27 -040040$default{"CLEAR_LOG"} = 0;
Steven Rostedtc960bb92011-03-08 09:22:39 -050041$default{"BISECT_MANUAL"} = 0;
Steven Rostedtc23dca72011-03-08 09:26:31 -050042$default{"BISECT_SKIP"} = 1;
Steven Rostedta75fece2010-11-02 14:58:27 -040043$default{"SUCCESS_LINE"} = "login:";
Steven Rostedtf1a5b962011-06-13 10:30:00 -040044$default{"DETECT_TRIPLE_FAULT"} = 1;
Steven Rostedta75fece2010-11-02 14:58:27 -040045$default{"BOOTED_TIMEOUT"} = 1;
46$default{"DIE_ON_FAILURE"} = 1;
Steven Rostedte48c5292010-11-02 14:35:37 -040047$default{"SSH_EXEC"} = "ssh \$SSH_USER\@\$MACHINE \$SSH_COMMAND";
48$default{"SCP_TO_TARGET"} = "scp \$SRC_FILE \$SSH_USER\@\$MACHINE:\$DST_FILE";
49$default{"REBOOT"} = "ssh \$SSH_USER\@\$MACHINE reboot";
Steven Rostedt1c8a6172010-11-09 12:55:40 -050050$default{"STOP_AFTER_SUCCESS"} = 10;
51$default{"STOP_AFTER_FAILURE"} = 60;
Steven Rostedt2d01b262011-03-08 09:47:54 -050052$default{"STOP_TEST_AFTER"} = 600;
Steven Rostedt8d1491b2010-11-18 15:39:48 -050053$default{"LOCALVERSION"} = "-test";
Steven Rostedt2545eb62010-11-02 15:01:32 -040054
Steven Rostedt8d1491b2010-11-18 15:39:48 -050055my $ktest_config;
Steven Rostedt2545eb62010-11-02 15:01:32 -040056my $version;
Steven Rostedta75fece2010-11-02 14:58:27 -040057my $machine;
Steven Rostedte48c5292010-11-02 14:35:37 -040058my $ssh_user;
Steven Rostedta75fece2010-11-02 14:58:27 -040059my $tmpdir;
60my $builddir;
61my $outputdir;
Steven Rostedt51ad1dd2010-11-08 16:43:21 -050062my $output_config;
Steven Rostedta75fece2010-11-02 14:58:27 -040063my $test_type;
Steven Rostedt7faafbd2010-11-02 14:58:22 -040064my $build_type;
Steven Rostedta75fece2010-11-02 14:58:27 -040065my $build_options;
Steven Rostedt0bd6c1a2011-06-14 20:39:31 -040066my $pre_build;
67my $post_build;
68my $pre_build_die;
69my $post_build_die;
Steven Rostedta75fece2010-11-02 14:58:27 -040070my $reboot_type;
71my $reboot_script;
72my $power_cycle;
Steven Rostedte48c5292010-11-02 14:35:37 -040073my $reboot;
Steven Rostedta75fece2010-11-02 14:58:27 -040074my $reboot_on_error;
75my $poweroff_on_error;
76my $die_on_failure;
Steven Rostedt576f6272010-11-02 14:58:38 -040077my $powercycle_after_reboot;
78my $poweroff_after_halt;
Steven Rostedte48c5292010-11-02 14:35:37 -040079my $ssh_exec;
80my $scp_to_target;
Steven Rostedta75fece2010-11-02 14:58:27 -040081my $power_off;
82my $grub_menu;
Steven Rostedt2545eb62010-11-02 15:01:32 -040083my $grub_number;
84my $target;
85my $make;
Steven Rostedt8b37ca82010-11-02 14:58:33 -040086my $post_install;
Steven Rostedt5c42fc52010-11-02 14:57:01 -040087my $noclean;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -040088my $minconfig;
Steven Rostedt4c4ab122011-07-15 21:16:17 -040089my $start_minconfig;
Steven Rostedt35ce5952011-07-15 21:57:25 -040090my $start_minconfig_defined;
Steven Rostedt4c4ab122011-07-15 21:16:17 -040091my $output_minconfig;
92my $ignore_config;
Steven Rostedt2b7d9b22010-11-02 14:58:15 -040093my $addconfig;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -040094my $in_bisect = 0;
95my $bisect_bad = "";
Steven Rostedtd6ce2a02010-11-02 14:58:05 -040096my $reverse_bisect;
Steven Rostedtc960bb92011-03-08 09:22:39 -050097my $bisect_manual;
Steven Rostedtc23dca72011-03-08 09:26:31 -050098my $bisect_skip;
Steven Rostedt30f75da2011-06-13 10:35:35 -040099my $config_bisect_good;
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -0400100my $in_patchcheck = 0;
Steven Rostedt5a391fb2010-11-02 14:57:43 -0400101my $run_test;
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -0400102my $redirect;
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400103my $buildlog;
104my $dmesg;
105my $monitor_fp;
106my $monitor_pid;
107my $monitor_cnt = 0;
Steven Rostedta75fece2010-11-02 14:58:27 -0400108my $sleep_time;
109my $bisect_sleep_time;
Steven Rostedt27d934b2011-05-20 09:18:18 -0400110my $patchcheck_sleep_time;
Steven Rostedt19902072011-06-14 20:46:25 -0400111my $ignore_warnings;
Steven Rostedta75fece2010-11-02 14:58:27 -0400112my $store_failures;
Steven Rostedt9064af52011-06-13 10:38:48 -0400113my $test_name;
Steven Rostedta75fece2010-11-02 14:58:27 -0400114my $timeout;
115my $booted_timeout;
Steven Rostedtf1a5b962011-06-13 10:30:00 -0400116my $detect_triplefault;
Steven Rostedta75fece2010-11-02 14:58:27 -0400117my $console;
118my $success_line;
Steven Rostedt1c8a6172010-11-09 12:55:40 -0500119my $stop_after_success;
120my $stop_after_failure;
Steven Rostedt2d01b262011-03-08 09:47:54 -0500121my $stop_test_after;
Steven Rostedta75fece2010-11-02 14:58:27 -0400122my $build_target;
123my $target_image;
124my $localversion;
Steven Rostedt576f6272010-11-02 14:58:38 -0400125my $iteration = 0;
Steven Rostedte48c5292010-11-02 14:35:37 -0400126my $successes = 0;
Steven Rostedt2545eb62010-11-02 15:01:32 -0400127
Steven Rostedt8d1491b2010-11-18 15:39:48 -0500128my %entered_configs;
129my %config_help;
Steven Rostedt77d942c2011-05-20 13:36:58 -0400130my %variable;
Steven Rostedtfcb3f162011-06-13 10:40:58 -0400131my %force_config;
Steven Rostedt8d1491b2010-11-18 15:39:48 -0500132
133$config_help{"MACHINE"} = << "EOF"
134 The machine hostname that you will test.
135EOF
136 ;
137$config_help{"SSH_USER"} = << "EOF"
138 The box is expected to have ssh on normal bootup, provide the user
139 (most likely root, since you need privileged operations)
140EOF
141 ;
142$config_help{"BUILD_DIR"} = << "EOF"
143 The directory that contains the Linux source code (full path).
144EOF
145 ;
146$config_help{"OUTPUT_DIR"} = << "EOF"
147 The directory that the objects will be built (full path).
148 (can not be same as BUILD_DIR)
149EOF
150 ;
151$config_help{"BUILD_TARGET"} = << "EOF"
152 The location of the compiled file to copy to the target.
153 (relative to OUTPUT_DIR)
154EOF
155 ;
156$config_help{"TARGET_IMAGE"} = << "EOF"
157 The place to put your image on the test machine.
158EOF
159 ;
160$config_help{"POWER_CYCLE"} = << "EOF"
161 A script or command to reboot the box.
162
163 Here is a digital loggers power switch example
164 POWER_CYCLE = wget --no-proxy -O /dev/null -q --auth-no-challenge 'http://admin:admin\@power/outlet?5=CCL'
165
166 Here is an example to reboot a virtual box on the current host
167 with the name "Guest".
168 POWER_CYCLE = virsh destroy Guest; sleep 5; virsh start Guest
169EOF
170 ;
171$config_help{"CONSOLE"} = << "EOF"
172 The script or command that reads the console
173
174 If you use ttywatch server, something like the following would work.
175CONSOLE = nc -d localhost 3001
176
177 For a virtual machine with guest name "Guest".
178CONSOLE = virsh console Guest
179EOF
180 ;
181$config_help{"LOCALVERSION"} = << "EOF"
182 Required version ending to differentiate the test
183 from other linux builds on the system.
184EOF
185 ;
186$config_help{"REBOOT_TYPE"} = << "EOF"
187 Way to reboot the box to the test kernel.
188 Only valid options so far are "grub" and "script".
189
190 If you specify grub, it will assume grub version 1
191 and will search in /boot/grub/menu.lst for the title \$GRUB_MENU
192 and select that target to reboot to the kernel. If this is not
193 your setup, then specify "script" and have a command or script
194 specified in REBOOT_SCRIPT to boot to the target.
195
196 The entry in /boot/grub/menu.lst must be entered in manually.
197 The test will not modify that file.
198EOF
199 ;
200$config_help{"GRUB_MENU"} = << "EOF"
201 The grub title name for the test kernel to boot
202 (Only mandatory if REBOOT_TYPE = grub)
203
204 Note, ktest.pl will not update the grub menu.lst, you need to
205 manually add an option for the test. ktest.pl will search
206 the grub menu.lst for this option to find what kernel to
207 reboot into.
208
209 For example, if in the /boot/grub/menu.lst the test kernel title has:
210 title Test Kernel
211 kernel vmlinuz-test
212 GRUB_MENU = Test Kernel
213EOF
214 ;
215$config_help{"REBOOT_SCRIPT"} = << "EOF"
216 A script to reboot the target into the test kernel
217 (Only mandatory if REBOOT_TYPE = script)
218EOF
219 ;
220
Steven Rostedt35ce5952011-07-15 21:57:25 -0400221sub read_yn {
222 my ($prompt) = @_;
223
224 my $ans;
225
226 for (;;) {
227 print "$prompt [Y/n] ";
228 $ans = <STDIN>;
229 chomp $ans;
230 if ($ans =~ /^\s*$/) {
231 $ans = "y";
232 }
233 last if ($ans =~ /^y$/i || $ans =~ /^n$/i);
234 print "Please answer either 'y' or 'n'.\n";
235 }
236 if ($ans !~ /^y$/i) {
237 return 0;
238 }
239 return 1;
240}
Steven Rostedt8d1491b2010-11-18 15:39:48 -0500241
242sub get_ktest_config {
243 my ($config) = @_;
244
245 return if (defined($opt{$config}));
246
247 if (defined($config_help{$config})) {
248 print "\n";
249 print $config_help{$config};
250 }
251
252 for (;;) {
253 print "$config = ";
254 if (defined($default{$config})) {
255 print "\[$default{$config}\] ";
256 }
257 $entered_configs{$config} = <STDIN>;
258 $entered_configs{$config} =~ s/^\s*(.*\S)\s*$/$1/;
259 if ($entered_configs{$config} =~ /^\s*$/) {
260 if ($default{$config}) {
261 $entered_configs{$config} = $default{$config};
262 } else {
263 print "Your answer can not be blank\n";
264 next;
265 }
266 }
267 last;
268 }
269}
270
271sub get_ktest_configs {
272 get_ktest_config("MACHINE");
273 get_ktest_config("SSH_USER");
274 get_ktest_config("BUILD_DIR");
275 get_ktest_config("OUTPUT_DIR");
276 get_ktest_config("BUILD_TARGET");
277 get_ktest_config("TARGET_IMAGE");
278 get_ktest_config("POWER_CYCLE");
279 get_ktest_config("CONSOLE");
280 get_ktest_config("LOCALVERSION");
281
282 my $rtype = $opt{"REBOOT_TYPE"};
283
284 if (!defined($rtype)) {
285 if (!defined($opt{"GRUB_MENU"})) {
286 get_ktest_config("REBOOT_TYPE");
287 $rtype = $entered_configs{"REBOOT_TYPE"};
288 } else {
289 $rtype = "grub";
290 }
291 }
292
293 if ($rtype eq "grub") {
294 get_ktest_config("GRUB_MENU");
295 } else {
296 get_ktest_config("REBOOT_SCRIPT");
297 }
298}
299
Steven Rostedt77d942c2011-05-20 13:36:58 -0400300sub process_variables {
301 my ($value) = @_;
302 my $retval = "";
303
304 # We want to check for '\', and it is just easier
305 # to check the previous characet of '$' and not need
306 # to worry if '$' is the first character. By adding
307 # a space to $value, we can just check [^\\]\$ and
308 # it will still work.
309 $value = " $value";
310
311 while ($value =~ /(.*?[^\\])\$\{(.*?)\}(.*)/) {
312 my $begin = $1;
313 my $var = $2;
314 my $end = $3;
315 # append beginning of value to retval
316 $retval = "$retval$begin";
317 if (defined($variable{$var})) {
318 $retval = "$retval$variable{$var}";
319 } else {
320 # put back the origin piece.
321 $retval = "$retval\$\{$var\}";
322 }
323 $value = $end;
324 }
325 $retval = "$retval$value";
326
327 # remove the space added in the beginning
328 $retval =~ s/ //;
329
330 return "$retval"
331}
332
Steven Rostedta57419b2010-11-02 15:13:54 -0400333sub set_value {
334 my ($lvalue, $rvalue) = @_;
335
336 if (defined($opt{$lvalue})) {
337 die "Error: Option $lvalue defined more than once!\n";
338 }
Steven Rostedt21a96792010-11-08 16:45:50 -0500339 if ($rvalue =~ /^\s*$/) {
340 delete $opt{$lvalue};
341 } else {
Steven Rostedt77d942c2011-05-20 13:36:58 -0400342 $rvalue = process_variables($rvalue);
Steven Rostedt21a96792010-11-08 16:45:50 -0500343 $opt{$lvalue} = $rvalue;
344 }
Steven Rostedta57419b2010-11-02 15:13:54 -0400345}
346
Steven Rostedt77d942c2011-05-20 13:36:58 -0400347sub set_variable {
348 my ($lvalue, $rvalue) = @_;
349
350 if ($rvalue =~ /^\s*$/) {
351 delete $variable{$lvalue};
352 } else {
353 $rvalue = process_variables($rvalue);
354 $variable{$lvalue} = $rvalue;
355 }
356}
357
Steven Rostedt2545eb62010-11-02 15:01:32 -0400358sub read_config {
359 my ($config) = @_;
360
361 open(IN, $config) || die "can't read file $config";
362
Steven Rostedta57419b2010-11-02 15:13:54 -0400363 my $name = $config;
364 $name =~ s,.*/(.*),$1,;
365
366 my $test_num = 0;
367 my $default = 1;
368 my $repeat = 1;
369 my $num_tests_set = 0;
370 my $skip = 0;
371 my $rest;
Steven Rostedt0df213c2011-06-14 20:51:37 -0400372 my $test_case = 0;
Steven Rostedta57419b2010-11-02 15:13:54 -0400373
Steven Rostedt2545eb62010-11-02 15:01:32 -0400374 while (<IN>) {
375
376 # ignore blank lines and comments
377 next if (/^\s*$/ || /\s*\#/);
378
Steven Rostedta57419b2010-11-02 15:13:54 -0400379 if (/^\s*TEST_START(.*)/) {
380
381 $rest = $1;
382
383 if ($num_tests_set) {
384 die "$name: $.: Can not specify both NUM_TESTS and TEST_START\n";
385 }
386
387 my $old_test_num = $test_num;
Steven Rostedte48c5292010-11-02 14:35:37 -0400388 my $old_repeat = $repeat;
Steven Rostedta57419b2010-11-02 15:13:54 -0400389
390 $test_num += $repeat;
391 $default = 0;
392 $repeat = 1;
393
394 if ($rest =~ /\s+SKIP(.*)/) {
395 $rest = $1;
396 $skip = 1;
397 } else {
Steven Rostedt0df213c2011-06-14 20:51:37 -0400398 $test_case = 1;
Steven Rostedta57419b2010-11-02 15:13:54 -0400399 $skip = 0;
400 }
401
402 if ($rest =~ /\s+ITERATE\s+(\d+)(.*)$/) {
403 $repeat = $1;
404 $rest = $2;
405 $repeat_tests{"$test_num"} = $repeat;
406 }
407
408 if ($rest =~ /\s+SKIP(.*)/) {
409 $rest = $1;
410 $skip = 1;
411 }
412
413 if ($rest !~ /^\s*$/) {
414 die "$name: $.: Gargbage found after TEST_START\n$_";
415 }
416
417 if ($skip) {
418 $test_num = $old_test_num;
Steven Rostedte48c5292010-11-02 14:35:37 -0400419 $repeat = $old_repeat;
Steven Rostedta57419b2010-11-02 15:13:54 -0400420 }
421
422 } elsif (/^\s*DEFAULTS(.*)$/) {
423 $default = 1;
424
425 $rest = $1;
426
427 if ($rest =~ /\s+SKIP(.*)/) {
428 $rest = $1;
429 $skip = 1;
430 } else {
431 $skip = 0;
432 }
433
434 if ($rest !~ /^\s*$/) {
435 die "$name: $.: Gargbage found after DEFAULTS\n$_";
436 }
437
438 } elsif (/^\s*([A-Z_\[\]\d]+)\s*=\s*(.*?)\s*$/) {
439
440 next if ($skip);
441
Steven Rostedt2545eb62010-11-02 15:01:32 -0400442 my $lvalue = $1;
443 my $rvalue = $2;
444
Steven Rostedta57419b2010-11-02 15:13:54 -0400445 if (!$default &&
446 ($lvalue eq "NUM_TESTS" ||
447 $lvalue eq "LOG_FILE" ||
448 $lvalue eq "CLEAR_LOG")) {
449 die "$name: $.: $lvalue must be set in DEFAULTS section\n";
Steven Rostedta75fece2010-11-02 14:58:27 -0400450 }
Steven Rostedta57419b2010-11-02 15:13:54 -0400451
452 if ($lvalue eq "NUM_TESTS") {
453 if ($test_num) {
454 die "$name: $.: Can not specify both NUM_TESTS and TEST_START\n";
455 }
456 if (!$default) {
457 die "$name: $.: NUM_TESTS must be set in default section\n";
458 }
459 $num_tests_set = 1;
460 }
461
462 if ($default || $lvalue =~ /\[\d+\]$/) {
463 set_value($lvalue, $rvalue);
464 } else {
465 my $val = "$lvalue\[$test_num\]";
466 set_value($val, $rvalue);
467
468 if ($repeat > 1) {
469 $repeats{$val} = $repeat;
470 }
471 }
Steven Rostedt77d942c2011-05-20 13:36:58 -0400472 } elsif (/^\s*([A-Z_\[\]\d]+)\s*:=\s*(.*?)\s*$/) {
473 next if ($skip);
474
475 my $lvalue = $1;
476 my $rvalue = $2;
477
478 # process config variables.
479 # Config variables are only active while reading the
480 # config and can be defined anywhere. They also ignore
481 # TEST_START and DEFAULTS, but are skipped if they are in
482 # on of these sections that have SKIP defined.
483 # The save variable can be
484 # defined multiple times and the new one simply overrides
485 # the prevous one.
486 set_variable($lvalue, $rvalue);
487
Steven Rostedta57419b2010-11-02 15:13:54 -0400488 } else {
489 die "$name: $.: Garbage found in config\n$_";
Steven Rostedt2545eb62010-11-02 15:01:32 -0400490 }
491 }
492
493 close(IN);
Steven Rostedta75fece2010-11-02 14:58:27 -0400494
Steven Rostedta57419b2010-11-02 15:13:54 -0400495 if ($test_num) {
496 $test_num += $repeat - 1;
497 $opt{"NUM_TESTS"} = $test_num;
498 }
499
Steven Rostedt8d1491b2010-11-18 15:39:48 -0500500 # make sure we have all mandatory configs
501 get_ktest_configs;
502
Steven Rostedt0df213c2011-06-14 20:51:37 -0400503 # was a test specified?
504 if (!$test_case) {
505 print "No test case specified.\n";
506 print "What test case would you like to run?\n";
507 my $ans = <STDIN>;
508 chomp $ans;
509 $default{"TEST_TYPE"} = $ans;
510 }
511
Steven Rostedta75fece2010-11-02 14:58:27 -0400512 # set any defaults
513
514 foreach my $default (keys %default) {
515 if (!defined($opt{$default})) {
516 $opt{$default} = $default{$default};
517 }
518 }
Steven Rostedt2545eb62010-11-02 15:01:32 -0400519}
520
Steven Rostedt23715c3c2011-06-13 11:03:34 -0400521sub __eval_option {
522 my ($option, $i) = @_;
523
524 # Add space to evaluate the character before $
525 $option = " $option";
526 my $retval = "";
527
528 while ($option =~ /(.*?[^\\])\$\{(.*?)\}(.*)/) {
529 my $start = $1;
530 my $var = $2;
531 my $end = $3;
532
533 # Append beginning of line
534 $retval = "$retval$start";
535
536 # If the iteration option OPT[$i] exists, then use that.
537 # otherwise see if the default OPT (without [$i]) exists.
538
539 my $o = "$var\[$i\]";
540
541 if (defined($opt{$o})) {
542 $o = $opt{$o};
543 $retval = "$retval$o";
544 } elsif (defined($opt{$var})) {
545 $o = $opt{$var};
546 $retval = "$retval$o";
547 } else {
548 $retval = "$retval\$\{$var\}";
549 }
550
551 $option = $end;
552 }
553
554 $retval = "$retval$option";
555
556 $retval =~ s/^ //;
557
558 return $retval;
559}
560
561sub eval_option {
562 my ($option, $i) = @_;
563
564 my $prev = "";
565
566 # Since an option can evaluate to another option,
567 # keep iterating until we do not evaluate any more
568 # options.
569 my $r = 0;
570 while ($prev ne $option) {
571 # Check for recursive evaluations.
572 # 100 deep should be more than enough.
573 if ($r++ > 100) {
574 die "Over 100 evaluations accurred with $option\n" .
575 "Check for recursive variables\n";
576 }
577 $prev = $option;
578 $option = __eval_option($option, $i);
579 }
580
581 return $option;
582}
583
Steven Rostedtd1e2f222010-11-08 16:39:57 -0500584sub _logit {
Steven Rostedt2545eb62010-11-02 15:01:32 -0400585 if (defined($opt{"LOG_FILE"})) {
586 open(OUT, ">> $opt{LOG_FILE}") or die "Can't write to $opt{LOG_FILE}";
587 print OUT @_;
588 close(OUT);
589 }
590}
591
Steven Rostedtd1e2f222010-11-08 16:39:57 -0500592sub logit {
593 if (defined($opt{"LOG_FILE"})) {
594 _logit @_;
595 } else {
596 print @_;
597 }
598}
599
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -0400600sub doprint {
601 print @_;
Steven Rostedtd1e2f222010-11-08 16:39:57 -0500602 _logit @_;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -0400603}
604
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400605sub run_command;
606
607sub reboot {
608 # try to reboot normally
Steven Rostedte48c5292010-11-02 14:35:37 -0400609 if (run_command $reboot) {
Steven Rostedt576f6272010-11-02 14:58:38 -0400610 if (defined($powercycle_after_reboot)) {
611 sleep $powercycle_after_reboot;
612 run_command "$power_cycle";
613 }
614 } else {
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400615 # nope? power cycle it.
Steven Rostedta75fece2010-11-02 14:58:27 -0400616 run_command "$power_cycle";
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400617 }
618}
619
Steven Rostedt576f6272010-11-02 14:58:38 -0400620sub do_not_reboot {
621 my $i = $iteration;
622
623 return $test_type eq "build" ||
624 ($test_type eq "patchcheck" && $opt{"PATCHCHECK_TYPE[$i]"} eq "build") ||
625 ($test_type eq "bisect" && $opt{"BISECT_TYPE[$i]"} eq "build");
626}
627
Steven Rostedt5c42fc52010-11-02 14:57:01 -0400628sub dodie {
Steven Rostedt5a391fb2010-11-02 14:57:43 -0400629 doprint "CRITICAL FAILURE... ", @_, "\n";
Steven Rostedt5c42fc52010-11-02 14:57:01 -0400630
Steven Rostedt576f6272010-11-02 14:58:38 -0400631 my $i = $iteration;
632
633 if ($reboot_on_error && !do_not_reboot) {
634
Steven Rostedt75c3fda72010-11-02 14:57:21 -0400635 doprint "REBOOTING\n";
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400636 reboot;
Steven Rostedt75c3fda72010-11-02 14:57:21 -0400637
Steven Rostedta75fece2010-11-02 14:58:27 -0400638 } elsif ($poweroff_on_error && defined($power_off)) {
Steven Rostedt5c42fc52010-11-02 14:57:01 -0400639 doprint "POWERING OFF\n";
Steven Rostedta75fece2010-11-02 14:58:27 -0400640 `$power_off`;
Steven Rostedt5c42fc52010-11-02 14:57:01 -0400641 }
Steven Rostedt75c3fda72010-11-02 14:57:21 -0400642
Steven Rostedtf80802c2011-03-07 13:18:47 -0500643 if (defined($opt{"LOG_FILE"})) {
644 print " See $opt{LOG_FILE} for more info.\n";
645 }
646
Steven Rostedt576f6272010-11-02 14:58:38 -0400647 die @_, "\n";
Steven Rostedt5c42fc52010-11-02 14:57:01 -0400648}
649
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400650sub open_console {
651 my ($fp) = @_;
652
653 my $flags;
654
Steven Rostedta75fece2010-11-02 14:58:27 -0400655 my $pid = open($fp, "$console|") or
656 dodie "Can't open console $console";
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400657
658 $flags = fcntl($fp, F_GETFL, 0) or
Steven Rostedt576f6272010-11-02 14:58:38 -0400659 dodie "Can't get flags for the socket: $!";
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400660 $flags = fcntl($fp, F_SETFL, $flags | O_NONBLOCK) or
Steven Rostedt576f6272010-11-02 14:58:38 -0400661 dodie "Can't set flags for the socket: $!";
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400662
663 return $pid;
664}
665
666sub close_console {
667 my ($fp, $pid) = @_;
668
669 doprint "kill child process $pid\n";
670 kill 2, $pid;
671
672 print "closing!\n";
673 close($fp);
674}
675
676sub start_monitor {
677 if ($monitor_cnt++) {
678 return;
679 }
680 $monitor_fp = \*MONFD;
681 $monitor_pid = open_console $monitor_fp;
Steven Rostedta75fece2010-11-02 14:58:27 -0400682
683 return;
684
685 open(MONFD, "Stop perl from warning about single use of MONFD");
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400686}
687
688sub end_monitor {
689 if (--$monitor_cnt) {
690 return;
691 }
692 close_console($monitor_fp, $monitor_pid);
693}
694
695sub wait_for_monitor {
696 my ($time) = @_;
697 my $line;
698
Steven Rostedta75fece2010-11-02 14:58:27 -0400699 doprint "** Wait for monitor to settle down **\n";
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400700
701 # read the monitor and wait for the system to calm down
702 do {
703 $line = wait_for_input($monitor_fp, $time);
Steven Rostedta75fece2010-11-02 14:58:27 -0400704 print "$line" if (defined($line));
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400705 } while (defined($line));
Steven Rostedta75fece2010-11-02 14:58:27 -0400706 print "** Monitor flushed **\n";
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400707}
708
Steven Rostedt2b7d9b22010-11-02 14:58:15 -0400709sub fail {
710
Steven Rostedta75fece2010-11-02 14:58:27 -0400711 if ($die_on_failure) {
Steven Rostedt2b7d9b22010-11-02 14:58:15 -0400712 dodie @_;
713 }
714
Steven Rostedta75fece2010-11-02 14:58:27 -0400715 doprint "FAILED\n";
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400716
Steven Rostedt576f6272010-11-02 14:58:38 -0400717 my $i = $iteration;
718
Steven Rostedta75fece2010-11-02 14:58:27 -0400719 # no need to reboot for just building.
Steven Rostedt576f6272010-11-02 14:58:38 -0400720 if (!do_not_reboot) {
Steven Rostedta75fece2010-11-02 14:58:27 -0400721 doprint "REBOOTING\n";
722 reboot;
723 start_monitor;
724 wait_for_monitor $sleep_time;
725 end_monitor;
726 }
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400727
Steven Rostedt9064af52011-06-13 10:38:48 -0400728 my $name = "";
729
730 if (defined($test_name)) {
731 $name = " ($test_name)";
732 }
733
Steven Rostedt576f6272010-11-02 14:58:38 -0400734 doprint "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n";
735 doprint "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n";
Steven Rostedt9064af52011-06-13 10:38:48 -0400736 doprint "KTEST RESULT: TEST $i$name Failed: ", @_, "\n";
Steven Rostedt576f6272010-11-02 14:58:38 -0400737 doprint "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n";
738 doprint "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n";
Steven Rostedta75fece2010-11-02 14:58:27 -0400739
740 return 1 if (!defined($store_failures));
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400741
742 my @t = localtime;
743 my $date = sprintf "%04d%02d%02d%02d%02d%02d",
744 1900+$t[5],$t[4],$t[3],$t[2],$t[1],$t[0];
745
Steven Rostedtcccae1a2010-11-09 12:21:32 -0500746 my $type = $build_type;
747 if ($type =~ /useconfig/) {
748 $type = "useconfig";
749 }
750
751 my $dir = "$machine-$test_type-$type-fail-$date";
Steven Rostedta75fece2010-11-02 14:58:27 -0400752 my $faildir = "$store_failures/$dir";
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400753
754 if (!-d $faildir) {
755 mkpath($faildir) or
Steven Rostedta75fece2010-11-02 14:58:27 -0400756 die "can't create $faildir";
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400757 }
Steven Rostedt51ad1dd2010-11-08 16:43:21 -0500758 if (-f "$output_config") {
759 cp "$output_config", "$faildir/config" or
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400760 die "failed to copy .config";
761 }
762 if (-f $buildlog) {
763 cp $buildlog, "$faildir/buildlog" or
764 die "failed to move $buildlog";
765 }
766 if (-f $dmesg) {
767 cp $dmesg, "$faildir/dmesg" or
768 die "failed to move $dmesg";
769 }
770
771 doprint "*** Saved info to $faildir ***\n";
772
Steven Rostedt2b7d9b22010-11-02 14:58:15 -0400773 return 1;
774}
775
Steven Rostedt2545eb62010-11-02 15:01:32 -0400776sub run_command {
777 my ($command) = @_;
Steven Rostedtd6ce2a02010-11-02 14:58:05 -0400778 my $dolog = 0;
779 my $dord = 0;
780 my $pid;
781
Steven Rostedte48c5292010-11-02 14:35:37 -0400782 $command =~ s/\$SSH_USER/$ssh_user/g;
783 $command =~ s/\$MACHINE/$machine/g;
784
Steven Rostedtd6ce2a02010-11-02 14:58:05 -0400785 doprint("$command ... ");
786
787 $pid = open(CMD, "$command 2>&1 |") or
Steven Rostedt2b7d9b22010-11-02 14:58:15 -0400788 (fail "unable to exec $command" and return 0);
Steven Rostedt2545eb62010-11-02 15:01:32 -0400789
790 if (defined($opt{"LOG_FILE"})) {
Steven Rostedtd6ce2a02010-11-02 14:58:05 -0400791 open(LOG, ">>$opt{LOG_FILE}") or
792 dodie "failed to write to log";
793 $dolog = 1;
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -0400794 }
795
796 if (defined($redirect)) {
Steven Rostedtd6ce2a02010-11-02 14:58:05 -0400797 open (RD, ">$redirect") or
798 dodie "failed to write to redirect $redirect";
799 $dord = 1;
Steven Rostedt2545eb62010-11-02 15:01:32 -0400800 }
801
Steven Rostedtd6ce2a02010-11-02 14:58:05 -0400802 while (<CMD>) {
803 print LOG if ($dolog);
804 print RD if ($dord);
805 }
Steven Rostedt2545eb62010-11-02 15:01:32 -0400806
Steven Rostedtd6ce2a02010-11-02 14:58:05 -0400807 waitpid($pid, 0);
Steven Rostedt2545eb62010-11-02 15:01:32 -0400808 my $failed = $?;
809
Steven Rostedtd6ce2a02010-11-02 14:58:05 -0400810 close(CMD);
811 close(LOG) if ($dolog);
812 close(RD) if ($dord);
813
Steven Rostedt2545eb62010-11-02 15:01:32 -0400814 if ($failed) {
815 doprint "FAILED!\n";
816 } else {
817 doprint "SUCCESS\n";
818 }
819
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -0400820 return !$failed;
821}
822
Steven Rostedte48c5292010-11-02 14:35:37 -0400823sub run_ssh {
824 my ($cmd) = @_;
825 my $cp_exec = $ssh_exec;
826
827 $cp_exec =~ s/\$SSH_COMMAND/$cmd/g;
828 return run_command "$cp_exec";
829}
830
831sub run_scp {
832 my ($src, $dst) = @_;
833 my $cp_scp = $scp_to_target;
834
835 $cp_scp =~ s/\$SRC_FILE/$src/g;
836 $cp_scp =~ s/\$DST_FILE/$dst/g;
837
838 return run_command "$cp_scp";
839}
840
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -0400841sub get_grub_index {
842
Steven Rostedta75fece2010-11-02 14:58:27 -0400843 if ($reboot_type ne "grub") {
844 return;
845 }
Steven Rostedt5a391fb2010-11-02 14:57:43 -0400846 return if (defined($grub_number));
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -0400847
848 doprint "Find grub menu ... ";
849 $grub_number = -1;
Steven Rostedte48c5292010-11-02 14:35:37 -0400850
851 my $ssh_grub = $ssh_exec;
852 $ssh_grub =~ s,\$SSH_COMMAND,cat /boot/grub/menu.lst,g;
853
854 open(IN, "$ssh_grub |")
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -0400855 or die "unable to get menu.lst";
Steven Rostedte48c5292010-11-02 14:35:37 -0400856
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -0400857 while (<IN>) {
Steven Rostedta75fece2010-11-02 14:58:27 -0400858 if (/^\s*title\s+$grub_menu\s*$/) {
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -0400859 $grub_number++;
860 last;
861 } elsif (/^\s*title\s/) {
862 $grub_number++;
863 }
864 }
865 close(IN);
866
Steven Rostedta75fece2010-11-02 14:58:27 -0400867 die "Could not find '$grub_menu' in /boot/grub/menu on $machine"
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -0400868 if ($grub_number < 0);
869 doprint "$grub_number\n";
Steven Rostedt2545eb62010-11-02 15:01:32 -0400870}
871
Steven Rostedt2545eb62010-11-02 15:01:32 -0400872sub wait_for_input
873{
874 my ($fp, $time) = @_;
875 my $rin;
876 my $ready;
877 my $line;
878 my $ch;
879
880 if (!defined($time)) {
881 $time = $timeout;
882 }
883
884 $rin = '';
885 vec($rin, fileno($fp), 1) = 1;
886 $ready = select($rin, undef, undef, $time);
887
888 $line = "";
889
890 # try to read one char at a time
891 while (sysread $fp, $ch, 1) {
892 $line .= $ch;
893 last if ($ch eq "\n");
894 }
895
896 if (!length($line)) {
897 return undef;
898 }
899
900 return $line;
901}
902
Steven Rostedt75c3fda72010-11-02 14:57:21 -0400903sub reboot_to {
Steven Rostedta75fece2010-11-02 14:58:27 -0400904 if ($reboot_type eq "grub") {
Steven Rostedt4da46da2011-06-01 23:25:13 -0400905 run_ssh "'(echo \"savedefault --default=$grub_number --once\" | grub --batch && reboot)'";
Steven Rostedta75fece2010-11-02 14:58:27 -0400906 return;
907 }
908
909 run_command "$reboot_script";
Steven Rostedt2545eb62010-11-02 15:01:32 -0400910}
911
Steven Rostedta57419b2010-11-02 15:13:54 -0400912sub get_sha1 {
913 my ($commit) = @_;
914
915 doprint "git rev-list --max-count=1 $commit ... ";
916 my $sha1 = `git rev-list --max-count=1 $commit`;
917 my $ret = $?;
918
919 logit $sha1;
920
921 if ($ret) {
922 doprint "FAILED\n";
923 dodie "Failed to get git $commit";
924 }
925
926 print "SUCCESS\n";
927
928 chomp $sha1;
929
930 return $sha1;
931}
932
Steven Rostedt5a391fb2010-11-02 14:57:43 -0400933sub monitor {
Steven Rostedt2545eb62010-11-02 15:01:32 -0400934 my $booted = 0;
935 my $bug = 0;
Steven Rostedt5c42fc52010-11-02 14:57:01 -0400936 my $skip_call_trace = 0;
Steven Rostedt2b7d9b22010-11-02 14:58:15 -0400937 my $loops;
Steven Rostedt2545eb62010-11-02 15:01:32 -0400938
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400939 wait_for_monitor 5;
Steven Rostedt2545eb62010-11-02 15:01:32 -0400940
941 my $line;
942 my $full_line = "";
943
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400944 open(DMESG, "> $dmesg") or
945 die "unable to write to $dmesg";
Steven Rostedt2545eb62010-11-02 15:01:32 -0400946
Steven Rostedt75c3fda72010-11-02 14:57:21 -0400947 reboot_to;
Steven Rostedt2545eb62010-11-02 15:01:32 -0400948
Steven Rostedt1c8a6172010-11-09 12:55:40 -0500949 my $success_start;
950 my $failure_start;
Steven Rostedt2d01b262011-03-08 09:47:54 -0500951 my $monitor_start = time;
952 my $done = 0;
Steven Rostedtf1a5b962011-06-13 10:30:00 -0400953 my $version_found = 0;
Steven Rostedt1c8a6172010-11-09 12:55:40 -0500954
Steven Rostedt2d01b262011-03-08 09:47:54 -0500955 while (!$done) {
Steven Rostedt2545eb62010-11-02 15:01:32 -0400956
Steven Rostedtecaf8e52011-06-13 10:48:10 -0400957 if ($bug && defined($stop_after_failure) &&
958 $stop_after_failure >= 0) {
959 my $time = $stop_after_failure - (time - $failure_start);
960 $line = wait_for_input($monitor_fp, $time);
961 if (!defined($line)) {
962 doprint "bug timed out after $booted_timeout seconds\n";
963 doprint "Test forced to stop after $stop_after_failure seconds after failure\n";
964 last;
965 }
966 } elsif ($booted) {
Steven Rostedta75fece2010-11-02 14:58:27 -0400967 $line = wait_for_input($monitor_fp, $booted_timeout);
Steven Rostedtcd4f1d52011-06-13 10:26:27 -0400968 if (!defined($line)) {
969 my $s = $booted_timeout == 1 ? "" : "s";
970 doprint "Successful boot found: break after $booted_timeout second$s\n";
971 last;
972 }
Steven Rostedt2b7d9b22010-11-02 14:58:15 -0400973 } else {
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400974 $line = wait_for_input($monitor_fp);
Steven Rostedtcd4f1d52011-06-13 10:26:27 -0400975 if (!defined($line)) {
976 my $s = $timeout == 1 ? "" : "s";
977 doprint "Timed out after $timeout second$s\n";
978 last;
979 }
Steven Rostedt2b7d9b22010-11-02 14:58:15 -0400980 }
Steven Rostedt2545eb62010-11-02 15:01:32 -0400981
Steven Rostedt2545eb62010-11-02 15:01:32 -0400982 doprint $line;
Steven Rostedt7faafbd2010-11-02 14:58:22 -0400983 print DMESG $line;
Steven Rostedt2545eb62010-11-02 15:01:32 -0400984
985 # we are not guaranteed to get a full line
986 $full_line .= $line;
987
Steven Rostedta75fece2010-11-02 14:58:27 -0400988 if ($full_line =~ /$success_line/) {
Steven Rostedt2545eb62010-11-02 15:01:32 -0400989 $booted = 1;
Steven Rostedt1c8a6172010-11-09 12:55:40 -0500990 $success_start = time;
991 }
992
993 if ($booted && defined($stop_after_success) &&
994 $stop_after_success >= 0) {
995 my $now = time;
996 if ($now - $success_start >= $stop_after_success) {
997 doprint "Test forced to stop after $stop_after_success seconds after success\n";
998 last;
999 }
Steven Rostedt2545eb62010-11-02 15:01:32 -04001000 }
1001
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001002 if ($full_line =~ /\[ backtrace testing \]/) {
1003 $skip_call_trace = 1;
1004 }
1005
Steven Rostedt2545eb62010-11-02 15:01:32 -04001006 if ($full_line =~ /call trace:/i) {
Steven Rostedt46519202011-03-08 09:40:31 -05001007 if (!$bug && !$skip_call_trace) {
Steven Rostedt1c8a6172010-11-09 12:55:40 -05001008 $bug = 1;
1009 $failure_start = time;
1010 }
1011 }
1012
1013 if ($bug && defined($stop_after_failure) &&
1014 $stop_after_failure >= 0) {
1015 my $now = time;
1016 if ($now - $failure_start >= $stop_after_failure) {
1017 doprint "Test forced to stop after $stop_after_failure seconds after failure\n";
1018 last;
1019 }
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001020 }
1021
1022 if ($full_line =~ /\[ end of backtrace testing \]/) {
1023 $skip_call_trace = 0;
1024 }
1025
1026 if ($full_line =~ /Kernel panic -/) {
Steven Rostedt10abf112011-03-07 13:21:00 -05001027 $failure_start = time;
Steven Rostedt2545eb62010-11-02 15:01:32 -04001028 $bug = 1;
1029 }
1030
Steven Rostedtf1a5b962011-06-13 10:30:00 -04001031 # Detect triple faults by testing the banner
1032 if ($full_line =~ /\bLinux version (\S+).*\n/) {
1033 if ($1 eq $version) {
1034 $version_found = 1;
1035 } elsif ($version_found && $detect_triplefault) {
1036 # We already booted into the kernel we are testing,
1037 # but now we booted into another kernel?
1038 # Consider this a triple fault.
1039 doprint "Aleady booted in Linux kernel $version, but now\n";
1040 doprint "we booted into Linux kernel $1.\n";
1041 doprint "Assuming that this is a triple fault.\n";
1042 doprint "To disable this: set DETECT_TRIPLE_FAULT to 0\n";
1043 last;
1044 }
1045 }
1046
Steven Rostedt2545eb62010-11-02 15:01:32 -04001047 if ($line =~ /\n/) {
1048 $full_line = "";
1049 }
Steven Rostedt2d01b262011-03-08 09:47:54 -05001050
1051 if ($stop_test_after > 0 && !$booted && !$bug) {
1052 if (time - $monitor_start > $stop_test_after) {
Steven Rostedt4d62bf52011-05-20 09:14:35 -04001053 doprint "STOP_TEST_AFTER ($stop_test_after seconds) timed out\n";
Steven Rostedt2d01b262011-03-08 09:47:54 -05001054 $done = 1;
1055 }
1056 }
Steven Rostedt2545eb62010-11-02 15:01:32 -04001057 }
1058
Steven Rostedt7faafbd2010-11-02 14:58:22 -04001059 close(DMESG);
Steven Rostedt2545eb62010-11-02 15:01:32 -04001060
Steven Rostedt2545eb62010-11-02 15:01:32 -04001061 if ($bug) {
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04001062 return 0 if ($in_bisect);
Steven Rostedt576f6272010-11-02 14:58:38 -04001063 fail "failed - got a bug report" and return 0;
Steven Rostedt2545eb62010-11-02 15:01:32 -04001064 }
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001065
Steven Rostedta75fece2010-11-02 14:58:27 -04001066 if (!$booted) {
1067 return 0 if ($in_bisect);
Steven Rostedt576f6272010-11-02 14:58:38 -04001068 fail "failed - never got a boot prompt." and return 0;
Steven Rostedta75fece2010-11-02 14:58:27 -04001069 }
1070
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04001071 return 1;
Steven Rostedt2545eb62010-11-02 15:01:32 -04001072}
1073
Steven Rostedtdb05cfe2011-06-13 11:09:22 -04001074sub do_post_install {
1075
1076 return if (!defined($post_install));
1077
1078 my $cp_post_install = $post_install;
1079 $cp_post_install =~ s/\$KERNEL_VERSION/$version/g;
1080 run_command "$cp_post_install" or
1081 dodie "Failed to run post install";
1082}
1083
Steven Rostedt2545eb62010-11-02 15:01:32 -04001084sub install {
1085
Steven Rostedte48c5292010-11-02 14:35:37 -04001086 run_scp "$outputdir/$build_target", "$target_image" or
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001087 dodie "failed to copy image";
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001088
1089 my $install_mods = 0;
1090
1091 # should we process modules?
1092 $install_mods = 0;
Steven Rostedt51ad1dd2010-11-08 16:43:21 -05001093 open(IN, "$output_config") or dodie("Can't read config file");
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001094 while (<IN>) {
1095 if (/CONFIG_MODULES(=y)?/) {
1096 $install_mods = 1 if (defined($1));
1097 last;
1098 }
1099 }
1100 close(IN);
1101
1102 if (!$install_mods) {
Steven Rostedtdb05cfe2011-06-13 11:09:22 -04001103 do_post_install;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001104 doprint "No modules needed\n";
1105 return;
Steven Rostedt2545eb62010-11-02 15:01:32 -04001106 }
1107
Steven Rostedta75fece2010-11-02 14:58:27 -04001108 run_command "$make INSTALL_MOD_PATH=$tmpdir modules_install" or
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001109 dodie "Failed to install modules";
Steven Rostedt2545eb62010-11-02 15:01:32 -04001110
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001111 my $modlib = "/lib/modules/$version";
Steven Rostedta57419b2010-11-02 15:13:54 -04001112 my $modtar = "ktest-mods.tar.bz2";
Steven Rostedt2545eb62010-11-02 15:01:32 -04001113
Steven Rostedte48c5292010-11-02 14:35:37 -04001114 run_ssh "rm -rf $modlib" or
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001115 dodie "failed to remove old mods: $modlib";
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001116
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001117 # would be nice if scp -r did not follow symbolic links
Steven Rostedta75fece2010-11-02 14:58:27 -04001118 run_command "cd $tmpdir && tar -cjf $modtar lib/modules/$version" or
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001119 dodie "making tarball";
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001120
Steven Rostedte48c5292010-11-02 14:35:37 -04001121 run_scp "$tmpdir/$modtar", "/tmp" or
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001122 dodie "failed to copy modules";
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001123
Steven Rostedta75fece2010-11-02 14:58:27 -04001124 unlink "$tmpdir/$modtar";
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001125
Steven Rostedte7b13442011-06-14 20:44:36 -04001126 run_ssh "'(cd / && tar xjf /tmp/$modtar)'" or
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001127 dodie "failed to tar modules";
Steven Rostedt2545eb62010-11-02 15:01:32 -04001128
Steven Rostedte48c5292010-11-02 14:35:37 -04001129 run_ssh "rm -f /tmp/$modtar";
Steven Rostedt8b37ca82010-11-02 14:58:33 -04001130
Steven Rostedtdb05cfe2011-06-13 11:09:22 -04001131 do_post_install;
Steven Rostedt2545eb62010-11-02 15:01:32 -04001132}
1133
Steven Rostedtddf607e2011-06-14 20:49:13 -04001134sub get_version {
1135 # get the release name
1136 doprint "$make kernelrelease ... ";
1137 $version = `$make kernelrelease | tail -1`;
1138 chomp($version);
1139 doprint "$version\n";
1140}
1141
1142sub start_monitor_and_boot {
1143 get_grub_index;
1144 get_version;
1145 install;
1146
1147 start_monitor;
1148 return monitor;
1149}
1150
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04001151sub check_buildlog {
1152 my ($patch) = @_;
1153
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04001154 my @files = `git show $patch | diffstat -l`;
1155
1156 open(IN, "git show $patch |") or
1157 dodie "failed to show $patch";
1158 while (<IN>) {
1159 if (m,^--- a/(.*),) {
1160 chomp $1;
1161 $files[$#files] = $1;
1162 }
1163 }
1164 close(IN);
1165
1166 open(IN, $buildlog) or dodie "Can't open $buildlog";
1167 while (<IN>) {
1168 if (/^\s*(.*?):.*(warning|error)/) {
1169 my $err = $1;
1170 foreach my $file (@files) {
Steven Rostedta75fece2010-11-02 14:58:27 -04001171 my $fullpath = "$builddir/$file";
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04001172 if ($file eq $err || $fullpath eq $err) {
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04001173 fail "$file built with warnings" and return 0;
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04001174 }
1175 }
1176 }
1177 }
1178 close(IN);
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04001179
1180 return 1;
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04001181}
1182
Steven Rostedtfcb3f162011-06-13 10:40:58 -04001183sub apply_min_config {
1184 my $outconfig = "$output_config.new";
Steven Rostedt612b9e92011-03-07 13:27:43 -05001185
Steven Rostedtfcb3f162011-06-13 10:40:58 -04001186 # Read the config file and remove anything that
1187 # is in the force_config hash (from minconfig and others)
1188 # then add the force config back.
1189
1190 doprint "Applying minimum configurations into $output_config.new\n";
1191
1192 open (OUT, ">$outconfig") or
1193 dodie "Can't create $outconfig";
1194
1195 if (-f $output_config) {
1196 open (IN, $output_config) or
1197 dodie "Failed to open $output_config";
1198 while (<IN>) {
1199 if (/^(# )?(CONFIG_[^\s=]*)/) {
1200 next if (defined($force_config{$2}));
1201 }
1202 print OUT;
1203 }
1204 close IN;
1205 }
1206 foreach my $config (keys %force_config) {
1207 print OUT "$force_config{$config}\n";
1208 }
1209 close OUT;
1210
1211 run_command "mv $outconfig $output_config";
1212}
1213
1214sub make_oldconfig {
1215
Steven Rostedt4c4ab122011-07-15 21:16:17 -04001216 my @force_list = keys %force_config;
1217
1218 if ($#force_list >= 0) {
1219 apply_min_config;
1220 }
Steven Rostedtfcb3f162011-06-13 10:40:58 -04001221
1222 if (!run_command "$make oldnoconfig") {
Steven Rostedt612b9e92011-03-07 13:27:43 -05001223 # Perhaps oldnoconfig doesn't exist in this version of the kernel
1224 # try a yes '' | oldconfig
1225 doprint "oldnoconfig failed, trying yes '' | make oldconfig\n";
Steven Rostedtfcb3f162011-06-13 10:40:58 -04001226 run_command "yes '' | $make oldconfig" or
Steven Rostedt612b9e92011-03-07 13:27:43 -05001227 dodie "failed make config oldconfig";
1228 }
1229}
1230
Steven Rostedtfcb3f162011-06-13 10:40:58 -04001231# read a config file and use this to force new configs.
1232sub load_force_config {
1233 my ($config) = @_;
1234
1235 open(IN, $config) or
1236 dodie "failed to read $config";
1237 while (<IN>) {
1238 chomp;
1239 if (/^(CONFIG[^\s=]*)(\s*=.*)/) {
1240 $force_config{$1} = $_;
1241 } elsif (/^# (CONFIG_\S*) is not set/) {
1242 $force_config{$1} = $_;
1243 }
1244 }
1245 close IN;
1246}
1247
Steven Rostedt2545eb62010-11-02 15:01:32 -04001248sub build {
1249 my ($type) = @_;
1250
Steven Rostedt7faafbd2010-11-02 14:58:22 -04001251 unlink $buildlog;
1252
Steven Rostedt0bd6c1a2011-06-14 20:39:31 -04001253 if (defined($pre_build)) {
1254 my $ret = run_command $pre_build;
1255 if (!$ret && defined($pre_build_die) &&
1256 $pre_build_die) {
1257 dodie "failed to pre_build\n";
1258 }
1259 }
1260
Steven Rostedt75c3fda72010-11-02 14:57:21 -04001261 if ($type =~ /^useconfig:(.*)/) {
Steven Rostedt51ad1dd2010-11-08 16:43:21 -05001262 run_command "cp $1 $output_config" or
Steven Rostedt75c3fda72010-11-02 14:57:21 -04001263 dodie "could not copy $1 to .config";
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001264
Steven Rostedt75c3fda72010-11-02 14:57:21 -04001265 $type = "oldconfig";
1266 }
1267
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001268 # old config can ask questions
1269 if ($type eq "oldconfig") {
Steven Rostedt9386c6a2010-11-08 16:35:48 -05001270 $type = "oldnoconfig";
Steven Rostedt75c3fda72010-11-02 14:57:21 -04001271
1272 # allow for empty configs
Steven Rostedt51ad1dd2010-11-08 16:43:21 -05001273 run_command "touch $output_config";
Steven Rostedt75c3fda72010-11-02 14:57:21 -04001274
Steven Rostedt51ad1dd2010-11-08 16:43:21 -05001275 run_command "mv $output_config $outputdir/config_temp" or
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001276 dodie "moving .config";
Steven Rostedt2545eb62010-11-02 15:01:32 -04001277
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001278 if (!$noclean && !run_command "$make mrproper") {
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001279 dodie "make mrproper";
1280 }
1281
Steven Rostedt51ad1dd2010-11-08 16:43:21 -05001282 run_command "mv $outputdir/config_temp $output_config" or
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001283 dodie "moving config_temp";
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001284
1285 } elsif (!$noclean) {
Steven Rostedt51ad1dd2010-11-08 16:43:21 -05001286 unlink "$output_config";
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001287 run_command "$make mrproper" or
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001288 dodie "make mrproper";
Steven Rostedt5c42fc52010-11-02 14:57:01 -04001289 }
Steven Rostedt2545eb62010-11-02 15:01:32 -04001290
1291 # add something to distinguish this build
Steven Rostedta75fece2010-11-02 14:58:27 -04001292 open(OUT, "> $outputdir/localversion") or dodie("Can't make localversion file");
1293 print OUT "$localversion\n";
Steven Rostedt2545eb62010-11-02 15:01:32 -04001294 close(OUT);
1295
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001296 if (defined($minconfig)) {
Steven Rostedtfcb3f162011-06-13 10:40:58 -04001297 load_force_config($minconfig);
Steven Rostedt2545eb62010-11-02 15:01:32 -04001298 }
1299
Steven Rostedtfcb3f162011-06-13 10:40:58 -04001300 if ($type ne "oldnoconfig") {
1301 run_command "$make $type" or
Steven Rostedt612b9e92011-03-07 13:27:43 -05001302 dodie "failed make config";
1303 }
Steven Rostedtfcb3f162011-06-13 10:40:58 -04001304 # Run old config regardless, to enforce min configurations
1305 make_oldconfig;
Steven Rostedt2545eb62010-11-02 15:01:32 -04001306
Steven Rostedta75fece2010-11-02 14:58:27 -04001307 $redirect = "$buildlog";
Steven Rostedt0bd6c1a2011-06-14 20:39:31 -04001308 my $build_ret = run_command "$make $build_options";
1309 undef $redirect;
1310
1311 if (defined($post_build)) {
1312 my $ret = run_command $post_build;
1313 if (!$ret && defined($post_build_die) &&
1314 $post_build_die) {
1315 dodie "failed to post_build\n";
1316 }
1317 }
1318
1319 if (!$build_ret) {
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001320 # bisect may need this to pass
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04001321 return 0 if ($in_bisect);
1322 fail "failed build" and return 0;
Steven Rostedt2545eb62010-11-02 15:01:32 -04001323 }
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001324
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04001325 return 1;
Steven Rostedt2545eb62010-11-02 15:01:32 -04001326}
1327
Steven Rostedt75c3fda72010-11-02 14:57:21 -04001328sub halt {
Steven Rostedte48c5292010-11-02 14:35:37 -04001329 if (!run_ssh "halt" or defined($power_off)) {
Steven Rostedt576f6272010-11-02 14:58:38 -04001330 if (defined($poweroff_after_halt)) {
1331 sleep $poweroff_after_halt;
1332 run_command "$power_off";
1333 }
1334 } else {
Steven Rostedt75c3fda72010-11-02 14:57:21 -04001335 # nope? the zap it!
Steven Rostedta75fece2010-11-02 14:58:27 -04001336 run_command "$power_off";
Steven Rostedt75c3fda72010-11-02 14:57:21 -04001337 }
1338}
1339
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001340sub success {
1341 my ($i) = @_;
1342
Steven Rostedte48c5292010-11-02 14:35:37 -04001343 $successes++;
1344
Steven Rostedt9064af52011-06-13 10:38:48 -04001345 my $name = "";
1346
1347 if (defined($test_name)) {
1348 $name = " ($test_name)";
1349 }
1350
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001351 doprint "\n\n*******************************************\n";
1352 doprint "*******************************************\n";
Steven Rostedt9064af52011-06-13 10:38:48 -04001353 doprint "KTEST RESULT: TEST $i$name SUCCESS!!!! **\n";
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001354 doprint "*******************************************\n";
1355 doprint "*******************************************\n";
1356
Steven Rostedt576f6272010-11-02 14:58:38 -04001357 if ($i != $opt{"NUM_TESTS"} && !do_not_reboot) {
Steven Rostedta75fece2010-11-02 14:58:27 -04001358 doprint "Reboot and wait $sleep_time seconds\n";
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001359 reboot;
Steven Rostedt7faafbd2010-11-02 14:58:22 -04001360 start_monitor;
Steven Rostedta75fece2010-11-02 14:58:27 -04001361 wait_for_monitor $sleep_time;
Steven Rostedt7faafbd2010-11-02 14:58:22 -04001362 end_monitor;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001363 }
1364}
1365
Steven Rostedtc960bb92011-03-08 09:22:39 -05001366sub answer_bisect {
1367 for (;;) {
1368 doprint "Pass or fail? [p/f]";
1369 my $ans = <STDIN>;
1370 chomp $ans;
1371 if ($ans eq "p" || $ans eq "P") {
1372 return 1;
1373 } elsif ($ans eq "f" || $ans eq "F") {
1374 return 0;
1375 } else {
1376 print "Please answer 'P' or 'F'\n";
1377 }
1378 }
1379}
1380
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001381sub child_run_test {
Steven Rostedt7faafbd2010-11-02 14:58:22 -04001382 my $failed = 0;
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001383
Steven Rostedt7faafbd2010-11-02 14:58:22 -04001384 # child should have no power
Steven Rostedta75fece2010-11-02 14:58:27 -04001385 $reboot_on_error = 0;
1386 $poweroff_on_error = 0;
1387 $die_on_failure = 1;
Steven Rostedt7faafbd2010-11-02 14:58:22 -04001388
1389 run_command $run_test or $failed = 1;
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001390 exit $failed;
1391}
1392
1393my $child_done;
1394
1395sub child_finished {
1396 $child_done = 1;
1397}
1398
1399sub do_run_test {
1400 my $child_pid;
1401 my $child_exit;
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001402 my $line;
1403 my $full_line;
1404 my $bug = 0;
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001405
Steven Rostedt7faafbd2010-11-02 14:58:22 -04001406 wait_for_monitor 1;
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001407
Steven Rostedt7faafbd2010-11-02 14:58:22 -04001408 doprint "run test $run_test\n";
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001409
1410 $child_done = 0;
1411
1412 $SIG{CHLD} = qw(child_finished);
1413
1414 $child_pid = fork;
1415
1416 child_run_test if (!$child_pid);
1417
1418 $full_line = "";
1419
1420 do {
Steven Rostedt7faafbd2010-11-02 14:58:22 -04001421 $line = wait_for_input($monitor_fp, 1);
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001422 if (defined($line)) {
1423
1424 # we are not guaranteed to get a full line
1425 $full_line .= $line;
Steven Rostedt8ea0e062011-03-08 09:44:35 -05001426 doprint $line;
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001427
1428 if ($full_line =~ /call trace:/i) {
1429 $bug = 1;
1430 }
1431
1432 if ($full_line =~ /Kernel panic -/) {
1433 $bug = 1;
1434 }
1435
1436 if ($line =~ /\n/) {
1437 $full_line = "";
1438 }
1439 }
1440 } while (!$child_done && !$bug);
1441
1442 if ($bug) {
Steven Rostedt8ea0e062011-03-08 09:44:35 -05001443 my $failure_start = time;
1444 my $now;
1445 do {
1446 $line = wait_for_input($monitor_fp, 1);
1447 if (defined($line)) {
1448 doprint $line;
1449 }
1450 $now = time;
1451 if ($now - $failure_start >= $stop_after_failure) {
1452 last;
1453 }
1454 } while (defined($line));
1455
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001456 doprint "Detected kernel crash!\n";
1457 # kill the child with extreme prejudice
1458 kill 9, $child_pid;
1459 }
1460
1461 waitpid $child_pid, 0;
1462 $child_exit = $?;
1463
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001464 if ($bug || $child_exit) {
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04001465 return 0 if $in_bisect;
1466 fail "test failed" and return 0;
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001467 }
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04001468 return 1;
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001469}
1470
Steven Rostedta75fece2010-11-02 14:58:27 -04001471sub run_git_bisect {
1472 my ($command) = @_;
1473
1474 doprint "$command ... ";
1475
1476 my $output = `$command 2>&1`;
1477 my $ret = $?;
1478
1479 logit $output;
1480
1481 if ($ret) {
1482 doprint "FAILED\n";
1483 dodie "Failed to git bisect";
1484 }
1485
1486 doprint "SUCCESS\n";
1487 if ($output =~ m/^(Bisecting: .*\(roughly \d+ steps?\))\s+\[([[:xdigit:]]+)\]/) {
1488 doprint "$1 [$2]\n";
1489 } elsif ($output =~ m/^([[:xdigit:]]+) is the first bad commit/) {
1490 $bisect_bad = $1;
1491 doprint "Found bad commit... $1\n";
1492 return 0;
1493 } else {
1494 # we already logged it, just print it now.
1495 print $output;
1496 }
1497
1498 return 1;
1499}
1500
Steven Rostedtc23dca72011-03-08 09:26:31 -05001501sub bisect_reboot {
1502 doprint "Reboot and sleep $bisect_sleep_time seconds\n";
1503 reboot;
1504 start_monitor;
1505 wait_for_monitor $bisect_sleep_time;
1506 end_monitor;
1507}
1508
1509# returns 1 on success, 0 on failure, -1 on skip
Steven Rostedt0a05c762010-11-08 11:14:10 -05001510sub run_bisect_test {
1511 my ($type, $buildtype) = @_;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001512
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04001513 my $failed = 0;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001514 my $result;
1515 my $output;
1516 my $ret;
1517
Steven Rostedt0a05c762010-11-08 11:14:10 -05001518 $in_bisect = 1;
1519
1520 build $buildtype or $failed = 1;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001521
1522 if ($type ne "build") {
Steven Rostedtc23dca72011-03-08 09:26:31 -05001523 if ($failed && $bisect_skip) {
1524 $in_bisect = 0;
1525 return -1;
1526 }
Steven Rostedt7faafbd2010-11-02 14:58:22 -04001527 dodie "Failed on build" if $failed;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001528
1529 # Now boot the box
Steven Rostedtddf607e2011-06-14 20:49:13 -04001530 start_monitor_and_boot or $failed = 1;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001531
1532 if ($type ne "boot") {
Steven Rostedtc23dca72011-03-08 09:26:31 -05001533 if ($failed && $bisect_skip) {
1534 end_monitor;
1535 bisect_reboot;
1536 $in_bisect = 0;
1537 return -1;
1538 }
Steven Rostedt7faafbd2010-11-02 14:58:22 -04001539 dodie "Failed on boot" if $failed;
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001540
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04001541 do_run_test or $failed = 1;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001542 }
Steven Rostedt7faafbd2010-11-02 14:58:22 -04001543 end_monitor;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001544 }
1545
1546 if ($failed) {
Steven Rostedt0a05c762010-11-08 11:14:10 -05001547 $result = 0;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001548 } else {
Steven Rostedt0a05c762010-11-08 11:14:10 -05001549 $result = 1;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001550 }
Steven Rostedt4025bc62011-05-20 09:16:29 -04001551
1552 # reboot the box to a kernel we can ssh to
1553 if ($type ne "build") {
1554 bisect_reboot;
1555 }
Steven Rostedt0a05c762010-11-08 11:14:10 -05001556 $in_bisect = 0;
1557
1558 return $result;
1559}
1560
1561sub run_bisect {
1562 my ($type) = @_;
1563 my $buildtype = "oldconfig";
1564
1565 # We should have a minconfig to use?
1566 if (defined($minconfig)) {
1567 $buildtype = "useconfig:$minconfig";
1568 }
1569
1570 my $ret = run_bisect_test $type, $buildtype;
1571
Steven Rostedtc960bb92011-03-08 09:22:39 -05001572 if ($bisect_manual) {
1573 $ret = answer_bisect;
1574 }
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001575
Steven Rostedtd6ce2a02010-11-02 14:58:05 -04001576 # Are we looking for where it worked, not failed?
1577 if ($reverse_bisect) {
Steven Rostedt0a05c762010-11-08 11:14:10 -05001578 $ret = !$ret;
Steven Rostedtd6ce2a02010-11-02 14:58:05 -04001579 }
1580
Steven Rostedtc23dca72011-03-08 09:26:31 -05001581 if ($ret > 0) {
Steven Rostedt0a05c762010-11-08 11:14:10 -05001582 return "good";
Steven Rostedtc23dca72011-03-08 09:26:31 -05001583 } elsif ($ret == 0) {
Steven Rostedt0a05c762010-11-08 11:14:10 -05001584 return "bad";
Steven Rostedtc23dca72011-03-08 09:26:31 -05001585 } elsif ($bisect_skip) {
1586 doprint "HIT A BAD COMMIT ... SKIPPING\n";
1587 return "skip";
Steven Rostedt0a05c762010-11-08 11:14:10 -05001588 }
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001589}
1590
1591sub bisect {
1592 my ($i) = @_;
1593
1594 my $result;
1595
1596 die "BISECT_GOOD[$i] not defined\n" if (!defined($opt{"BISECT_GOOD[$i]"}));
1597 die "BISECT_BAD[$i] not defined\n" if (!defined($opt{"BISECT_BAD[$i]"}));
1598 die "BISECT_TYPE[$i] not defined\n" if (!defined($opt{"BISECT_TYPE[$i]"}));
1599
1600 my $good = $opt{"BISECT_GOOD[$i]"};
1601 my $bad = $opt{"BISECT_BAD[$i]"};
1602 my $type = $opt{"BISECT_TYPE[$i]"};
Steven Rostedta75fece2010-11-02 14:58:27 -04001603 my $start = $opt{"BISECT_START[$i]"};
1604 my $replay = $opt{"BISECT_REPLAY[$i]"};
Steven Rostedt3410f6f2011-03-08 09:38:12 -05001605 my $start_files = $opt{"BISECT_FILES[$i]"};
1606
1607 if (defined($start_files)) {
1608 $start_files = " -- " . $start_files;
1609 } else {
1610 $start_files = "";
1611 }
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001612
Steven Rostedta57419b2010-11-02 15:13:54 -04001613 # convert to true sha1's
1614 $good = get_sha1($good);
1615 $bad = get_sha1($bad);
1616
Steven Rostedtd6ce2a02010-11-02 14:58:05 -04001617 if (defined($opt{"BISECT_REVERSE[$i]"}) &&
1618 $opt{"BISECT_REVERSE[$i]"} == 1) {
1619 doprint "Performing a reverse bisect (bad is good, good is bad!)\n";
1620 $reverse_bisect = 1;
1621 } else {
1622 $reverse_bisect = 0;
1623 }
1624
Steven Rostedt5a391fb2010-11-02 14:57:43 -04001625 # Can't have a test without having a test to run
1626 if ($type eq "test" && !defined($run_test)) {
1627 $type = "boot";
1628 }
1629
Steven Rostedta75fece2010-11-02 14:58:27 -04001630 my $check = $opt{"BISECT_CHECK[$i]"};
1631 if (defined($check) && $check ne "0") {
1632
1633 # get current HEAD
Steven Rostedta57419b2010-11-02 15:13:54 -04001634 my $head = get_sha1("HEAD");
Steven Rostedta75fece2010-11-02 14:58:27 -04001635
1636 if ($check ne "good") {
1637 doprint "TESTING BISECT BAD [$bad]\n";
1638 run_command "git checkout $bad" or
1639 die "Failed to checkout $bad";
1640
1641 $result = run_bisect $type;
1642
1643 if ($result ne "bad") {
1644 fail "Tested BISECT_BAD [$bad] and it succeeded" and return 0;
1645 }
1646 }
1647
1648 if ($check ne "bad") {
1649 doprint "TESTING BISECT GOOD [$good]\n";
1650 run_command "git checkout $good" or
1651 die "Failed to checkout $good";
1652
1653 $result = run_bisect $type;
1654
1655 if ($result ne "good") {
1656 fail "Tested BISECT_GOOD [$good] and it failed" and return 0;
1657 }
1658 }
1659
1660 # checkout where we started
1661 run_command "git checkout $head" or
1662 die "Failed to checkout $head";
1663 }
1664
Steven Rostedt3410f6f2011-03-08 09:38:12 -05001665 run_command "git bisect start$start_files" or
Steven Rostedta75fece2010-11-02 14:58:27 -04001666 dodie "could not start bisect";
1667
1668 run_command "git bisect good $good" or
1669 dodie "could not set bisect good to $good";
1670
1671 run_git_bisect "git bisect bad $bad" or
1672 dodie "could not set bisect bad to $bad";
1673
1674 if (defined($replay)) {
1675 run_command "git bisect replay $replay" or
1676 dodie "failed to run replay";
1677 }
1678
1679 if (defined($start)) {
1680 run_command "git checkout $start" or
1681 dodie "failed to checkout $start";
1682 }
1683
1684 my $test;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001685 do {
1686 $result = run_bisect $type;
Steven Rostedta75fece2010-11-02 14:58:27 -04001687 $test = run_git_bisect "git bisect $result";
1688 } while ($test);
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04001689
1690 run_command "git bisect log" or
1691 dodie "could not capture git bisect log";
1692
1693 run_command "git bisect reset" or
1694 dodie "could not reset git bisect";
1695
1696 doprint "Bad commit was [$bisect_bad]\n";
1697
Steven Rostedt0a05c762010-11-08 11:14:10 -05001698 success $i;
1699}
1700
1701my %config_ignore;
1702my %config_set;
1703
1704my %config_list;
1705my %null_config;
1706
1707my %dependency;
1708
Steven Rostedt4c4ab122011-07-15 21:16:17 -04001709sub assign_configs {
1710 my ($hash, $config) = @_;
Steven Rostedt0a05c762010-11-08 11:14:10 -05001711
1712 open (IN, $config)
1713 or dodie "Failed to read $config";
1714
1715 while (<IN>) {
Steven Rostedt9bf71742011-06-01 23:27:19 -04001716 if (/^((CONFIG\S*)=.*)/) {
Steven Rostedt4c4ab122011-07-15 21:16:17 -04001717 ${$hash}{$2} = $1;
Steven Rostedt0a05c762010-11-08 11:14:10 -05001718 }
1719 }
1720
1721 close(IN);
1722}
1723
Steven Rostedt4c4ab122011-07-15 21:16:17 -04001724sub process_config_ignore {
1725 my ($config) = @_;
1726
1727 assign_configs \%config_ignore, $config;
1728}
1729
Steven Rostedt0a05c762010-11-08 11:14:10 -05001730sub read_current_config {
1731 my ($config_ref) = @_;
1732
1733 %{$config_ref} = ();
1734 undef %{$config_ref};
1735
1736 my @key = keys %{$config_ref};
1737 if ($#key >= 0) {
1738 print "did not delete!\n";
1739 exit;
1740 }
1741 open (IN, "$output_config");
1742
1743 while (<IN>) {
1744 if (/^(CONFIG\S+)=(.*)/) {
1745 ${$config_ref}{$1} = $2;
1746 }
1747 }
1748 close(IN);
1749}
1750
1751sub get_dependencies {
1752 my ($config) = @_;
1753
1754 my $arr = $dependency{$config};
1755 if (!defined($arr)) {
1756 return ();
1757 }
1758
1759 my @deps = @{$arr};
1760
1761 foreach my $dep (@{$arr}) {
1762 print "ADD DEP $dep\n";
1763 @deps = (@deps, get_dependencies $dep);
1764 }
1765
1766 return @deps;
1767}
1768
1769sub create_config {
1770 my @configs = @_;
1771
1772 open(OUT, ">$output_config") or dodie "Can not write to $output_config";
1773
1774 foreach my $config (@configs) {
1775 print OUT "$config_set{$config}\n";
1776 my @deps = get_dependencies $config;
1777 foreach my $dep (@deps) {
1778 print OUT "$config_set{$dep}\n";
1779 }
1780 }
1781
1782 foreach my $config (keys %config_ignore) {
1783 print OUT "$config_ignore{$config}\n";
1784 }
1785 close(OUT);
1786
1787# exit;
Steven Rostedtfcb3f162011-06-13 10:40:58 -04001788 make_oldconfig;
Steven Rostedt0a05c762010-11-08 11:14:10 -05001789}
1790
1791sub compare_configs {
1792 my (%a, %b) = @_;
1793
1794 foreach my $item (keys %a) {
1795 if (!defined($b{$item})) {
1796 print "diff $item\n";
1797 return 1;
1798 }
1799 delete $b{$item};
1800 }
1801
1802 my @keys = keys %b;
1803 if ($#keys) {
1804 print "diff2 $keys[0]\n";
1805 }
1806 return -1 if ($#keys >= 0);
1807
1808 return 0;
1809}
1810
1811sub run_config_bisect_test {
1812 my ($type) = @_;
1813
1814 return run_bisect_test $type, "oldconfig";
1815}
1816
1817sub process_passed {
1818 my (%configs) = @_;
1819
1820 doprint "These configs had no failure: (Enabling them for further compiles)\n";
1821 # Passed! All these configs are part of a good compile.
1822 # Add them to the min options.
1823 foreach my $config (keys %configs) {
1824 if (defined($config_list{$config})) {
1825 doprint " removing $config\n";
1826 $config_ignore{$config} = $config_list{$config};
1827 delete $config_list{$config};
1828 }
1829 }
Steven Rostedtf1a27852010-11-11 11:34:38 -05001830 doprint "config copied to $outputdir/config_good\n";
1831 run_command "cp -f $output_config $outputdir/config_good";
Steven Rostedt0a05c762010-11-08 11:14:10 -05001832}
1833
1834sub process_failed {
1835 my ($config) = @_;
1836
1837 doprint "\n\n***************************************\n";
1838 doprint "Found bad config: $config\n";
1839 doprint "***************************************\n\n";
1840}
1841
1842sub run_config_bisect {
1843
1844 my @start_list = keys %config_list;
1845
1846 if ($#start_list < 0) {
1847 doprint "No more configs to test!!!\n";
1848 return -1;
1849 }
1850
1851 doprint "***** RUN TEST ***\n";
1852 my $type = $opt{"CONFIG_BISECT_TYPE[$iteration]"};
1853 my $ret;
1854 my %current_config;
1855
1856 my $count = $#start_list + 1;
1857 doprint " $count configs to test\n";
1858
1859 my $half = int($#start_list / 2);
1860
1861 do {
1862 my @tophalf = @start_list[0 .. $half];
1863
1864 create_config @tophalf;
1865 read_current_config \%current_config;
1866
1867 $count = $#tophalf + 1;
1868 doprint "Testing $count configs\n";
1869 my $found = 0;
1870 # make sure we test something
1871 foreach my $config (@tophalf) {
1872 if (defined($current_config{$config})) {
1873 logit " $config\n";
1874 $found = 1;
1875 }
1876 }
1877 if (!$found) {
1878 # try the other half
1879 doprint "Top half produced no set configs, trying bottom half\n";
Steven Rostedt4c8cc552011-06-01 23:22:30 -04001880 @tophalf = @start_list[$half + 1 .. $#start_list];
Steven Rostedt0a05c762010-11-08 11:14:10 -05001881 create_config @tophalf;
1882 read_current_config \%current_config;
1883 foreach my $config (@tophalf) {
1884 if (defined($current_config{$config})) {
1885 logit " $config\n";
1886 $found = 1;
1887 }
1888 }
1889 if (!$found) {
1890 doprint "Failed: Can't make new config with current configs\n";
1891 foreach my $config (@start_list) {
1892 doprint " CONFIG: $config\n";
1893 }
1894 return -1;
1895 }
1896 $count = $#tophalf + 1;
1897 doprint "Testing $count configs\n";
1898 }
1899
1900 $ret = run_config_bisect_test $type;
Steven Rostedtc960bb92011-03-08 09:22:39 -05001901 if ($bisect_manual) {
1902 $ret = answer_bisect;
1903 }
Steven Rostedt0a05c762010-11-08 11:14:10 -05001904 if ($ret) {
1905 process_passed %current_config;
1906 return 0;
1907 }
1908
1909 doprint "This config had a failure.\n";
1910 doprint "Removing these configs that were not set in this config:\n";
Steven Rostedtf1a27852010-11-11 11:34:38 -05001911 doprint "config copied to $outputdir/config_bad\n";
1912 run_command "cp -f $output_config $outputdir/config_bad";
Steven Rostedt0a05c762010-11-08 11:14:10 -05001913
1914 # A config exists in this group that was bad.
1915 foreach my $config (keys %config_list) {
1916 if (!defined($current_config{$config})) {
1917 doprint " removing $config\n";
1918 delete $config_list{$config};
1919 }
1920 }
1921
1922 @start_list = @tophalf;
1923
1924 if ($#start_list == 0) {
1925 process_failed $start_list[0];
1926 return 1;
1927 }
1928
1929 # remove half the configs we are looking at and see if
1930 # they are good.
1931 $half = int($#start_list / 2);
Steven Rostedt4c8cc552011-06-01 23:22:30 -04001932 } while ($#start_list > 0);
Steven Rostedt0a05c762010-11-08 11:14:10 -05001933
Steven Rostedtc960bb92011-03-08 09:22:39 -05001934 # we found a single config, try it again unless we are running manually
1935
1936 if ($bisect_manual) {
1937 process_failed $start_list[0];
1938 return 1;
1939 }
1940
Steven Rostedt0a05c762010-11-08 11:14:10 -05001941 my @tophalf = @start_list[0 .. 0];
1942
1943 $ret = run_config_bisect_test $type;
1944 if ($ret) {
1945 process_passed %current_config;
1946 return 0;
1947 }
1948
1949 process_failed $start_list[0];
1950 return 1;
1951}
1952
1953sub config_bisect {
1954 my ($i) = @_;
1955
1956 my $start_config = $opt{"CONFIG_BISECT[$i]"};
1957
1958 my $tmpconfig = "$tmpdir/use_config";
1959
Steven Rostedt30f75da2011-06-13 10:35:35 -04001960 if (defined($config_bisect_good)) {
1961 process_config_ignore $config_bisect_good;
1962 }
1963
Steven Rostedt0a05c762010-11-08 11:14:10 -05001964 # Make the file with the bad config and the min config
1965 if (defined($minconfig)) {
1966 # read the min config for things to ignore
1967 run_command "cp $minconfig $tmpconfig" or
1968 dodie "failed to copy $minconfig to $tmpconfig";
1969 } else {
1970 unlink $tmpconfig;
1971 }
1972
Steven Rostedt0a05c762010-11-08 11:14:10 -05001973 if (-f $tmpconfig) {
Steven Rostedtfcb3f162011-06-13 10:40:58 -04001974 load_force_config($tmpconfig);
Steven Rostedt0a05c762010-11-08 11:14:10 -05001975 process_config_ignore $tmpconfig;
1976 }
1977
1978 # now process the start config
1979 run_command "cp $start_config $output_config" or
1980 dodie "failed to copy $start_config to $output_config";
1981
1982 # read directly what we want to check
1983 my %config_check;
1984 open (IN, $output_config)
1985 or dodie "faied to open $output_config";
1986
1987 while (<IN>) {
1988 if (/^((CONFIG\S*)=.*)/) {
1989 $config_check{$2} = $1;
1990 }
1991 }
1992 close(IN);
1993
Steven Rostedt250bae82011-07-15 22:05:59 -04001994 # Now run oldconfig with the minconfig
Steven Rostedtfcb3f162011-06-13 10:40:58 -04001995 make_oldconfig;
Steven Rostedt0a05c762010-11-08 11:14:10 -05001996
1997 # check to see what we lost (or gained)
1998 open (IN, $output_config)
1999 or dodie "Failed to read $start_config";
2000
2001 my %removed_configs;
2002 my %added_configs;
2003
2004 while (<IN>) {
2005 if (/^((CONFIG\S*)=.*)/) {
2006 # save off all options
2007 $config_set{$2} = $1;
2008 if (defined($config_check{$2})) {
2009 if (defined($config_ignore{$2})) {
2010 $removed_configs{$2} = $1;
2011 } else {
2012 $config_list{$2} = $1;
2013 }
2014 } elsif (!defined($config_ignore{$2})) {
2015 $added_configs{$2} = $1;
2016 $config_list{$2} = $1;
2017 }
2018 }
2019 }
2020 close(IN);
2021
2022 my @confs = keys %removed_configs;
2023 if ($#confs >= 0) {
2024 doprint "Configs overridden by default configs and removed from check:\n";
2025 foreach my $config (@confs) {
2026 doprint " $config\n";
2027 }
2028 }
2029 @confs = keys %added_configs;
2030 if ($#confs >= 0) {
2031 doprint "Configs appearing in make oldconfig and added:\n";
2032 foreach my $config (@confs) {
2033 doprint " $config\n";
2034 }
2035 }
2036
2037 my %config_test;
2038 my $once = 0;
2039
2040 # Sometimes kconfig does weird things. We must make sure
2041 # that the config we autocreate has everything we need
2042 # to test, otherwise we may miss testing configs, or
2043 # may not be able to create a new config.
2044 # Here we create a config with everything set.
2045 create_config (keys %config_list);
2046 read_current_config \%config_test;
2047 foreach my $config (keys %config_list) {
2048 if (!defined($config_test{$config})) {
2049 if (!$once) {
2050 $once = 1;
2051 doprint "Configs not produced by kconfig (will not be checked):\n";
2052 }
2053 doprint " $config\n";
2054 delete $config_list{$config};
2055 }
2056 }
2057 my $ret;
2058 do {
2059 $ret = run_config_bisect;
2060 } while (!$ret);
2061
2062 return $ret if ($ret < 0);
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04002063
2064 success $i;
2065}
2066
Steven Rostedt27d934b2011-05-20 09:18:18 -04002067sub patchcheck_reboot {
2068 doprint "Reboot and sleep $patchcheck_sleep_time seconds\n";
2069 reboot;
2070 start_monitor;
2071 wait_for_monitor $patchcheck_sleep_time;
2072 end_monitor;
2073}
2074
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04002075sub patchcheck {
2076 my ($i) = @_;
2077
2078 die "PATCHCHECK_START[$i] not defined\n"
2079 if (!defined($opt{"PATCHCHECK_START[$i]"}));
2080 die "PATCHCHECK_TYPE[$i] not defined\n"
2081 if (!defined($opt{"PATCHCHECK_TYPE[$i]"}));
2082
2083 my $start = $opt{"PATCHCHECK_START[$i]"};
2084
2085 my $end = "HEAD";
2086 if (defined($opt{"PATCHCHECK_END[$i]"})) {
2087 $end = $opt{"PATCHCHECK_END[$i]"};
2088 }
2089
Steven Rostedta57419b2010-11-02 15:13:54 -04002090 # Get the true sha1's since we can use things like HEAD~3
2091 $start = get_sha1($start);
2092 $end = get_sha1($end);
2093
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04002094 my $type = $opt{"PATCHCHECK_TYPE[$i]"};
2095
2096 # Can't have a test without having a test to run
2097 if ($type eq "test" && !defined($run_test)) {
2098 $type = "boot";
2099 }
2100
2101 open (IN, "git log --pretty=oneline $end|") or
2102 dodie "could not get git list";
2103
2104 my @list;
2105
2106 while (<IN>) {
2107 chomp;
2108 $list[$#list+1] = $_;
2109 last if (/^$start/);
2110 }
2111 close(IN);
2112
2113 if ($list[$#list] !~ /^$start/) {
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04002114 fail "SHA1 $start not found";
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04002115 }
2116
2117 # go backwards in the list
2118 @list = reverse @list;
2119
2120 my $save_clean = $noclean;
Steven Rostedt19902072011-06-14 20:46:25 -04002121 my %ignored_warnings;
2122
2123 if (defined($ignore_warnings)) {
2124 foreach my $sha1 (split /\s+/, $ignore_warnings) {
2125 $ignored_warnings{$sha1} = 1;
2126 }
2127 }
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04002128
2129 $in_patchcheck = 1;
2130 foreach my $item (@list) {
2131 my $sha1 = $item;
2132 $sha1 =~ s/^([[:xdigit:]]+).*/$1/;
2133
2134 doprint "\nProcessing commit $item\n\n";
2135
2136 run_command "git checkout $sha1" or
2137 die "Failed to checkout $sha1";
2138
2139 # only clean on the first and last patch
2140 if ($item eq $list[0] ||
2141 $item eq $list[$#list]) {
2142 $noclean = $save_clean;
2143 } else {
2144 $noclean = 1;
2145 }
2146
2147 if (defined($minconfig)) {
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04002148 build "useconfig:$minconfig" or return 0;
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04002149 } else {
2150 # ?? no config to use?
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04002151 build "oldconfig" or return 0;
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04002152 }
2153
Steven Rostedt19902072011-06-14 20:46:25 -04002154
2155 if (!defined($ignored_warnings{$sha1})) {
2156 check_buildlog $sha1 or return 0;
2157 }
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04002158
2159 next if ($type eq "build");
2160
Steven Rostedt7faafbd2010-11-02 14:58:22 -04002161 my $failed = 0;
2162
Steven Rostedtddf607e2011-06-14 20:49:13 -04002163 start_monitor_and_boot or $failed = 1;
Steven Rostedt7faafbd2010-11-02 14:58:22 -04002164
2165 if (!$failed && $type ne "boot"){
2166 do_run_test or $failed = 1;
2167 }
2168 end_monitor;
2169 return 0 if ($failed);
2170
Steven Rostedt27d934b2011-05-20 09:18:18 -04002171 patchcheck_reboot;
2172
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04002173 }
2174 $in_patchcheck = 0;
2175 success $i;
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04002176
2177 return 1;
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04002178}
2179
Steven Rostedtb9066f62011-07-15 21:25:24 -04002180my %depends;
2181my $iflevel = 0;
2182my @ifdeps;
2183
2184# prevent recursion
2185my %read_kconfigs;
2186
2187# taken from streamline_config.pl
2188sub read_kconfig {
2189 my ($kconfig) = @_;
2190
2191 my $state = "NONE";
2192 my $config;
2193 my @kconfigs;
2194
2195 my $cont = 0;
2196 my $line;
2197
2198
2199 if (! -f $kconfig) {
2200 doprint "file $kconfig does not exist, skipping\n";
2201 return;
2202 }
2203
2204 open(KIN, "$kconfig")
2205 or die "Can't open $kconfig";
2206 while (<KIN>) {
2207 chomp;
2208
2209 # Make sure that lines ending with \ continue
2210 if ($cont) {
2211 $_ = $line . " " . $_;
2212 }
2213
2214 if (s/\\$//) {
2215 $cont = 1;
2216 $line = $_;
2217 next;
2218 }
2219
2220 $cont = 0;
2221
2222 # collect any Kconfig sources
2223 if (/^source\s*"(.*)"/) {
2224 $kconfigs[$#kconfigs+1] = $1;
2225 }
2226
2227 # configs found
2228 if (/^\s*(menu)?config\s+(\S+)\s*$/) {
2229 $state = "NEW";
2230 $config = $2;
2231
2232 for (my $i = 0; $i < $iflevel; $i++) {
2233 if ($i) {
2234 $depends{$config} .= " " . $ifdeps[$i];
2235 } else {
2236 $depends{$config} = $ifdeps[$i];
2237 }
2238 $state = "DEP";
2239 }
2240
2241 # collect the depends for the config
2242 } elsif ($state eq "NEW" && /^\s*depends\s+on\s+(.*)$/) {
2243
2244 if (defined($depends{$1})) {
2245 $depends{$config} .= " " . $1;
2246 } else {
2247 $depends{$config} = $1;
2248 }
2249
2250 # Get the configs that select this config
2251 } elsif ($state ne "NONE" && /^\s*select\s+(\S+)/) {
2252 if (defined($depends{$1})) {
2253 $depends{$1} .= " " . $config;
2254 } else {
2255 $depends{$1} = $config;
2256 }
2257
2258 # Check for if statements
2259 } elsif (/^if\s+(.*\S)\s*$/) {
2260 my $deps = $1;
2261 # remove beginning and ending non text
2262 $deps =~ s/^[^a-zA-Z0-9_]*//;
2263 $deps =~ s/[^a-zA-Z0-9_]*$//;
2264
2265 my @deps = split /[^a-zA-Z0-9_]+/, $deps;
2266
2267 $ifdeps[$iflevel++] = join ':', @deps;
2268
2269 } elsif (/^endif/) {
2270
2271 $iflevel-- if ($iflevel);
2272
2273 # stop on "help"
2274 } elsif (/^\s*help\s*$/) {
2275 $state = "NONE";
2276 }
2277 }
2278 close(KIN);
2279
2280 # read in any configs that were found.
2281 foreach $kconfig (@kconfigs) {
2282 if (!defined($read_kconfigs{$kconfig})) {
2283 $read_kconfigs{$kconfig} = 1;
2284 read_kconfig("$builddir/$kconfig");
2285 }
2286 }
2287}
2288
2289sub read_depends {
2290 # find out which arch this is by the kconfig file
2291 open (IN, $output_config)
2292 or dodie "Failed to read $output_config";
2293 my $arch;
2294 while (<IN>) {
2295 if (m,Linux/(\S+)\s+\S+\s+Kernel Configuration,) {
2296 $arch = $1;
2297 last;
2298 }
2299 }
2300 close IN;
2301
2302 if (!defined($arch)) {
2303 doprint "Could not find arch from config file\n";
2304 doprint "no dependencies used\n";
2305 return;
2306 }
2307
2308 # arch is really the subarch, we need to know
2309 # what directory to look at.
2310 if ($arch eq "i386" || $arch eq "x86_64") {
2311 $arch = "x86";
2312 } elsif ($arch =~ /^tile/) {
2313 $arch = "tile";
2314 }
2315
2316 my $kconfig = "$builddir/arch/$arch/Kconfig";
2317
2318 if (! -f $kconfig && $arch =~ /\d$/) {
2319 my $orig = $arch;
2320 # some subarchs have numbers, truncate them
2321 $arch =~ s/\d*$//;
2322 $kconfig = "$builddir/arch/$arch/Kconfig";
2323 if (! -f $kconfig) {
2324 doprint "No idea what arch dir $orig is for\n";
2325 doprint "no dependencies used\n";
2326 return;
2327 }
2328 }
2329
2330 read_kconfig($kconfig);
2331}
2332
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002333sub read_config_list {
2334 my ($config) = @_;
2335
2336 open (IN, $config)
2337 or dodie "Failed to read $config";
2338
2339 while (<IN>) {
2340 if (/^((CONFIG\S*)=.*)/) {
2341 if (!defined($config_ignore{$2})) {
2342 $config_list{$2} = $1;
2343 }
2344 }
2345 }
2346
2347 close(IN);
2348}
2349
2350sub read_output_config {
2351 my ($config) = @_;
2352
2353 assign_configs \%config_ignore, $config;
2354}
2355
2356sub make_new_config {
2357 my @configs = @_;
2358
2359 open (OUT, ">$output_config")
2360 or dodie "Failed to write $output_config";
2361
2362 foreach my $config (@configs) {
2363 print OUT "$config\n";
2364 }
2365 close OUT;
2366}
2367
Steven Rostedtb9066f62011-07-15 21:25:24 -04002368sub get_depends {
2369 my ($dep) = @_;
2370
2371 my $kconfig = $dep;
2372 $kconfig =~ s/CONFIG_//;
2373
2374 $dep = $depends{"$kconfig"};
2375
2376 # the dep string we have saves the dependencies as they
2377 # were found, including expressions like ! && ||. We
2378 # want to split this out into just an array of configs.
2379
2380 my $valid = "A-Za-z_0-9";
2381
2382 my @configs;
2383
2384 while ($dep =~ /[$valid]/) {
2385
2386 if ($dep =~ /^[^$valid]*([$valid]+)/) {
2387 my $conf = "CONFIG_" . $1;
2388
2389 $configs[$#configs + 1] = $conf;
2390
2391 $dep =~ s/^[^$valid]*[$valid]+//;
2392 } else {
2393 die "this should never happen";
2394 }
2395 }
2396
2397 return @configs;
2398}
2399
2400my %min_configs;
2401my %keep_configs;
Steven Rostedt43d1b652011-07-15 22:01:56 -04002402my %save_configs;
Steven Rostedtb9066f62011-07-15 21:25:24 -04002403my %processed_configs;
2404my %nochange_config;
2405
2406sub test_this_config {
2407 my ($config) = @_;
2408
2409 my $found;
2410
2411 # if we already processed this config, skip it
2412 if (defined($processed_configs{$config})) {
2413 return undef;
2414 }
2415 $processed_configs{$config} = 1;
2416
2417 # if this config failed during this round, skip it
2418 if (defined($nochange_config{$config})) {
2419 return undef;
2420 }
2421
2422 my $kconfig = $config;
2423 $kconfig =~ s/CONFIG_//;
2424
2425 # Test dependencies first
2426 if (defined($depends{"$kconfig"})) {
2427 my @parents = get_depends $config;
2428 foreach my $parent (@parents) {
2429 # if the parent is in the min config, check it first
2430 next if (!defined($min_configs{$parent}));
2431 $found = test_this_config($parent);
2432 if (defined($found)) {
2433 return $found;
2434 }
2435 }
2436 }
2437
2438 # Remove this config from the list of configs
2439 # do a make oldnoconfig and then read the resulting
2440 # .config to make sure it is missing the config that
2441 # we had before
2442 my %configs = %min_configs;
2443 delete $configs{$config};
2444 make_new_config ((values %configs), (values %keep_configs));
2445 make_oldconfig;
2446 undef %configs;
2447 assign_configs \%configs, $output_config;
2448
2449 return $config if (!defined($configs{$config}));
2450
2451 doprint "disabling config $config did not change .config\n";
2452
2453 $nochange_config{$config} = 1;
2454
2455 return undef;
2456}
2457
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002458sub make_min_config {
2459 my ($i) = @_;
2460
2461 if (!defined($output_minconfig)) {
2462 fail "OUTPUT_MIN_CONFIG not defined" and return;
2463 }
Steven Rostedt35ce5952011-07-15 21:57:25 -04002464
2465 # If output_minconfig exists, and the start_minconfig
2466 # came from min_config, than ask if we should use
2467 # that instead.
2468 if (-f $output_minconfig && !$start_minconfig_defined) {
2469 print "$output_minconfig exists\n";
2470 if (read_yn " Use it as minconfig?") {
2471 $start_minconfig = $output_minconfig;
2472 }
2473 }
2474
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002475 if (!defined($start_minconfig)) {
2476 fail "START_MIN_CONFIG or MIN_CONFIG not defined" and return;
2477 }
2478
Steven Rostedt35ce5952011-07-15 21:57:25 -04002479 my $temp_config = "$tmpdir/temp_config";
2480
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002481 # First things first. We build an allnoconfig to find
2482 # out what the defaults are that we can't touch.
2483 # Some are selections, but we really can't handle selections.
2484
2485 my $save_minconfig = $minconfig;
2486 undef $minconfig;
2487
2488 run_command "$make allnoconfig" or return 0;
2489
Steven Rostedtb9066f62011-07-15 21:25:24 -04002490 read_depends;
2491
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002492 process_config_ignore $output_config;
Steven Rostedtb9066f62011-07-15 21:25:24 -04002493
Steven Rostedt43d1b652011-07-15 22:01:56 -04002494 undef %save_configs;
Steven Rostedtb9066f62011-07-15 21:25:24 -04002495 undef %min_configs;
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002496
2497 if (defined($ignore_config)) {
2498 # make sure the file exists
2499 `touch $ignore_config`;
Steven Rostedt43d1b652011-07-15 22:01:56 -04002500 assign_configs \%save_configs, $ignore_config;
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002501 }
2502
Steven Rostedt43d1b652011-07-15 22:01:56 -04002503 %keep_configs = %save_configs;
2504
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002505 doprint "Load initial configs from $start_minconfig\n";
2506
2507 # Look at the current min configs, and save off all the
2508 # ones that were set via the allnoconfig
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002509 assign_configs \%min_configs, $start_minconfig;
2510
2511 my @config_keys = keys %min_configs;
2512
2513 # Remove anything that was set by the make allnoconfig
2514 # we shouldn't need them as they get set for us anyway.
2515 foreach my $config (@config_keys) {
2516 # Remove anything in the ignore_config
2517 if (defined($keep_configs{$config})) {
2518 my $file = $ignore_config;
2519 $file =~ s,.*/(.*?)$,$1,;
2520 doprint "$config set by $file ... ignored\n";
2521 delete $min_configs{$config};
2522 next;
2523 }
2524 # But make sure the settings are the same. If a min config
2525 # sets a selection, we do not want to get rid of it if
2526 # it is not the same as what we have. Just move it into
2527 # the keep configs.
2528 if (defined($config_ignore{$config})) {
2529 if ($config_ignore{$config} ne $min_configs{$config}) {
2530 doprint "$config is in allnoconfig as '$config_ignore{$config}'";
2531 doprint " but it is '$min_configs{$config}' in minconfig .. keeping\n";
2532 $keep_configs{$config} = $min_configs{$config};
2533 } else {
2534 doprint "$config set by allnoconfig ... ignored\n";
2535 }
2536 delete $min_configs{$config};
2537 }
2538 }
2539
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002540 my $done = 0;
Steven Rostedtb9066f62011-07-15 21:25:24 -04002541 my $take_two = 0;
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002542
2543 while (!$done) {
2544
2545 my $config;
2546 my $found;
2547
2548 # Now disable each config one by one and do a make oldconfig
2549 # till we find a config that changes our list.
2550
2551 # Put configs that did not modify the config at the end.
2552 my @test_configs = keys %min_configs;
2553 my $reset = 1;
2554 for (my $i = 0; $i < $#test_configs; $i++) {
2555 if (!defined($nochange_config{$test_configs[0]})) {
2556 $reset = 0;
2557 last;
2558 }
2559 # This config didn't change the .config last time.
2560 # Place it at the end
2561 my $config = shift @test_configs;
2562 push @test_configs, $config;
2563 }
2564
2565 # if every test config has failed to modify the .config file
2566 # in the past, then reset and start over.
2567 if ($reset) {
2568 undef %nochange_config;
2569 }
2570
Steven Rostedtb9066f62011-07-15 21:25:24 -04002571 undef %processed_configs;
2572
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002573 foreach my $config (@test_configs) {
2574
Steven Rostedtb9066f62011-07-15 21:25:24 -04002575 $found = test_this_config $config;
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002576
Steven Rostedtb9066f62011-07-15 21:25:24 -04002577 last if (defined($found));
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002578
2579 # oh well, try another config
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002580 }
2581
2582 if (!defined($found)) {
Steven Rostedtb9066f62011-07-15 21:25:24 -04002583 # we could have failed due to the nochange_config hash
2584 # reset and try again
2585 if (!$take_two) {
2586 undef %nochange_config;
2587 $take_two = 1;
2588 next;
2589 }
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002590 doprint "No more configs found that we can disable\n";
2591 $done = 1;
2592 last;
2593 }
Steven Rostedtb9066f62011-07-15 21:25:24 -04002594 $take_two = 0;
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002595
2596 $config = $found;
2597
2598 doprint "Test with $config disabled\n";
2599
2600 # set in_bisect to keep build and monitor from dieing
2601 $in_bisect = 1;
2602
2603 my $failed = 0;
2604 build "oldconfig";
2605 start_monitor_and_boot or $failed = 1;
2606 end_monitor;
2607
2608 $in_bisect = 0;
2609
2610 if ($failed) {
Steven Rostedtb9066f62011-07-15 21:25:24 -04002611 doprint "$min_configs{$config} is needed to boot the box... keeping\n";
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002612 # this config is needed, add it to the ignore list.
2613 $keep_configs{$config} = $min_configs{$config};
Steven Rostedt43d1b652011-07-15 22:01:56 -04002614 $save_configs{$config} = $min_configs{$config};
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002615 delete $min_configs{$config};
Steven Rostedt35ce5952011-07-15 21:57:25 -04002616
2617 # update new ignore configs
2618 if (defined($ignore_config)) {
2619 open (OUT, ">$temp_config")
2620 or die "Can't write to $temp_config";
Steven Rostedt43d1b652011-07-15 22:01:56 -04002621 foreach my $config (keys %save_configs) {
2622 print OUT "$save_configs{$config}\n";
Steven Rostedt35ce5952011-07-15 21:57:25 -04002623 }
2624 close OUT;
2625 run_command "mv $temp_config $ignore_config" or
2626 dodie "failed to copy update to $ignore_config";
2627 }
2628
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002629 } else {
2630 # We booted without this config, remove it from the minconfigs.
2631 doprint "$config is not needed, disabling\n";
2632
2633 delete $min_configs{$config};
2634
2635 # Also disable anything that is not enabled in this config
2636 my %configs;
2637 assign_configs \%configs, $output_config;
2638 my @config_keys = keys %min_configs;
2639 foreach my $config (@config_keys) {
2640 if (!defined($configs{$config})) {
2641 doprint "$config is not set, disabling\n";
2642 delete $min_configs{$config};
2643 }
2644 }
2645
2646 # Save off all the current mandidory configs
Steven Rostedt35ce5952011-07-15 21:57:25 -04002647 open (OUT, ">$temp_config")
2648 or die "Can't write to $temp_config";
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002649 foreach my $config (keys %keep_configs) {
2650 print OUT "$keep_configs{$config}\n";
2651 }
2652 foreach my $config (keys %min_configs) {
2653 print OUT "$min_configs{$config}\n";
2654 }
2655 close OUT;
Steven Rostedt35ce5952011-07-15 21:57:25 -04002656
2657 run_command "mv $temp_config $output_minconfig" or
2658 dodie "failed to copy update to $output_minconfig";
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002659 }
2660
2661 doprint "Reboot and wait $sleep_time seconds\n";
2662 reboot;
2663 start_monitor;
2664 wait_for_monitor $sleep_time;
2665 end_monitor;
2666 }
2667
2668 success $i;
2669 return 1;
2670}
2671
Steven Rostedt8d1491b2010-11-18 15:39:48 -05002672$#ARGV < 1 or die "ktest.pl version: $VERSION\n usage: ktest.pl config-file\n";
Steven Rostedt2545eb62010-11-02 15:01:32 -04002673
Steven Rostedt8d1491b2010-11-18 15:39:48 -05002674if ($#ARGV == 0) {
2675 $ktest_config = $ARGV[0];
2676 if (! -f $ktest_config) {
2677 print "$ktest_config does not exist.\n";
Steven Rostedt35ce5952011-07-15 21:57:25 -04002678 if (!read_yn "Create it?") {
Steven Rostedt8d1491b2010-11-18 15:39:48 -05002679 exit 0;
2680 }
2681 }
2682} else {
2683 $ktest_config = "ktest.conf";
2684}
2685
2686if (! -f $ktest_config) {
2687 open(OUT, ">$ktest_config") or die "Can not create $ktest_config";
2688 print OUT << "EOF"
2689# Generated by ktest.pl
2690#
2691# Define each test with TEST_START
2692# The config options below it will override the defaults
2693TEST_START
2694
2695DEFAULTS
2696EOF
2697;
2698 close(OUT);
2699}
2700read_config $ktest_config;
2701
Steven Rostedt23715c3c2011-06-13 11:03:34 -04002702if (defined($opt{"LOG_FILE"})) {
2703 $opt{"LOG_FILE"} = eval_option($opt{"LOG_FILE"}, -1);
2704}
2705
Steven Rostedt8d1491b2010-11-18 15:39:48 -05002706# Append any configs entered in manually to the config file.
2707my @new_configs = keys %entered_configs;
2708if ($#new_configs >= 0) {
2709 print "\nAppending entered in configs to $ktest_config\n";
2710 open(OUT, ">>$ktest_config") or die "Can not append to $ktest_config";
2711 foreach my $config (@new_configs) {
2712 print OUT "$config = $entered_configs{$config}\n";
2713 $opt{$config} = $entered_configs{$config};
2714 }
2715}
Steven Rostedt2545eb62010-11-02 15:01:32 -04002716
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04002717if ($opt{"CLEAR_LOG"} && defined($opt{"LOG_FILE"})) {
2718 unlink $opt{"LOG_FILE"};
2719}
Steven Rostedt2545eb62010-11-02 15:01:32 -04002720
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04002721doprint "\n\nSTARTING AUTOMATED TESTS\n\n";
2722
Steven Rostedta57419b2010-11-02 15:13:54 -04002723for (my $i = 0, my $repeat = 1; $i <= $opt{"NUM_TESTS"}; $i += $repeat) {
2724
2725 if (!$i) {
2726 doprint "DEFAULT OPTIONS:\n";
2727 } else {
2728 doprint "\nTEST $i OPTIONS";
2729 if (defined($repeat_tests{$i})) {
2730 $repeat = $repeat_tests{$i};
2731 doprint " ITERATE $repeat";
2732 }
2733 doprint "\n";
2734 }
2735
2736 foreach my $option (sort keys %opt) {
2737
2738 if ($option =~ /\[(\d+)\]$/) {
2739 next if ($i != $1);
2740 } else {
2741 next if ($i);
2742 }
2743
2744 doprint "$option = $opt{$option}\n";
2745 }
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04002746}
Steven Rostedt2545eb62010-11-02 15:01:32 -04002747
Steven Rostedt2a625122011-05-20 15:48:59 -04002748sub __set_test_option {
Steven Rostedt5a391fb2010-11-02 14:57:43 -04002749 my ($name, $i) = @_;
2750
2751 my $option = "$name\[$i\]";
2752
2753 if (defined($opt{$option})) {
2754 return $opt{$option};
2755 }
2756
Steven Rostedta57419b2010-11-02 15:13:54 -04002757 foreach my $test (keys %repeat_tests) {
2758 if ($i >= $test &&
2759 $i < $test + $repeat_tests{$test}) {
2760 $option = "$name\[$test\]";
2761 if (defined($opt{$option})) {
2762 return $opt{$option};
2763 }
2764 }
2765 }
2766
Steven Rostedt5a391fb2010-11-02 14:57:43 -04002767 if (defined($opt{$name})) {
2768 return $opt{$name};
2769 }
2770
2771 return undef;
2772}
2773
Steven Rostedt2a625122011-05-20 15:48:59 -04002774sub set_test_option {
2775 my ($name, $i) = @_;
2776
2777 my $option = __set_test_option($name, $i);
2778 return $option if (!defined($option));
2779
Steven Rostedt23715c3c2011-06-13 11:03:34 -04002780 return eval_option($option, $i);
Steven Rostedt2a625122011-05-20 15:48:59 -04002781}
2782
Steven Rostedt2545eb62010-11-02 15:01:32 -04002783# First we need to do is the builds
Steven Rostedta75fece2010-11-02 14:58:27 -04002784for (my $i = 1; $i <= $opt{"NUM_TESTS"}; $i++) {
Steven Rostedt2545eb62010-11-02 15:01:32 -04002785
Steven Rostedt576f6272010-11-02 14:58:38 -04002786 $iteration = $i;
2787
Steven Rostedta75fece2010-11-02 14:58:27 -04002788 my $makecmd = set_test_option("MAKE_CMD", $i);
2789
2790 $machine = set_test_option("MACHINE", $i);
Steven Rostedte48c5292010-11-02 14:35:37 -04002791 $ssh_user = set_test_option("SSH_USER", $i);
Steven Rostedta75fece2010-11-02 14:58:27 -04002792 $tmpdir = set_test_option("TMP_DIR", $i);
2793 $outputdir = set_test_option("OUTPUT_DIR", $i);
2794 $builddir = set_test_option("BUILD_DIR", $i);
2795 $test_type = set_test_option("TEST_TYPE", $i);
2796 $build_type = set_test_option("BUILD_TYPE", $i);
2797 $build_options = set_test_option("BUILD_OPTIONS", $i);
Steven Rostedt0bd6c1a2011-06-14 20:39:31 -04002798 $pre_build = set_test_option("PRE_BUILD", $i);
2799 $post_build = set_test_option("POST_BUILD", $i);
2800 $pre_build_die = set_test_option("PRE_BUILD_DIE", $i);
2801 $post_build_die = set_test_option("POST_BUILD_DIE", $i);
Steven Rostedta75fece2010-11-02 14:58:27 -04002802 $power_cycle = set_test_option("POWER_CYCLE", $i);
Steven Rostedte48c5292010-11-02 14:35:37 -04002803 $reboot = set_test_option("REBOOT", $i);
Steven Rostedta75fece2010-11-02 14:58:27 -04002804 $noclean = set_test_option("BUILD_NOCLEAN", $i);
2805 $minconfig = set_test_option("MIN_CONFIG", $i);
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002806 $output_minconfig = set_test_option("OUTPUT_MIN_CONFIG", $i);
2807 $start_minconfig = set_test_option("START_MIN_CONFIG", $i);
2808 $ignore_config = set_test_option("IGNORE_CONFIG", $i);
Steven Rostedta75fece2010-11-02 14:58:27 -04002809 $run_test = set_test_option("TEST", $i);
2810 $addconfig = set_test_option("ADD_CONFIG", $i);
2811 $reboot_type = set_test_option("REBOOT_TYPE", $i);
2812 $grub_menu = set_test_option("GRUB_MENU", $i);
Steven Rostedt8b37ca82010-11-02 14:58:33 -04002813 $post_install = set_test_option("POST_INSTALL", $i);
Steven Rostedta75fece2010-11-02 14:58:27 -04002814 $reboot_script = set_test_option("REBOOT_SCRIPT", $i);
2815 $reboot_on_error = set_test_option("REBOOT_ON_ERROR", $i);
2816 $poweroff_on_error = set_test_option("POWEROFF_ON_ERROR", $i);
2817 $die_on_failure = set_test_option("DIE_ON_FAILURE", $i);
2818 $power_off = set_test_option("POWER_OFF", $i);
Steven Rostedt576f6272010-11-02 14:58:38 -04002819 $powercycle_after_reboot = set_test_option("POWERCYCLE_AFTER_REBOOT", $i);
2820 $poweroff_after_halt = set_test_option("POWEROFF_AFTER_HALT", $i);
Steven Rostedta75fece2010-11-02 14:58:27 -04002821 $sleep_time = set_test_option("SLEEP_TIME", $i);
2822 $bisect_sleep_time = set_test_option("BISECT_SLEEP_TIME", $i);
Steven Rostedt27d934b2011-05-20 09:18:18 -04002823 $patchcheck_sleep_time = set_test_option("PATCHCHECK_SLEEP_TIME", $i);
Steven Rostedt19902072011-06-14 20:46:25 -04002824 $ignore_warnings = set_test_option("IGNORE_WARNINGS", $i);
Steven Rostedtc960bb92011-03-08 09:22:39 -05002825 $bisect_manual = set_test_option("BISECT_MANUAL", $i);
Steven Rostedtc23dca72011-03-08 09:26:31 -05002826 $bisect_skip = set_test_option("BISECT_SKIP", $i);
Steven Rostedt30f75da2011-06-13 10:35:35 -04002827 $config_bisect_good = set_test_option("CONFIG_BISECT_GOOD", $i);
Steven Rostedta75fece2010-11-02 14:58:27 -04002828 $store_failures = set_test_option("STORE_FAILURES", $i);
Steven Rostedt9064af52011-06-13 10:38:48 -04002829 $test_name = set_test_option("TEST_NAME", $i);
Steven Rostedta75fece2010-11-02 14:58:27 -04002830 $timeout = set_test_option("TIMEOUT", $i);
2831 $booted_timeout = set_test_option("BOOTED_TIMEOUT", $i);
2832 $console = set_test_option("CONSOLE", $i);
Steven Rostedtf1a5b962011-06-13 10:30:00 -04002833 $detect_triplefault = set_test_option("DETECT_TRIPLE_FAULT", $i);
Steven Rostedta75fece2010-11-02 14:58:27 -04002834 $success_line = set_test_option("SUCCESS_LINE", $i);
Steven Rostedt1c8a6172010-11-09 12:55:40 -05002835 $stop_after_success = set_test_option("STOP_AFTER_SUCCESS", $i);
2836 $stop_after_failure = set_test_option("STOP_AFTER_FAILURE", $i);
Steven Rostedt2d01b262011-03-08 09:47:54 -05002837 $stop_test_after = set_test_option("STOP_TEST_AFTER", $i);
Steven Rostedta75fece2010-11-02 14:58:27 -04002838 $build_target = set_test_option("BUILD_TARGET", $i);
Steven Rostedte48c5292010-11-02 14:35:37 -04002839 $ssh_exec = set_test_option("SSH_EXEC", $i);
2840 $scp_to_target = set_test_option("SCP_TO_TARGET", $i);
Steven Rostedta75fece2010-11-02 14:58:27 -04002841 $target_image = set_test_option("TARGET_IMAGE", $i);
2842 $localversion = set_test_option("LOCALVERSION", $i);
2843
Steven Rostedt35ce5952011-07-15 21:57:25 -04002844 $start_minconfig_defined = 1;
2845
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002846 if (!defined($start_minconfig)) {
Steven Rostedt35ce5952011-07-15 21:57:25 -04002847 $start_minconfig_defined = 0;
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002848 $start_minconfig = $minconfig;
2849 }
2850
Steven Rostedta75fece2010-11-02 14:58:27 -04002851 chdir $builddir || die "can't change directory to $builddir";
2852
2853 if (!-d $tmpdir) {
2854 mkpath($tmpdir) or
2855 die "can't create $tmpdir";
2856 }
2857
Steven Rostedte48c5292010-11-02 14:35:37 -04002858 $ENV{"SSH_USER"} = $ssh_user;
2859 $ENV{"MACHINE"} = $machine;
2860
Steven Rostedta75fece2010-11-02 14:58:27 -04002861 $target = "$ssh_user\@$machine";
2862
2863 $buildlog = "$tmpdir/buildlog-$machine";
2864 $dmesg = "$tmpdir/dmesg-$machine";
2865 $make = "$makecmd O=$outputdir";
Steven Rostedt51ad1dd2010-11-08 16:43:21 -05002866 $output_config = "$outputdir/.config";
Steven Rostedta75fece2010-11-02 14:58:27 -04002867
2868 if ($reboot_type eq "grub") {
Steven Rostedt576f6272010-11-02 14:58:38 -04002869 dodie "GRUB_MENU not defined" if (!defined($grub_menu));
Steven Rostedta75fece2010-11-02 14:58:27 -04002870 } elsif (!defined($reboot_script)) {
Steven Rostedt576f6272010-11-02 14:58:38 -04002871 dodie "REBOOT_SCRIPT not defined"
Steven Rostedta75fece2010-11-02 14:58:27 -04002872 }
2873
2874 my $run_type = $build_type;
2875 if ($test_type eq "patchcheck") {
2876 $run_type = $opt{"PATCHCHECK_TYPE[$i]"};
2877 } elsif ($test_type eq "bisect") {
2878 $run_type = $opt{"BISECT_TYPE[$i]"};
Steven Rostedt0a05c762010-11-08 11:14:10 -05002879 } elsif ($test_type eq "config_bisect") {
2880 $run_type = $opt{"CONFIG_BISECT_TYPE[$i]"};
Steven Rostedta75fece2010-11-02 14:58:27 -04002881 }
2882
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002883 if ($test_type eq "make_min_config") {
2884 $run_type = "";
2885 }
2886
Steven Rostedta75fece2010-11-02 14:58:27 -04002887 # mistake in config file?
2888 if (!defined($run_type)) {
2889 $run_type = "ERROR";
2890 }
Steven Rostedt2545eb62010-11-02 15:01:32 -04002891
2892 doprint "\n\n";
Steven Rostedta75fece2010-11-02 14:58:27 -04002893 doprint "RUNNING TEST $i of $opt{NUM_TESTS} with option $test_type $run_type\n\n";
Steven Rostedt7faafbd2010-11-02 14:58:22 -04002894
2895 unlink $dmesg;
2896 unlink $buildlog;
Steven Rostedt2545eb62010-11-02 15:01:32 -04002897
Steven Rostedt250bae82011-07-15 22:05:59 -04002898 if (defined($addconfig)) {
2899 my $min = $minconfig;
2900 if (!defined($minconfig)) {
2901 $min = "";
2902 }
2903 run_command "cat $addconfig $min > $tmpdir/add_config" or
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04002904 dodie "Failed to create temp config";
Steven Rostedt9be2e6b2010-11-09 12:20:21 -05002905 $minconfig = "$tmpdir/add_config";
Steven Rostedt2b7d9b22010-11-02 14:58:15 -04002906 }
2907
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04002908 my $checkout = $opt{"CHECKOUT[$i]"};
2909 if (defined($checkout)) {
2910 run_command "git checkout $checkout" or
2911 die "failed to checkout $checkout";
2912 }
2913
Steven Rostedta75fece2010-11-02 14:58:27 -04002914 if ($test_type eq "bisect") {
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04002915 bisect $i;
2916 next;
Steven Rostedt0a05c762010-11-08 11:14:10 -05002917 } elsif ($test_type eq "config_bisect") {
2918 config_bisect $i;
2919 next;
Steven Rostedta75fece2010-11-02 14:58:27 -04002920 } elsif ($test_type eq "patchcheck") {
Steven Rostedt6c5ee0b2010-11-02 14:57:58 -04002921 patchcheck $i;
2922 next;
Steven Rostedt4c4ab122011-07-15 21:16:17 -04002923 } elsif ($test_type eq "make_min_config") {
2924 make_min_config $i;
2925 next;
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04002926 }
2927
Steven Rostedt7faafbd2010-11-02 14:58:22 -04002928 if ($build_type ne "nobuild") {
2929 build $build_type or next;
Steven Rostedt2545eb62010-11-02 15:01:32 -04002930 }
2931
Steven Rostedta75fece2010-11-02 14:58:27 -04002932 if ($test_type ne "build") {
Steven Rostedta75fece2010-11-02 14:58:27 -04002933 my $failed = 0;
Steven Rostedtddf607e2011-06-14 20:49:13 -04002934 start_monitor_and_boot or $failed = 1;
Steven Rostedta75fece2010-11-02 14:58:27 -04002935
2936 if (!$failed && $test_type ne "boot" && defined($run_test)) {
2937 do_run_test or $failed = 1;
2938 }
2939 end_monitor;
2940 next if ($failed);
Steven Rostedt5a391fb2010-11-02 14:57:43 -04002941 }
2942
Steven Rostedt5f9b6ce2010-11-02 14:57:33 -04002943 success $i;
Steven Rostedt2545eb62010-11-02 15:01:32 -04002944}
2945
Steven Rostedt5c42fc52010-11-02 14:57:01 -04002946if ($opt{"POWEROFF_ON_SUCCESS"}) {
Steven Rostedt75c3fda72010-11-02 14:57:21 -04002947 halt;
Steven Rostedt576f6272010-11-02 14:58:38 -04002948} elsif ($opt{"REBOOT_ON_SUCCESS"} && !do_not_reboot) {
Steven Rostedt75c3fda72010-11-02 14:57:21 -04002949 reboot;
Steven Rostedt5c42fc52010-11-02 14:57:01 -04002950}
Steven Rostedt75c3fda72010-11-02 14:57:21 -04002951
Steven Rostedte48c5292010-11-02 14:35:37 -04002952doprint "\n $successes of $opt{NUM_TESTS} tests were successful\n\n";
2953
Steven Rostedt2545eb62010-11-02 15:01:32 -04002954exit 0;