-##############################################################
-#
-# Running dejagnu tests
-#
-##############################################################
-my $DejangnuTestResults=""; # String containing the results of the dejagnu
-my $dejagnu_output = "$DejagnuTestsLog";
-if (!$NODEJAGNU) {
- #Run the feature and regression tests, results are put into testrun.sum
- #Full log in testrun.log
- RunLoggedCommand("(time -p $MAKECMD $MAKEOPTS check)", $dejagnu_output, "DEJAGNU");
-
- #Copy the testrun.log and testrun.sum to our webdir
- CopyFile("test/testrun.log", $DejagnuLog);
- CopyFile("test/testrun.sum", $DejagnuSum);
- #can be done on server
- $DejagnuTestResults = GetDejagnuTestResults($DejagnuSum, $DejagnuLog);
- $unexpfail_tests = $DejagnuTestResults;
-}
-
-#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";
-$DejagnuTestResults =
- "Dejagnu skipped by user choice." unless $DejagnuTestResults;
-$DejagnuTime = "0.0" unless $DejagnuTime;
-$DejagnuWallTime = "0.0" unless $DejagnuWallTime;
-
-##############################################################
-#
-# Get warnings from the build
-#
-##############################################################
-if (!$NODEJAGNU) {
- if ( $VERBOSE ) { print "BUILD INFORMATION COLLECTION STAGE\n"; }
- 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...
- # Remove buildir prefix if included
- if ($CurDir =~ m#$LLVMSrcDir/(.*)#) { $CurDir = $1; }
- } else {
- push @Warnings, "$CurDir/$Warning"; # Add directory to warning...
- }
- }
- my $WarningsFile = join "\n", @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; ~PJ on upgrade
- #my @TmpWarningsRemoved = split "\n", $WarningsRemoved; ~PJ on upgrade
-
-} #endif !NODEGAGNU
-
-##############################################################
-#
-# If we built the tree successfully, run the nightly programs tests...
-#
-# A set of tests to run is passed in (i.e. "SingleSource" "MultiSource"
-# "External")
-#
-##############################################################
-