Minki/linux
1
0
Fork 1
mirror of https://github.com/torvalds/linux.git synced 2024-11-26 06:02:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

ktest: Added patchcheck

Browse Source 
Added patchcheck functionality. It will checkout a given SHA1
and test that commit and all commits to another given SHA1.

Signed-off-by: Steven Rostedt <rostedt@goodmis.org>
This commit is contained in:
Steven Rostedt 2010-11-02 14:57:58 -04:00 committed by Steven Rostedt
parent 1a5cfce344
commit 6c5ee0be02
1 changed files with 140 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

142
tools/testing/ktest/ktest.pl
View File

@ -34,7 +34,9 @@ my $noclean;
my $minconfig;
my $in_bisect = 0;
my $bisect_bad = "";
my $in_patchcheck = 0;
my $run_test;
my $redirect;
sub read_config {
my ($config) = @_;
@ -88,13 +90,18 @@ sub dodie {
sub run_command {
my ($command) = @_;
my $redirect_log = "";
my $redirect_tee = "";
if (defined($opt{"LOG_FILE"})) {
$redirect_log = " >> $opt{LOG_FILE} 2>&1";
$redirect_log = "| tee -a $opt{LOG_FILE}";
}
if (defined($redirect)) {
$redirect_tee = "| tee $redirect"
}
doprint "$command ... ";
`$command $redirect_log`;
`$command 2>&1 $redirect_tee $redirect_log > /dev/null`;
my $failed = $?;
@ -311,6 +318,37 @@ sub install {
run_command "ssh $target rm -f /tmp/$modtar";
}
sub check_buildlog {
my ($patch) = @_;
my $buildlog = "$opt{TMP_DIR}/buildlog";
my @files = `git show $patch | diffstat -l`;
open(IN, "git show $patch |") or
dodie "failed to show $patch";
while (<IN>) {
if (m,^--- a/(.*),) {
chomp $1;
$files[$#files] = $1;
}
}
close(IN);
open(IN, $buildlog) or dodie "Can't open $buildlog";
while (<IN>) {
if (/^\s*(.*?):.*(warning|error)/) {
my $err = $1;
foreach my $file (@files) {
my $fullpath = "$opt{BUILD_DIR}/$file";
if ($file eq $err || $fullpath eq $err) {
dodie "$file built with warnings";
}
}
}
}
close(IN);
}
sub build {
my ($type) = @_;
my $defconfig = "";
@ -358,11 +396,18 @@ sub build {
run_command "$defconfig $append $make $type" or
dodie "failed make config";
# patch check will examine the log
if ($in_patchcheck) {
$redirect = "$opt{TMP_DIR}/buildlog";
}
if (!run_command "$make $opt{BUILD_OPTIONS}") {
undef $redirect;
# bisect may need this to pass
return 1 if ($in_bisect);
dodie "failed build";
}
undef $redirect;
return 0;
}
@ -602,6 +647,90 @@ sub bisect {
success $i;
}
sub patchcheck {
my ($i) = @_;
die "PATCHCHECK_START[$i] not defined\n"
if (!defined($opt{"PATCHCHECK_START[$i]"}));
die "PATCHCHECK_TYPE[$i] not defined\n"
if (!defined($opt{"PATCHCHECK_TYPE[$i]"}));
my $start = $opt{"PATCHCHECK_START[$i]"};
my $end = "HEAD";
if (defined($opt{"PATCHCHECK_END[$i]"})) {
$end = $opt{"PATCHCHECK_END[$i]"};
}
my $type = $opt{"PATCHCHECK_TYPE[$i]"};
# Can't have a test without having a test to run
if ($type eq "test" && !defined($run_test)) {
$type = "boot";
}
open (IN, "git log --pretty=oneline $end|") or
dodie "could not get git list";
my @list;
while (<IN>) {
chomp;
$list[$#list+1] = $_;
last if (/^$start/);
}
close(IN);
if ($list[$#list] !~ /^$start/) {
dodie "SHA1 $start not found";
}
# go backwards in the list
@list = reverse @list;
my $save_clean = $noclean;
$in_patchcheck = 1;
foreach my $item (@list) {
my $sha1 = $item;
$sha1 =~ s/^([[:xdigit:]]+).*/$1/;
doprint "\nProcessing commit $item\n\n";
run_command "git checkout $sha1" or
die "Failed to checkout $sha1";
# only clean on the first and last patch
if ($item eq $list[0] ||
$item eq $list[$#list]) {
$noclean = $save_clean;
} else {
$noclean = 1;
}
if (defined($minconfig)) {
build "useconfig:$minconfig";
} else {
# ?? no config to use?
build "oldconfig";
}
check_buildlog $sha1;
next if ($type eq "build");
get_grub_index;
get_version;
install;
monitor;
next if ($type eq "boot");
do_run_test;
}
$in_patchcheck = 0;
success $i;
}
read_config $ARGV[0];
# mandatory configs
@ -656,9 +785,18 @@ for (my $i = 1; $i <= $opt{"NUM_BUILDS"}; $i++) {
doprint "\n\n";
doprint "RUNNING TEST $i of $opt{NUM_BUILDS} with option $opt{$type}\n\n";
my $checkout = $opt{"CHECKOUT[$i]"};
if (defined($checkout)) {
run_command "git checkout $checkout" or
die "failed to checkout $checkout";
}
if ($opt{$type} eq "bisect") {
bisect $i;
next;
} elsif ($opt{$type} eq "patchcheck") {
patchcheck $i;
next;
}
if ($opt{$type} ne "nobuild") {