Lines Matching +full:skip +full:- +full:config
1 #!/usr/bin/perl -w
2 # SPDX-License-Identifier: GPL-2.0-only
4 # Copyright 2010 - Steven Rostedt <srostedt@redhat.com>, Red Hat Inc.
67 "GRUB_REBOOT" => "grub2-reboot",
68 "GRUB_BLS_GET" => "grubby --info=ALL",
76 "LOCALVERSION" => "-test",
79 "TARGET_IMAGE" => "/boot/vmlinuz-test",
249 # set when creating a new config
257 # in a .config file. The MIN_CONFIG and ADD_CONFIG configs.
260 # do not force reboots on config problems
422 i.e. -j20
433 …POWER_CYCLE = wget --no-proxy -O /dev/null -q --auth-no-challenge 'http://admin:admin\@power/outl…
444 CONSOLE = nc -d localhost 3001
490 kernel vmlinuz-test
495 menu must be a non-nested menu. Add the quotes used in the menu
533 # a good config and we will ignore these configs for the rest
534 # of a config bisect. These configs stay as they were.
540 # config_off holds the set of configs that the bad config had disabled.
541 # We need to record them and set them in the .config when running
651 my ($config) = @_;
654 return if (defined($opt{$config}));
656 if (defined($config_help{$config})) {
658 print $config_help{$config};
662 print "$config = ";
663 if (defined($default{$config}) && length($default{$config})) {
664 print "\[$default{$config}\] ";
669 if ($default{$config}) {
670 $ans = $default{$config};
676 $entered_configs{$config} = ${ans};
689 $time -= $hours * 3600;
693 $time -= $minutes * 60;
939 return -1;
967 $d--;
1028 my ($config, $current_test_num) = @_;
1031 open($in, $config) || die "can't read file $config";
1033 my $name = $config;
1040 my $skip = 0;
1080 # If SKIP is anywhere in the line, the command will be skipped
1081 if ($rest =~ s/\s+SKIP\b//) {
1082 $skip = 1;
1085 $skip = 0;
1095 $skip = 1;
1097 $skip = 0;
1105 $skip = 1;
1113 if (!$skip) {
1127 if (!$skip && $rest !~ /^\s*$/) {
1131 if ($skip && $type eq "TEST_START") {
1141 $skip = 1;
1144 $skip = 0;
1151 $skip = 1;
1165 next if ($skip);
1174 # check the path of the config file first
1175 if ($config =~ m,(.*)/,) {
1176 if (-f "$1/$file") {
1182 if ( ! -r $file ) {
1190 } elsif (/^\s*([A-Z_\[\]\d]+)\s*=~\s*(.*?)\s*$/) {
1192 next if ($skip);
1204 } elsif (/^\s*([A-Z_\[\]\d]+)\s*=\s*(.*?)\s*$/) {
1206 next if ($skip);
1238 } elsif (/^\s*([A-Z_\[\]\d]+)\s*:=\s*(.*?)\s*$/) {
1239 next if ($skip);
1244 # process config variables.
1245 # Config variables are only active while reading the
1246 # config and can be defined anywhere. They also ignore
1248 # one of these sections that have SKIP defined.
1255 die "$name: $.: Garbage found in config\n$_";
1260 $test_num += $repeat - 1;
1282 my ($config) = @_;
1287 $test_case = __read_config $config, \$test_num;
1333 exit -1;
1583 my $size = $log_size - $test_log_start;
1590 my $pos = - $size;
1661 $stty_orig = `stty -g`;
1665 system("stty -icanon -echo -icrnl");
1714 if (--$monitor_cnt) {
1763 if ($full_line =~ /Kernel panic -/) {
1771 if ($now - $start_time >= $max_monitor_wait) {
1797 my $dir = "$machine-$test_type-$type-$result-$date";
1801 if (!-d $dir) {
1807 "config" => $output_config,
1814 if (-f "$source") {
1882 $timeout = -1; # tell wait_for_input to wait indefinitely
1914 if ($timeout >= 0 && (($now - $start_time) >= $timeout)) {
1939 my $delta = $end_time - $start_time;
1995 my ($command, $target, $skip, $submenu) = @_;
2002 $grub_number = -1;
2021 $grub_number = -1;
2022 } elsif (/$skip/) {
2042 my $skip;
2055 $skip = '^\s*title\s';
2059 $skip = '^\s*menuentry\s';
2064 $skip = '^title=';
2069 _get_grub_index($command, $target, $skip, $submenu);
2110 last if (defined($time) && (time - $start_time > $time));
2135 run_ssh "'(echo \"savedefault --default=$grub_number --once\" | grub --batch)'";
2139 run_ssh "$syslinux --once \\\"$syslinux_label\\\" $syslinux_path";
2149 doprint "git rev-list --max-count=1 $commit ... ";
2150 my $sha1 = `git rev-list --max-count=1 $commit`;
2195 my $time = $stop_after_failure - (time - $failure_start);
2232 if ($now - $success_start >= $stop_after_success) {
2256 if ($now - $failure_start >= $stop_after_failure) {
2266 if ($full_line =~ /Kernel panic -/) {
2292 if (time - $monitor_start > $stop_test_after) {
2300 $reboot_time = $end_time - $start_time;
2306 fail "failed - got a bug report" and return 0;
2311 fail "failed - never got a boot prompt." and return 0;
2369 open(IN, "$output_config") or dodie("Can't read config file");
2384 $install_time = $end_time - $start_time;
2392 my $modtar = "ktest-mods.tar.bz2";
2394 run_ssh "rm -rf $modlib" or
2397 # would be nice if scp -r did not follow symbolic links
2398 run_command "cd $tmpdir && tar -cjf $modtar lib/modules/$version" or
2409 run_ssh "rm -f /tmp/$modtar";
2414 $install_time = $end_time - $start_time;
2421 $version = `$make -s kernelrelease | tail -1`;
2425 $version = `$make -s kernelrelease | tail -1`;
2465 # Some compilers use UTF-8 extended for quotes and some don't.
2483 if (-f $warnings_file) {
2522 my @files = `git show $patch | diffstat -l`;
2531 if (m,^--- a/(.*),) {
2558 # Read the config file and remove anything that
2560 # then add the force config back.
2567 if (-f $output_config) {
2578 foreach my $config (keys %force_config) {
2579 print OUT "$force_config{$config}\n";
2602 dodie "failed make config oldconfig";
2607 # read a config file and use this to force new configs.
2609 my ($config) = @_;
2611 doprint "Loading force configs from $config\n";
2612 open(IN, $config) or
2613 dodie "failed to read $config";
2616 if (/^(CONFIG[^\s=]*)(\s*=.*)/) {
2649 dodie "could not copy $1 to .config";
2654 # old config can ask questions
2663 dodie "moving .config";
2687 dodie "failed make config";
2689 # Run old config regardless, to enforce min configurations
2720 $build_time = $end_time - $start_time;
2773 doprint "Pass, fail, or skip? [p/f/s]";
2781 return -1;
2844 if ($full_line =~ /Kernel panic -/) {
2867 if ($now - $failure_start >= $stop_after_failure) {
2881 $test_time = $end_time - $start_time;
2891 return -1;
2896 fail "test abort" and return -2;
2909 } elsif ($bisect_ret_default eq "skip") {
2910 return -1;
2912 return -2;
2915 and return -2;
2962 # returns 1 on success, 0 on failure, -1 on skip
2976 return -1;
2988 return -1;
3055 return "skip";
3083 $start_files = " -- " . $start_files;
3110 if ( -f $bisect_start_file ) {
3116 print "** BISECT_REPLAY is defined in config file **";
3117 print " Ignore config option and perform new git bisect log?\n";
3199 my ($hash, $config) = @_;
3201 doprint "Reading configs from $config\n";
3203 open (IN, $config) or
3204 dodie "Failed to read $config";
3208 if (/^((CONFIG\S*)=.*)/) {
3210 } elsif (/^(# (CONFIG\S*) is not set)/) {
3219 my ($config) = @_;
3221 assign_configs \%config_ignore, $config;
3225 my ($config) = @_;
3227 my $arr = $dependency{$config};
3251 foreach my $config (keys %configs) {
3252 print OUT "$configs{$config}\n";
3260 doprint "Creating old config from $name configs\n";
3281 my $diffexec = "diff -u";
3283 if (-f "$builddir/scripts/diffconfig") {
3287 doprint "No more config bisecting possible.\n";
3299 $reset = "-r";
3301 run_command "$config_bisect_exec $reset -b $outputdir $good $bad $last_result", 1;
3303 # config-bisect returns:
3305 # 1 for finding a good config
3307 # -1 (255) on error
3314 doprint "NEW GOOD CONFIG ($pass)\n";
3317 # Return 3 for good config
3320 doprint "NEW BAD CONFIG ($pass)\n";
3323 # Return 4 for bad config
3344 doprint "No config specified, checking if defconfig works";
3347 fail "Have no good config to compare with, please set CONFIG_BISECT_GOOD";
3356 "$pwd/config-bisect.pl",
3357 "$dirname/config-bisect.pl",
3358 "$builddir/tools/testing/ktest/config-bisect.pl",
3363 last if (defined($config_bisect_exec && -x $config_bisect_exec));
3366 fail "Could not find an executable config-bisect.pl\n",
3367 " Set CONFIG_BISECT_EXEC to point to config-bisect.pl";
3380 if (-f "$tmpdir/good_config.tmp" || -f "$tmpdir/bad_config.tmp") {
3381 if (read_yn "Interrupted config-bisect. Continue (n - will start new)?") {
3382 if (-f "$tmpdir/good_config.tmp") {
3387 if (-f "$tmpdir/bad_config.tmp") {
3398 system("cp $output_config $good_config") == 0 or dodie "cp good config";
3404 system("cp $output_config $bad_config") == 0 or dodie "cp bad config";
3408 doprint "Testing bad config\n";
3412 fail "Bad config succeeded when expected to fail!";
3417 doprint "Testing good config\n";
3421 fail "Good config failed when expected to succeed!";
3487 open (IN, "git cherry -v $start $end|") or
3490 open (IN, "git log --pretty=oneline $end|") or
3549 # ?? no config to use?
3584 # $config depends on $dep
3585 my ($config, $dep) = @_;
3587 if (defined($depends{$config})) {
3588 $depends{$config} .= " " . $dep;
3590 $depends{$config} = $dep;
3606 my $config;
3612 if (! -f $kconfig) {
3641 if (/^\s*(menu)?config\s+(\S+)\s*$/) {
3643 $config = $2;
3646 add_dep $config, $ifdeps[$i];
3649 # collect the depends for the config
3652 add_dep $config, $1;
3654 # Get the configs that select this config
3657 # selected by depends on config
3658 add_dep $1, $config;
3664 $deps =~ s/^[^a-zA-Z0-9_]*//;
3665 $deps =~ s/[^a-zA-Z0-9_]*$//;
3667 my @deps = split /[^a-zA-Z0-9_]+/, $deps;
3673 $iflevel-- if ($iflevel);
3705 doprint "Could not find arch from config file\n";
3718 if (! -f $kconfig && $arch =~ /\d$/) {
3723 if (! -f $kconfig) {
3739 foreach my $config (@configs) {
3740 print OUT "$config\n";
3746 my ($config) = @_;
3748 $config =~ s/CONFIG_//;
3750 return $config;
3764 my $valid = "A-Za-z_0-9";
3784 my ($config) = @_;
3788 # if we already processed this config, skip it
3789 if (defined($processed_configs{$config})) {
3792 $processed_configs{$config} = 1;
3794 # if this config failed during this round, skip it
3795 if (defined($nochange_config{$config})) {
3799 my $kconfig = chomp_config $config;
3803 my @parents = get_depends $config;
3805 # if the parent is in the min config, check it first
3814 # Remove this config from the list of configs
3816 # .config to make sure it is missing the config that
3819 $configs{$config} = "# $config is not set";
3822 delete $configs{$config};
3826 if (!defined($configs{$config}) || $configs{$config} =~ /^#/) {
3827 return $config;
3830 doprint "disabling config $config did not change .config\n";
3832 $nochange_config{$config} = 1;
3853 if (-f $output_minconfig && !$start_minconfig_defined) {
3906 foreach my $config (@config_keys) {
3907 my $kconfig = chomp_config $config;
3915 foreach my $config (@config_keys) {
3917 if (defined($keep_configs{$config})) {
3920 doprint "$config set by $file ... ignored\n";
3921 delete $min_configs{$config};
3924 # But make sure the settings are the same. If a min config
3928 if (defined($config_ignore{$config})) {
3929 if ($config_ignore{$config} ne $min_configs{$config}) {
3930 doprint "$config is in allnoconfig as '$config_ignore{$config}'";
3931 doprint " but it is '$min_configs{$config}' in minconfig .. keeping\n";
3932 $keep_configs{$config} = $min_configs{$config};
3934 doprint "$config set by allnoconfig ... ignored\n";
3936 delete $min_configs{$config};
3944 my $config;
3947 # Now disable each config one by one and do a make oldconfig
3948 # till we find a config that changes our list.
3956 # Put configs that did not modify the config at the end.
3963 # This config didn't change the .config last time.
3965 my $config = shift @test_configs;
3966 push @test_configs, $config;
3969 # if every test config has failed to modify the .config file
3977 foreach my $config (@test_configs) {
3979 $found = test_this_config $config;
3983 # oh well, try another config
4000 $config = $found;
4002 doprint "Test with $config disabled\n";
4022 doprint "$min_configs{$config} is needed to boot the box... keeping\n";
4023 # this config is needed, add it to the ignore list.
4024 $keep_configs{$config} = $min_configs{$config};
4025 $save_configs{$config} = $min_configs{$config};
4026 delete $min_configs{$config};
4032 foreach my $config (keys %save_configs) {
4033 print OUT "$save_configs{$config}\n";
4041 # We booted without this config, remove it from the minconfigs.
4042 doprint "$config is not needed, disabling\n";
4044 delete $min_configs{$config};
4046 # Also disable anything that is not enabled in this config
4050 foreach my $config (@config_keys) {
4051 if (!defined($configs{$config})) {
4052 doprint "$config is not set, disabling\n";
4053 delete $min_configs{$config};
4060 foreach my $config (keys %keep_configs) {
4061 print OUT "$keep_configs{$config}\n";
4063 foreach my $config (keys %min_configs) {
4064 print OUT "$min_configs{$config}\n";
4097 # Some compilers use UTF-8 extended for quotes
4166 if (-x "$path/$mailer") {
4194 … $mail_command = "cat \$HEADER_FILE \$BODY_FILE | \$MAIL_PATH/\$MAILER -s \'\$SUBJECT\' \$MAILTO";
4196 $mail_command = "cat \$HEADER_FILE \$BODY_FILE | \$MAIL_PATH/\$MAILER -t \$MAILTO";
4226 doprint "No email sent: email or mailer not specified in config.\n";
4245 $#ARGV < 1 or die "ktest.pl version: $VERSION\n usage: ktest.pl [config-file]\n";
4249 if (! -f $ktest_config) {
4257 if (! -f $ktest_config) {
4269 # the config file. It is best to use this variable when assigning other
4276 # The config options below it will override the defaults
4288 $opt{"LOG_FILE"} = eval_option("LOG_FILE", $opt{"LOG_FILE"}, -1);
4291 # Append any configs entered in manually to the config file.
4296 foreach my $config (@new_configs) {
4297 print OUT "$config = $entered_configs{$config}\n";
4298 $opt{$config} = process_variables($entered_configs{$config});
4307 if (! -e $opt{"LOG_FILE"} && $opt{"LOG_FILE"} =~ m,^(.*/),) {
4309 if (! -d $dir) {
4315 LOG->autoflush(1);
4371 if (!-d $outputdir) {
4409 if (!-d $tmpdir) {
4417 $buildlog = "$tmpdir/buildlog-$machine";
4418 $testlog = "$tmpdir/testlog-$machine";
4419 $dmesg = "$tmpdir/dmesg-$machine";
4420 $output_config = "$outputdir/.config";
4447 # mistake in config file?
4487 dodie "Failed to create temp config";