Added a check to skip dejagnu test results gathering if we did not run dejagnu tests

llvm-svn: 29252
This commit is contained in:
Patrick Jenkins 2006-07-21 21:58:06 +00:00
parent 7ef934f6ab
commit 3b606ccc94
1 changed files with 13 additions and 11 deletions

View File

@ -832,13 +832,14 @@ if (!$BuildError && $patrickjenkins) {
# #
# #
############################################################## ##############################################################
$dejagnu = ReadFile $DejagnuSum; my $dejagnu = ReadFile $DejagnuSum;
@DEJAGNU = split "\n", $dejagnu; my @DEJAGNU = split "\n", $dejagnu;
my $passes="", my $passes="",
my $fails=""; my $fails="";
my $xfails=""; my $xfails="";
if(!$NODEJAGNU) {
for($x=0; $x<@DEJAGNU; $x++){ for($x=0; $x<@DEJAGNU; $x++){
if($DEJAGNU[$x] =~ m/^PASS:/){ if($DEJAGNU[$x] =~ m/^PASS:/){
$passes.="$DEJAGNU[$x]\n"; $passes.="$DEJAGNU[$x]\n";
@ -850,6 +851,7 @@ for($x=0; $x<@DEJAGNU; $x++){
$xfails.="$DEJAGNU[$x]\n"; $xfails.="$DEJAGNU[$x]\n";
} }
} }
}
# my ($TestsAdded, $TestsRemoved, $TestsFixed, $TestsBroken) = ("","","",""); # my ($TestsAdded, $TestsRemoved, $TestsFixed, $TestsBroken) = ("","","","");
# #