From 5c3bdbad9bd2ee2feb9c7d79bc2d67db3cd23ebe Mon Sep 17 00:00:00 2001 From: Jim Laskey Date: Mon, 11 Sep 2006 16:02:58 +0000 Subject: [PATCH] No longer used, and confuses maintainers llvm-svn: 30248 --- llvm/utils/NightlyTest.pl | 876 -------------------------------------- 1 file changed, 876 deletions(-) delete mode 100755 llvm/utils/NightlyTest.pl diff --git a/llvm/utils/NightlyTest.pl b/llvm/utils/NightlyTest.pl deleted file mode 100755 index 7b70ca08c140..000000000000 --- a/llvm/utils/NightlyTest.pl +++ /dev/null @@ -1,876 +0,0 @@ -#!/usr/bin/perl -w -# -# Program: NightlyTest.pl -# -# Synopsis: Perform a series of tests which are designed to be run nightly. -# This is used to keep track of the status of the LLVM tree, tracking -# regressions and performance changes. This generates one web page a -# day which can be used to access this information. -# -# Syntax: NightlyTest.pl [OPTIONS] [CVSROOT BUILDDIR WEBDIR] -# where -# OPTIONS may include one or more of the following: -# -nocheckout Do not create, checkout, update, or configure -# the source tree. -# -noremove Do not remove the BUILDDIR after it has been built. -# -notest Do not even attempt to run the test programs. Implies -# -norunningtests. -# -norunningtests Do not run the Olden benchmark suite with -# LARGE_PROBLEM_SIZE enabled. -# -nodejagnu Do not run feature or regression tests -# -parallel Run two parallel jobs with GNU Make. -# -release Build an LLVM Release version -# -enable-llcbeta Enable testing of beta features in llc. -# -disable-llc Disable LLC tests in the nightly tester. -# -disable-jit Disable JIT tests in the nightly tester. -# -disable-cbe Disable C backend tests in the nightly tester. -# -verbose Turn on some debug output -# -debug Print information useful only to maintainers of this script. -# -nice Checkout/Configure/Build with "nice" to reduce impact -# on busy servers. -# -f2c Next argument specifies path to F2C utility -# -gnuplotscript Next argument specifies gnuplot script to use -# -templatefile Next argument specifies template file to use -# -gccpath Path to gcc/g++ used to build LLVM -# -cvstag Check out a specific CVS tag to build LLVM (useful for -# testing release branches) -# -target Specify the target triplet -# -cflags Next argument specifies that C compilation options that -# override the default. -# -cxxflags Next argument specifies that C++ compilation options that -# override the default. -# -ldflags Next argument specifies that linker options that override -# the default. -# -compileflags Next argument specifies extra options passed to make when -# building LLVM. -# -# ---------------- Options to configure llvm-test ---------------------------- -# -extraflags Next argument specifies extra options that are passed to -# compile the tests. -# -noexternals Do not run the external tests (for cases where povray -# or SPEC are not installed) -# -with-externals Specify a directory where the external tests are located. -# -# CVSROOT is the CVS repository from which the tree will be checked out, -# specified either in the full :method:user@host:/dir syntax, or -# just /dir if using a local repo. -# BUILDDIR is the directory where sources for this test run will be checked out -# AND objects for this test run will be built. This directory MUST NOT -# exist before the script is run; it will be created by the cvs checkout -# process and erased (unless -noremove is specified; see above.) -# WEBDIR is the directory into which the test results web page will be written, -# AND in which the "index.html" is assumed to be a symlink to the most recent -# copy of the results. This directory will be created if it does not exist. -# LLVMGCCDIR is the directory in which the LLVM GCC Front End is installed -# to. This is the same as you would have for a normal LLVM build. -# -use POSIX qw(strftime); -use File::Copy; - -my $HOME = $ENV{'HOME'}; -my $CVSRootDir = $ENV{'CVSROOT'}; - $CVSRootDir = "/home/vadve/shared/PublicCVS" - unless $CVSRootDir; -my $BuildDir = $ENV{'BUILDDIR'}; - $BuildDir = "$HOME/buildtest" - unless $BuildDir; -my $WebDir = $ENV{'WEBDIR'}; - $WebDir = "$HOME/cvs/testresults-X86" - unless $WebDir; - -# Calculate the date prefix... -@TIME = localtime; -my $DATE = sprintf "%4d-%02d-%02d", $TIME[5]+1900, $TIME[4]+1, $TIME[3]; -my $DateString = strftime "%B %d, %Y", localtime; -my $TestStartTime = gmtime() . "GMT
" . localtime() . " (local)"; - -# Command line argument settings... -my $NOCHECKOUT = 0; -my $NOREMOVE = 0; -my $NOTEST = 0; -my $NORUNNINGTESTS = 0; -my $NOEXTERNALS = 0; -my $MAKEOPTS = ""; -my $PROGTESTOPTS = ""; -my $VERBOSE = 0; -my $DEBUG = 0; -my $CONFIGUREARGS = ""; -my $CVSCOOPT = "-APR"; -my $NICE = ""; -my $NODEJAGNU = 0; - -sub ReadFile { - if (open (FILE, $_[0])) { - undef $/; - my $Ret = ; - close FILE; - $/ = '\n'; - return $Ret; - } else { - print "Could not open file '$_[0]' for reading!"; - return ""; - } -} - -sub WriteFile { # (filename, contents) - open (FILE, ">$_[0]") or die "Could not open file '$_[0]' for writing!"; - print FILE $_[1]; - close FILE; -} - -sub GetRegex { # (Regex with ()'s, value) - $_[1] =~ /$_[0]/m; - if (defined($1)) { - return $1; - } - return "0"; -} - -sub Touch { - my @files = @_; - my $now = time; - foreach my $file (@files) { - if (! -f $file) { - open (FILE, ">$file") or warn "Could not create new file $file"; - close FILE; - } - utime $now, $now, $file; - } -} - -sub AddRecord { - my ($Val, $Filename) = @_; - my @Records; - if (open FILE, "$WebDir/$Filename") { - @Records = grep !/$DATE/, split "\n", ; - close FILE; - } - push @Records, "$DATE: $Val"; - WriteFile "$WebDir/$Filename", (join "\n", @Records) . "\n"; -} - -sub AddPreTag { # Add pre tags around nonempty list, or convert to "none" - $_ = shift; - if (length) { return "
$_
"; } else { "none
"; } -} - -sub ArrayToList { # Add
  • tags around nonempty list or convert to "none" - my $result = ""; - if (scalar @_) { - $result = "
      "; - foreach $item (@_) { - $result .= "
    • $item
      • "; - } - $result .= "
    "; - } else { - $result = "

    none

    "; - } - return $result; -} - -sub ChangeDir { # directory, logical name - my ($dir,$name) = @_; - chomp($dir); - if ( $VERBOSE ) { print "Changing To: $name ($dir)\n"; } - chdir($dir) || die "Cannot change directory to: $name ($dir) "; -} - -sub CopyFile { #filename, newfile - my ($file, $newfile) = @_; - chomp($file); - if ($VERBOSE) { print "Copying $file to $newfile\n"; } - copy($file, $newfile); -} - -sub GetDir { - my $Suffix = shift; - opendir DH, $WebDir; - my @Result = reverse sort grep !/$DATE/, grep /[-0-9]+$Suffix/, readdir DH; - closedir DH; - return @Result; -} - -# DiffFiles - Diff the current version of the file against the last version of -# the file, reporting things added and removed. This is used to report, for -# example, added and removed warnings. This returns a pair (added, removed) -# -sub DiffFiles { - my $Suffix = shift; - my @Others = GetDir $Suffix; - if (@Others == 0) { # No other files? We added all entries... - return (`cat $WebDir/$DATE$Suffix`, ""); - } - # Diff the files now... - my @Diffs = split "\n", `diff $WebDir/$DATE$Suffix $WebDir/$Others[0]`; - my $Added = join "\n", grep /^/, @Diffs; - $Added =~ s/^< //gm; - $Removed =~ s/^> //gm; - return ($Added, $Removed); -} - -# FormatTime - Convert a time from 1m23.45 into 83.45 -sub FormatTime { - my $Time = shift; - if ($Time =~ m/([0-9]+)m([0-9.]+)/) { - $Time = sprintf("%7.4f", $1*60.0+$2); - } - return $Time; -} - -sub GetRegexNum { - my ($Regex, $Num, $Regex2, $File) = @_; - my @Items = split "\n", `grep '$Regex' $File`; - return GetRegex $Regex2, $Items[$Num]; -} - -sub GetDejagnuTestResults { # (filename, log) - my ($filename, $DejagnuLog) = @_; - my @lines; - my $firstline; - $/ = "\n"; #Make sure we're going line at a time. - - print "DEJAGNU TEST RESULTS:\n"; - - if (open SRCHFILE, $filename) { - # Process test results - my $first_list = 1; - my $should_break = 1; - my $nocopy = 0; - my $readingsum = 0; - while ( ) { - if ( length($_) > 1 ) { - chomp($_); - if ( m/^XPASS:/ || m/^FAIL:/ ) { - $nocopy = 0; - if ( $first_list ) { - push(@lines, "

    UNEXPECTED TEST RESULTS

    1. \n"); - $first_list = 0; - $should_break = 1; - push(@lines, "$_
      \n"); - print " $_\n"; - } else { - push(@lines, "
    2. $_
      \n"); - print " $_\n"; - } - } elsif ( m/Summary/ ) { - if ( $first_list ) { - push(@lines, "PERFECT!"); - print " PERFECT!\n"; - } else { - push(@lines, "
    \n"); - } - push(@lines, "

    STATISTICS

    \n");
-          print "\nDEJAGNU STATISTICS:\n";
-          $should_break = 0;
-          $nocopy = 0;
-          $readingsum = 1;
-        } elsif ( $readingsum ) {
-          push(@lines,"$_\n");
-          print "  $_\n";
-        }
-      }
-    }
-  }
-  push(@lines, "
    \n"); - close SRCHFILE; - - my $content = join("", @lines); - return "$content
    • \n"; -} - - -##################################################################### -## MAIN PROGRAM -##################################################################### - -my $Template = ""; -my $PlotScriptFilename = ""; - -# Parse arguments... -while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) { - shift; - last if /^--$/; # Stop processing arguments on -- - - # List command line options here... - if (/^-nocheckout$/) { $NOCHECKOUT = 1; next; } - if (/^-noremove$/) { $NOREMOVE = 1; next; } - if (/^-notest$/) { $NOTEST = 1; $NORUNNINGTESTS = 1; next; } - if (/^-norunningtests$/) { $NORUNNINGTESTS = 1; next; } - if (/^-parallel$/) { $MAKEOPTS = "$MAKEOPTS -j2 -l3.0"; next; } - if (/^-release$/) { $MAKEOPTS = "$MAKEOPTS ENABLE_OPTIMIZED=1"; next; } - if (/^-enable-llcbeta$/) { $PROGTESTOPTS .= " ENABLE_LLCBETA=1"; next; } - if (/^-disable-llc$/) { $PROGTESTOPTS .= " DISABLE_LLC=1"; - $CONFIGUREARGS .= " --disable-llc_diffs"; next; } - if (/^-disable-jit$/) { $PROGTESTOPTS .= " DISABLE_JIT=1"; - $CONFIGUREARGS .= " --disable-jit"; next; } - if (/^-disable-cbe$/) { $PROGTESTOPTS .= " DISABLE_CBE=1"; next; } - if (/^-verbose$/) { $VERBOSE = 1; next; } - if (/^-debug$/) { $DEBUG = 1; next; } - if (/^-nice$/) { $NICE = "nice "; next; } - if (/^-f2c$/) { - $CONFIGUREARGS .= " --with-f2c=$ARGV[0]"; shift; next; - } - if (/^-with-externals/) { - $CONFIGUREARGS .= " --with-externals=$ARGV[0]"; shift; next - } - if (/^-gnuplotscript$/) { $PlotScriptFilename = $ARGV[0]; shift; next; } - if (/^-templatefile$/) { $Template = $ARGV[0]; shift; next; } - if (/^-gccpath/) { - $CONFIGUREARGS .= " CC=$ARGV[0]/gcc CXX=$ARGV[0]/g++"; shift; next; - } - if (/^-cvstag/) { $CVSCOOPT .= " -r $ARGV[0]"; shift; next; } - if (/^-target/) { - $CONFIGUREARGS .= " --target=$ARGV[0]"; shift; next; - } - if (/^-cflags/) { - $MAKEOPTS = "$MAKEOPTS C.Flags=\'$ARGV[0]\'"; shift; next; - } - if (/^-cxxflags/) { - $MAKEOPTS = "$MAKEOPTS CXX.Flags=\'$ARGV[0]\'"; shift; next; - } - if (/^-ldflags/) { - $MAKEOPTS = "$MAKEOPTS LD.Flags=\'$ARGV[0]\'"; shift; next; - } - if (/^-compileflags/) { - $MAKEOPTS = "$MAKEOPTS $ARGV[0]"; shift; next; - } - if (/^-extraflags/) { - $CONFIGUREARGS .= " --with-extra-options=\'$ARGV[0]\'"; shift; next; - } - if (/^-noexternals$/) { $NOEXTERNALS = 1; next; } - if (/^-nodejagnu$/) { $NODEJAGNU = 1; next; } - print "Unknown option: $_ : ignoring!\n"; -} - -if ($ENV{'LLVMGCCDIR'}) { - $CONFIGUREARGS .= " --with-llvmgccdir=" . $ENV{'LLVMGCCDIR'}; -} -if ($CONFIGUREARGS !~ /--disable-jit/) { - $CONFIGUREARGS .= " --enable-jit"; -} - -die "Must specify 0 or 3 options!" if (@ARGV != 0 and @ARGV != 3); - -if (@ARGV == 3) { - $CVSRootDir = $ARGV[0]; - $BuildDir = $ARGV[1]; - $WebDir = $ARGV[2]; -} - -my $Prefix = "$WebDir/$DATE"; - -#define the file names we'll use -my $BuildLog = "$Prefix-Build-Log.txt"; -my $CVSLog = "$Prefix-CVS-Log.txt"; -my $OldenTestsLog = "$Prefix-Olden-tests.txt"; -my $SingleSourceLog = "$Prefix-SingleSource-ProgramTest.txt.gz"; -my $MultiSourceLog = "$Prefix-MultiSource-ProgramTest.txt.gz"; -my $ExternalLog = "$Prefix-External-ProgramTest.txt.gz"; -my $DejagnuLog = "$Prefix-Dejagnu-testrun.log"; -my $DejagnuSum = "$Prefix-Dejagnu-testrun.sum"; -my $DejagnuTestsLog = "$Prefix-DejagnuTests-Log.txt"; - -if ($VERBOSE) { - print "INITIALIZED\n"; - print "CVS Root = $CVSRootDir\n"; - print "BuildDir = $BuildDir\n"; - print "WebDir = $WebDir\n"; - print "Prefix = $Prefix\n"; - print "CVSLog = $CVSLog\n"; - print "BuildLog = $BuildLog\n"; -} - -if (! -d $WebDir) { - mkdir $WebDir, 0777; - warn "Warning: $WebDir did not exist; creating it.\n"; -} - -# -# Create the CVS repository directory -# -if (!$NOCHECKOUT) { - if (-d $BuildDir) { - if (!$NOREMOVE) { - system "rm -rf $BuildDir"; - } else { - die "CVS checkout directory $BuildDir already exists!"; - } - } - mkdir $BuildDir or die "Could not create CVS checkout directory $BuildDir!"; -} - -ChangeDir( $BuildDir, "CVS checkout directory" ); - - -# -# Check out the llvm tree, saving CVS messages to the cvs log... -# -my $CVSOPT = ""; -# Use compression if going over ssh. -$CVSOPT = "-z3" if $CVSRootDir =~ /^:ext:/; -my $CVSCMD = "$NICE cvs $CVSOPT -d $CVSRootDir co -P $CVSCOOPT"; -if (!$NOCHECKOUT) { - if ( $VERBOSE ) { print "CHECKOUT STAGE\n"; } - system "( time -p $CVSCMD llvm; cd llvm/projects ; " . - "$CVSCMD llvm-test ) > $CVSLog 2>&1"; - ChangeDir( $BuildDir , "CVS Checkout directory") ; -} - -ChangeDir( "llvm" , "llvm source directory") ; - -if ( $Template eq "" ) { - $Template = "$BuildDir/llvm/utils/NightlyTestTemplate.html"; -} -die "Template file $Template is not readable" if ( ! -r "$Template" ); - -if ( $PlotScriptFilename eq "" ) { - $PlotScriptFilename = "$BuildDir/llvm/utils/NightlyTest.gnuplot"; -} -die "GNUPlot Script $PlotScriptFilename is not readable" if ( ! -r "$PlotScriptFilename" ); - -# Read in the HTML template file... -if ( $VERBOSE ) { print "READING TEMPLATE\n"; } -my $TemplateContents = ReadFile $Template; - -# -# Get some static statistics about the current state of CVS -# -my $CVSCheckoutTime = GetRegex "([0-9.]+)", `grep '^real' $CVSLog`; -my $NumFilesInCVS = `egrep '^U' $CVSLog | wc -l` + 0; -my $NumDirsInCVS = `egrep '^cvs (checkout|server|update):' $CVSLog | wc -l` + 0; -$LOC = `utils/countloc.sh`; - -# -# Build the entire tree, saving build messages to the build log -# -if (!$NOCHECKOUT) { - if ( $VERBOSE ) { print "CONFIGURE STAGE\n"; } - my $EXTRAFLAGS = "--enable-spec --with-objroot=."; - system "(time -p $NICE ./configure $CONFIGUREARGS $EXTRAFLAGS) > $BuildLog 2>&1"; - - if ( $VERBOSE ) { print "BUILD STAGE\n"; } - # Build the entire tree, capturing the output into $BuildLog - system "(time -p $NICE gmake $MAKEOPTS) >> $BuildLog 2>&1"; -} - - -# -# Get some statistics about the build... -# -my @Linked = split '\n', `grep Linking $BuildLog`; -my $NumExecutables = scalar(grep(/executable/, @Linked)); -my $NumLibraries = scalar(grep(!/executable/, @Linked)); -my $NumObjects = `grep ']\: Compiling ' $BuildLog | wc -l` + 0; - -my $ConfigTimeU = GetRegexNum "^user", 0, "([0-9.]+)", "$BuildLog"; -my $ConfigTimeS = GetRegexNum "^sys", 0, "([0-9.]+)", "$BuildLog"; -my $ConfigTime = $ConfigTimeU+$ConfigTimeS; # ConfigTime = User+System -my $ConfigWallTime = GetRegexNum "^real", 0,"([0-9.]+)","$BuildLog"; - -my $BuildTimeU = GetRegexNum "^user", 1, "([0-9.]+)", "$BuildLog"; -my $BuildTimeS = GetRegexNum "^sys", 1, "([0-9.]+)", "$BuildLog"; -my $BuildTime = $BuildTimeU+$BuildTimeS; # BuildTime = User+System -my $BuildWallTime = GetRegexNum "^real", 1, "([0-9.]+)","$BuildLog"; - -my $BuildError = 0, $BuildStatus = "OK"; -if (`grep '^gmake[^:]*: .*Error' $BuildLog | wc -l` + 0 || - `grep '^gmake: \*\*\*.*Stop.' $BuildLog | wc -l`+0) { - $BuildStatus = "

    error: compilation " . - "aborted

    "; - $BuildError = 1; - print "\n***ERROR BUILDING TREE\n\n"; -} - -if ($BuildError) { $NODEJAGNU=1; } - -my $DejangnuTestResults; # String containing the results of the dejagnu -if(!$NODEJAGNU) { - if($VERBOSE) { print "DEJAGNU FEATURE/REGRESSION TEST STAGE\n"; } - - my $dejagnu_output = "$DejagnuTestsLog"; - - #Run the feature and regression tests, results are put into testrun.sum - #Full log in testrun.log - system "(time -p gmake $MAKEOPTS check) > $dejagnu_output 2>&1"; - - #Extract time of dejagnu tests - my $DejagnuTimeU = GetRegexNum "^user", 0, "([0-9.]+)", "$dejagnu_output"; - my $DejagnuTimeS = GetRegexNum "^sys", 0, "([0-9.]+)", "$dejagnu_output"; - $DejagnuTime = $DejagnuTimeU+$DejagnuTimeS; # DejagnuTime = User+System - $DejagnuWallTime = GetRegexNum "^real", 0,"([0-9.]+)","$dejagnu_output"; - - #Copy the testrun.log and testrun.sum to our webdir - CopyFile("test/testrun.log", $DejagnuLog); - CopyFile("test/testrun.sum", $DejagnuSum); - - $DejagnuTestResults = GetDejagnuTestResults($DejagnuSum, $DejagnuLog); - -} else { - $DejagnuTestResults = "Skipped by user choice."; - $DejagnuTime = "0.0"; - $DejagnuWallTime = "0.0"; -} - -if ($DEBUG) { - print $DejagnuTestResults; -} - -if ( $VERBOSE ) { print "BUILD INFORMATION COLLECTION STAGE\n"; } -# -# Get warnings from the build -# -my @Warn = split "\n", `egrep 'warning:|Entering dir' $BuildLog`; -my @Warnings; -my $CurDir = ""; - -foreach $Warning (@Warn) { - if ($Warning =~ m/Entering directory \`([^\`]+)\'/) { - $CurDir = $1; # Keep track of directory warning is in... - if ($CurDir =~ m#$BuildDir/llvm/(.*)#) { # Remove buildir prefix if included - $CurDir = $1; - } - } else { - push @Warnings, "$CurDir/$Warning"; # Add directory to warning... - } -} -my $WarningsFile = join "\n", @Warnings; -my $WarningsList = ArrayToList @Warnings; -$WarningsFile =~ s/:[0-9]+:/::/g; - -# Emit the warnings file, so we can diff... -WriteFile "$WebDir/$DATE-Warnings.txt", $WarningsFile . "\n"; -my ($WarningsAdded, $WarningsRemoved) = DiffFiles "-Warnings.txt"; - -# Output something to stdout if something has changed -print "ADDED WARNINGS:\n$WarningsAdded\n\n" if (length $WarningsAdded); -print "REMOVED WARNINGS:\n$WarningsRemoved\n\n" if (length $WarningsRemoved); - -my @TmpWarningsAdded = split "\n", $WarningsAdded; -my @TmpWarningsRemoved = split "\n", $WarningsRemoved; -$WarningsAdded = ArrayToList @TmpWarningsAdded; -$WarningsRemoved = ArrayToList @TmpWarningsRemoved; - -# -# Get some statistics about CVS commits over the current day... -# -if ($VERBOSE) { print "CVS HISTORY ANALYSIS STAGE\n"; } -@CVSHistory = split "\n", `cvs history -D '1 day ago' -a -xAMROCGUW`; -#print join "\n", @CVSHistory; print "\n"; - -# Extract some information from the CVS history... use a hash so no duplicate -# stuff is stored. -my (%AddedFiles, %ModifiedFiles, %RemovedFiles, %UsersCommitted, %UsersUpdated); - -my $DateRE = '[-/:0-9 ]+\+[0-9]+'; - -# Loop over every record from the CVS history, filling in the hashes. -foreach $File (@CVSHistory) { - my ($Type, $Date, $UID, $Rev, $Filename); - if ($File =~ /([AMRUGC]) ($DateRE) ([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+)/) { - ($Type, $Date, $UID, $Rev, $Filename) = ($1, $2, $3, $4, "$6/$5"); - } elsif ($File =~ /([W]) ($DateRE) ([^ ]+)/) { - ($Type, $Date, $UID, $Rev, $Filename) = ($1, $2, $3, "", ""); - } elsif ($File =~ /([O]) ($DateRE) ([^ ]+) +([^ ]+)/) { - ($Type, $Date, $UID, $Rev, $Filename) = ($1, $2, $3, "", "$4/"); - } else { - print "UNMATCHABLE: $File\n"; - next; - } - # print "$File\nTy = $Type Date = '$Date' UID=$UID Rev=$Rev File = '$Filename'\n"; - - if ($Filename =~ /^llvm/) { - if ($Type eq 'M') { # Modified - $ModifiedFiles{$Filename} = 1; - $UsersCommitted{$UID} = 1; - } elsif ($Type eq 'A') { # Added - $AddedFiles{$Filename} = 1; - $UsersCommitted{$UID} = 1; - } elsif ($Type eq 'R') { # Removed - $RemovedFiles{$Filename} = 1; - $UsersCommitted{$UID} = 1; - } else { - $UsersUpdated{$UID} = 1; - } - } -} - -my $UserCommitList = join "\n", sort keys %UsersCommitted; -my $UserUpdateList = join "\n", sort keys %UsersUpdated; -my $AddedFilesList = AddPreTag join "\n", sort keys %AddedFiles; -my $ModifiedFilesList = AddPreTag join "\n", sort keys %ModifiedFiles; -my $RemovedFilesList = AddPreTag join "\n", sort keys %RemovedFiles; - -my $TestError = 1; -my $SingleSourceProgramsTable = "!"; -my $MultiSourceProgramsTable = "!"; -my $ExternalProgramsTable = "!"; - - -sub TestDirectory { - my $SubDir = shift; - - ChangeDir( "projects/llvm-test/$SubDir", "Programs Test Subdirectory" ); - - my $ProgramTestLog = "$Prefix-$SubDir-ProgramTest.txt"; - - # Run the programs tests... creating a report.nightly.html file - if (!$NOTEST) { - system "gmake -k $MAKEOPTS $PROGTESTOPTS report.nightly.html " - . "TEST=nightly > $ProgramTestLog 2>&1"; - } else { - system "gunzip ${ProgramTestLog}.gz"; - } - - my $ProgramsTable; - if (`grep '^gmake[^:]: .*Error' $ProgramTestLog | wc -l` + 0){ - $TestError = 1; - $ProgramsTable = "

    Error running tests!

    "; - print "ERROR TESTING\n"; - } elsif (`grep '^gmake[^:]: .*No rule to make target' $ProgramTestLog | wc -l` + 0) { - $TestError = 1; - $ProgramsTable = - "

    Makefile error running tests!

    "; - print "ERROR TESTING\n"; - } else { - $TestError = 0; - $ProgramsTable = ReadFile "report.nightly.html"; - - # - # Create a list of the tests which were run... - # - system "egrep 'TEST-(PASS|FAIL)' < $ProgramTestLog " - . "| sort > $Prefix-$SubDir-Tests.txt"; - } - - # Compress the test output - system "gzip -f $ProgramTestLog"; - ChangeDir( "../../..", "Programs Test Parent Directory" ); - return $ProgramsTable; -} - -# If we built the tree successfully, run the nightly programs tests... -if (!$BuildError) { - if ( $VERBOSE ) { - print "SingleSource TEST STAGE\n"; - } - $SingleSourceProgramsTable = TestDirectory("SingleSource"); - if ( $VERBOSE ) { - print "MultiSource TEST STAGE\n"; - } - $MultiSourceProgramsTable = TestDirectory("MultiSource"); - if ( ! $NOEXTERNALS ) { - if ( $VERBOSE ) { - print "External TEST STAGE\n"; - } - $ExternalProgramsTable = TestDirectory("External"); - system "cat $Prefix-SingleSource-Tests.txt $Prefix-MultiSource-Tests.txt ". - " $Prefix-External-Tests.txt | sort > $Prefix-Tests.txt"; - } else { - $ExternalProgramsTable = 'External TEST STAGE SKIPPED'; - if ( $VERBOSE ) { - print "External TEST STAGE SKIPPED\n"; - } - system "cat $Prefix-SingleSource-Tests.txt $Prefix-MultiSource-Tests.txt ". - " | sort > $Prefix-Tests.txt"; - } -} - -if ( $VERBOSE ) { print "TEST INFORMATION COLLECTION STAGE\n"; } -my ($TestsAdded, $TestsRemoved, $TestsFixed, $TestsBroken) = ("","","",""); - -if ($TestError) { - $TestsAdded = "error testing
    "; - $TestsRemoved = "error testing
    "; - $TestsFixed = "error testing
    "; - $TestsBroken = "error testing
    "; -} else { - my ($RTestsAdded, $RTestsRemoved) = DiffFiles "-Tests.txt"; - - my @RawTestsAddedArray = split '\n', $RTestsAdded; - my @RawTestsRemovedArray = split '\n', $RTestsRemoved; - - my %OldTests = map {GetRegex('TEST-....: (.+)', $_)=>$_} - @RawTestsRemovedArray; - my %NewTests = map {GetRegex('TEST-....: (.+)', $_)=>$_} - @RawTestsAddedArray; - - foreach $Test (keys %NewTests) { - if (!exists $OldTests{$Test}) { # TestAdded if in New but not old - $TestsAdded = "$TestsAdded$Test\n"; - } else { - if ($OldTests{$Test} =~ /TEST-PASS/) { # Was the old one a pass? - $TestsBroken = "$TestsBroken$Test\n"; # New one must be a failure - } else { - $TestsFixed = "$TestsFixed$Test\n"; # No, new one is a pass. - } - } - } - foreach $Test (keys %OldTests) { # TestRemoved if in Old but not New - $TestsRemoved = "$TestsRemoved$Test\n" if (!exists $NewTests{$Test}); - } - - print "\nTESTS ADDED: \n\n$TestsAdded\n\n" if (length $TestsAdded); - print "\nTESTS REMOVED:\n\n$TestsRemoved\n\n" if (length $TestsRemoved); - print "\nTESTS FIXED: \n\n$TestsFixed\n\n" if (length $TestsFixed); - print "\nTESTS BROKEN: \n\n$TestsBroken\n\n" if (length $TestsBroken); - - $TestsAdded = AddPreTag $TestsAdded; - $TestsRemoved = AddPreTag $TestsRemoved; - $TestsFixed = AddPreTag $TestsFixed; - $TestsBroken = AddPreTag $TestsBroken; -} - - -# If we built the tree successfully, runs of the Olden suite with -# LARGE_PROBLEM_SIZE on so that we can get some "running" statistics. -if (!$BuildError) { - if ( $VERBOSE ) { print "OLDEN TEST SUITE STAGE\n"; } - my ($NATTime, $CBETime, $LLCTime, $JITTime, $OptTime, $BytecodeSize, - $MachCodeSize) = ("","","","","","",""); - if (!$NORUNNINGTESTS) { - ChangeDir( "$BuildDir/llvm/projects/llvm-test/MultiSource/Benchmarks/Olden", - "Olden Test Directory"); - - # Clean out previous results... - system "$NICE gmake $MAKEOPTS clean > /dev/null 2>&1"; - - # Run the nightly test in this directory, with LARGE_PROBLEM_SIZE and - # GET_STABLE_NUMBERS enabled! - system "gmake -k $MAKEOPTS $PROGTESTOPTS report.nightly.raw.out TEST=nightly " . - " LARGE_PROBLEM_SIZE=1 GET_STABLE_NUMBERS=1 > /dev/null 2>&1"; - system "cp report.nightly.raw.out $OldenTestsLog"; - } else { - system "gunzip ${OldenTestsLog}.gz"; - } - - # Now we know we have $OldenTestsLog as the raw output file. Split - # it up into records and read the useful information. - my @Records = split />>> ========= /, ReadFile "$OldenTestsLog"; - shift @Records; # Delete the first (garbage) record - - # Loop over all of the records, summarizing them into rows for the running - # totals file. - my $WallTimeRE = "Time: ([0-9.]+) seconds \\([0-9.]+ wall clock"; - foreach $Rec (@Records) { - my $rNATTime = GetRegex 'TEST-RESULT-nat-time: program\s*([.0-9m]+)', $Rec; - my $rCBETime = GetRegex 'TEST-RESULT-cbe-time: program\s*([.0-9m]+)', $Rec; - my $rLLCTime = GetRegex 'TEST-RESULT-llc-time: program\s*([.0-9m]+)', $Rec; - my $rJITTime = GetRegex 'TEST-RESULT-jit-time: program\s*([.0-9m]+)', $Rec; - my $rOptTime = GetRegex "TEST-RESULT-compile: .*$WallTimeRE", $Rec; - my $rBytecodeSize = GetRegex 'TEST-RESULT-compile: *([0-9]+)', $Rec; - - $NATTime .= " " . FormatTime($rNATTime); - $CBETime .= " " . FormatTime($rCBETime); - $LLCTime .= " " . FormatTime($rLLCTime); - $JITTime .= " " . FormatTime($rJITTime); - $OptTime .= " $rOptTime"; - $BytecodeSize .= " $rBytecodeSize"; - } - - # Now that we have all of the numbers we want, add them to the running totals - # files. - AddRecord($NATTime, "running_Olden_nat_time.txt"); - AddRecord($CBETime, "running_Olden_cbe_time.txt"); - AddRecord($LLCTime, "running_Olden_llc_time.txt"); - AddRecord($JITTime, "running_Olden_jit_time.txt"); - AddRecord($OptTime, "running_Olden_opt_time.txt"); - AddRecord($BytecodeSize, "running_Olden_bytecode.txt"); - - system "gzip -f $OldenTestsLog"; -} - - -# -# Get a list of the previous days that we can link to... -# -my @PrevDays = map {s/.html//; $_} GetDir ".html"; - -if ((scalar @PrevDays) > 20) { - splice @PrevDays, 20; # Trim down list to something reasonable... -} - -# Format list for sidebar -my $PrevDaysList = join "\n ", map { "$_
    " } @PrevDays; - -# -# Start outputting files into the web directory -# -ChangeDir( $WebDir, "Web Directory" ); - -# Make sure we don't get errors running the nightly tester the first time -# because of files that don't exist. -Touch ('running_build_time.txt', 'running_Olden_llc_time.txt', - 'running_loc.txt', - 'running_Olden_bytecode.txt', 'running_Olden_nat_time.txt', - 'running_Olden_cbe_time.txt', 'running_Olden_opt_time.txt', - 'running_Olden_jit_time.txt'); - -# Add information to the files which accumulate information for graphs... -AddRecord($LOC, "running_loc.txt"); -AddRecord($BuildTime, "running_build_time.txt"); - -if ( $VERBOSE ) { - print "GRAPH GENERATION STAGE\n"; -} -# -# Rebuild the graphs now... -# -$GNUPLOT = "/usr/bin/gnuplot"; -$GNUPLOT = "gnuplot" if ! -x $GNUPLOT; -system ("$GNUPLOT", $PlotScriptFilename); - -# -# Remove the cvs tree... -# -system ( "$NICE rm -rf $BuildDir") if (!$NOCHECKOUT and !$NOREMOVE); - -print "\nUSERS WHO COMMITTED:\n " . (join "\n ", sort keys %UsersCommitted) . "\n" - if (scalar %UsersCommitted); - -print "\nADDED FILES:\n " . (join "\n ", sort keys %AddedFiles) . "\n" - if (scalar %AddedFiles); - -print "\nCHANGED FILES:\n " . (join "\n ", sort keys %ModifiedFiles) . "\n" - if (scalar %ModifiedFiles); - -print "\nREMOVED FILES:\n " . (join "\n ", sort keys %RemovedFiles) . "\n" - if (scalar %RemovedFiles); - -# -# Print out information... -# -if ($VERBOSE) { - print "DateString: $DateString\n"; - print "CVS Checkout: $CVSCheckoutTime seconds\n"; - print "Files/Dirs/LOC in CVS: $NumFilesInCVS/$NumDirsInCVS/$LOC\n"; - print "Build Time: $BuildTime seconds\n"; - print "Libraries/Executables/Objects built: $NumLibraries/$NumExecutables/$NumObjects\n"; - - print "WARNINGS:\n $WarningsList\n"; - print "Previous Days =\n $PrevDaysList\n"; -} - - -# -# Output the files... -# - -if ( $VERBOSE ) { - print "OUTPUT STAGE\n"; -} -# Main HTML file... -my $Output; -my $TestFinishTime = gmtime() . " GMT
    " . localtime() . " (local)"; - -my $TestPlatform = `uname -a`; -eval "\$Output = <