Lines Matching +full:deep +full:- +full:touch
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",
418 i.e. -j20
429 …POWER_CYCLE = wget --no-proxy -O /dev/null -q --auth-no-challenge 'http://admin:admin\@power/outl…
440 CONSOLE = nc -d localhost 3001
486 kernel vmlinuz-test
491 menu must be a non-nested menu. Add the quotes used in the menu
622 $time -= $hours * 3600;
626 $time -= $minutes * 60;
853 return -1;
882 $d--;
1093 if (-f "$1/$file") {
1099 if ( ! -r $file ) {
1107 } elsif (/^\s*([A-Z_\[\]\d]+)\s*=~\s*(.*?)\s*$/) {
1121 } elsif (/^\s*([A-Z_\[\]\d]+)\s*=\s*(.*?)\s*$/) {
1155 } elsif (/^\s*([A-Z_\[\]\d]+)\s*:=\s*(.*?)\s*$/) {
1177 $test_num += $repeat - 1;
1250 exit -1;
1357 # 100 deep should be more than enough.
1504 my $size = $log_size - $test_log_start;
1511 my $pos = - $size;
1586 $stty_orig = `stty -g`;
1590 system("stty -icanon -echo -icrnl");
1639 if (--$monitor_cnt) {
1688 if ($full_line =~ /Kernel panic -/) {
1696 if ($now - $start_time >= $max_monitor_wait) {
1722 my $dir = "$machine-$test_type-$type-$result-$date";
1726 if (!-d $dir) {
1739 if (-f "$source") {
1834 if (defined($timeout) && (($now - $start_time) >= $timeout)) {
1859 my $delta = $end_time - $start_time;
1922 $grub_number = -1;
2016 last if (defined($time) && (time - $start_time > $time));
2041 run_ssh "'(echo \"savedefault --default=$grub_number --once\" | grub --batch)'";
2045 run_ssh "$syslinux --once \\\"$syslinux_label\\\" $syslinux_path";
2055 doprint "git rev-list --max-count=1 $commit ... ";
2056 my $sha1 = `git rev-list --max-count=1 $commit`;
2102 my $time = $stop_after_failure - (time - $failure_start);
2139 if ($now - $success_start >= $stop_after_success) {
2163 if ($now - $failure_start >= $stop_after_failure) {
2173 if ($full_line =~ /Kernel panic -/) {
2199 if (time - $monitor_start > $stop_test_after) {
2207 $reboot_time = $end_time - $start_time;
2213 fail "failed - got a bug report" and return 0;
2218 fail "failed - never got a boot prompt." and return 0;
2291 $install_time = $end_time - $start_time;
2299 my $modtar = "ktest-mods.tar.bz2";
2301 run_ssh "rm -rf $modlib" or
2304 # would be nice if scp -r did not follow symbolic links
2305 run_command "cd $tmpdir && tar -cjf $modtar lib/modules/$version" or
2316 run_ssh "rm -f /tmp/$modtar";
2321 $install_time = $end_time - $start_time;
2328 $version = `$make -s kernelrelease | tail -1`;
2370 # Some compilers use UTF-8 extended for quotes and some don't.
2390 if (-f $warnings_file) {
2426 my @files = `git show $patch | diffstat -l`;
2435 if (m,^--- a/(.*),) {
2471 if (-f $output_config) {
2563 run_command "touch $output_config";
2622 $build_time = $end_time - $start_time;
2682 return -1;
2747 if ($full_line =~ /Kernel panic -/) {
2770 if ($now - $failure_start >= $stop_after_failure) {
2784 $test_time = $end_time - $start_time;
2794 return -1;
2799 fail "test abort" and return -2;
2813 return -1;
2815 return -2;
2818 and return -2;
2865 # returns 1 on success, 0 on failure, -1 on skip
2881 return -1;
2893 return -1;
2988 $start_files = " -- " . $start_files;
3015 if ( -f $bisect_start_file ) {
3211 my $diffexec = "diff -u";
3213 if (-f "$builddir/scripts/diffconfig") {
3231 $reset = "-r";
3233 run_command "$config_bisect_exec $reset -b $outputdir $good $bad $last_result", 1;
3235 # config-bisect returns:
3239 # -1 (255) on error
3287 my @locations = ( "$pwd/config-bisect.pl",
3288 "$dirname/config-bisect.pl",
3289 "$builddir/tools/testing/ktest/config-bisect.pl",
3294 last if (defined($config_bisect_exec && -x $config_bisect_exec));
3297 fail "Could not find an executable config-bisect.pl\n",
3298 " Set CONFIG_BISECT_EXEC to point to config-bisect.pl";
3311 if (-f "$tmpdir/good_config.tmp" || -f "$tmpdir/bad_config.tmp") {
3312 if (read_yn "Interrupted config-bisect. Continue (n - will start new)?") {
3313 if (-f "$tmpdir/good_config.tmp") {
3318 if (-f "$tmpdir/bad_config.tmp") {
3418 open (IN, "git cherry -v $start $end|") or
3421 open (IN, "git log --pretty=oneline $end|") or
3552 if (! -f $kconfig) {
3604 $deps =~ s/^[^a-zA-Z0-9_]*//;
3605 $deps =~ s/[^a-zA-Z0-9_]*$//;
3607 my @deps = split /[^a-zA-Z0-9_]+/, $deps;
3613 $iflevel-- if ($iflevel);
3658 if (! -f $kconfig && $arch =~ /\d$/) {
3663 if (! -f $kconfig) {
3704 my $valid = "A-Za-z_0-9";
3799 if (-f $output_minconfig && !$start_minconfig_defined) {
3820 # out what the defaults are that we can't touch.
3837 `touch $ignore_config`;
4045 # Some compilers use UTF-8 extended for quotes
4060 $#ARGV < 1 or die "ktest.pl version: $VERSION\n usage: ktest.pl [config-file]\n";
4064 if (! -f $ktest_config) {
4072 if (! -f $ktest_config) {
4103 $opt{"LOG_FILE"} = eval_option("LOG_FILE", $opt{"LOG_FILE"}, -1);
4122 LOG->autoflush(1);
4206 if (-x "$path/$mailer") {
4234 … $mail_command = "cat \$HEADER_FILE \$BODY_FILE | \$MAIL_PATH/\$MAILER -s \'\$SUBJECT\' \$MAILTO";
4236 $mail_command = "cat \$HEADER_FILE \$BODY_FILE | \$MAIL_PATH/\$MAILER -t \$MAILTO";
4310 if (!-d $outputdir) {
4348 if (!-d $tmpdir) {
4356 $buildlog = "$tmpdir/buildlog-$machine";
4357 $testlog = "$tmpdir/testlog-$machine";
4358 $dmesg = "$tmpdir/dmesg-$machine";