strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
office-gobmx/sal/qa/buildall.pl
Rüdiger Timm 58ae19bec4 INTEGRATION: CWS qadev17 (1.2.2); FILE MERGED 
2004/04/23 13:06:23 lla 1.2.2.3: #116021# add PASSED OK or PASSED Failed
2004/04/23 11:16:34 lla 1.2.2.2: #116021# solve problems with dmake test in sal/qa directory, some tests won't execute, compile errors won't found
2004/03/24 08:39:41 lla 1.2.2.1: #116021# don't run through test double
2004-05-03 07:54:05 +00:00

534 lines
13 KiB
Perl
Raw Blame History

eval 'exec perl -wS $0 ${1+"$@"}'
if 0;
# *************************************************************************
# *
# * $RCSfile: buildall.pl,v $
# *
# * $Revision: 1.3 $
# *
# * last change: $Author: rt $ $Date: 2004-05-03 08:54:05 $
# *
# * The Contents of this file are made available subject to the terms of
# * either of the following licenses
# *
# * - GNU Lesser General Public License Version 2.1
# * - Sun Industry Standards Source License Version 1.1
# *
# * Sun Microsystems Inc., October, 2000
# *
# * GNU Lesser General Public License Version 2.1
# * =============================================
# * Copyright 2000 by Sun Microsystems, Inc.
# * 901 San Antonio Road, Palo Alto, CA 94303, USA
# *
# * This library is free software; you can redistribute it and/or
# * modify it under the terms of the GNU Lesser General Public
# * License version 2.1, as published by the Free Software Foundation.
# *
# * This library is distributed in the hope that it will be useful,
# * but WITHOUT ANY WARRANTY; without even the implied warranty of
# * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# * Lesser General Public License for more details.
# *
# * You should have received a copy of the GNU Lesser General Public
# * License along with this library; if not, write to the Free Software
# * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
# * MA 02111-1307 USA
# *
# *
# * Sun Industry Standards Source License Version 1.1
# * =================================================
# * The contents of this file are subject to the Sun Industry Standards
# * Source License Version 1.1 (the "License"); You may not use this file
# * except in compliance with the License. You may obtain a copy of the
# * License at http://www.openoffice.org/license.html.
# *
# * Software provided under this License is provided on an "AS IS" basis,
# * WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
# * WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
# * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
# * See the License for the specific provisions governing your rights and
# * obligations concerning the Software.
# *
# * The Initial Developer of the Original Code is: Sun Microsystems, Inc.
# *
# * Copyright: 2000 by Sun Microsystems, Inc.
# *
# * All Rights Reserved.
# *
# * Contributor(s): _______________________________________
# *
# *
# ************************************************************************
# #!/usr/bin/perl -w
use strict;
use POSIX;
use Cwd;
use File::Path;
use English;
use Cwd 'chdir';
my $cwd = getcwd();
my $g_sTempDir = "";
my $FS = "";
my $nGlobalFailures = 0;
my %libraryRunThrough;
my $bBuildAll = 0;
# LLA: this does not exist, ... use a little bit simpler method.
# use File::Temp qw/ :POSIX /;
my $params;
my $param;
if ($#ARGV < 0)
{
$params = "test "; # debug=t TESTOPTADD=\"-boom\" TESTOPTADD=\"-noerroronexit\"
# my $nNumber = 55;
# my $sLocalParams = $params;
# $sLocalParams =~ s/test\s/test$nNumber /;
# print "Testparams: $sLocalParams\n";
# exit 1;
print "Default ";
}
else
{
# special hack!
if (checkForKillobj() == 1)
{
$params = "killobj";
}
elsif (checkARGVFor("buildall") == 1)
{
$bBuildAll = 1;
$params = "test";
}
else
{
# always run test, but envelope the other in 'TESTOPT="..."'
$params = "test TESTOPT=\"";
foreach $param (@ARGV)
{
$params = $params . " " . $param;
}
$params = $params . "\"";
}
print "User defined ";
}
print "parameters for dmake: $params\n";
initEnvironment();
main($params);
# ------------------------------------------------------------------------------
sub checkARGVFor($)
{
my $sCheckValue = shift;
my $sLocalParam;
my $nBackValue = 0;
foreach $sLocalParam (@ARGV)
{
if ($sLocalParam =~ /^${sCheckValue}$/)
{
$nBackValue = 1;
last;
}
}
return $nBackValue;
}
# ------------------------------------------------------------------------------
sub checkForKillobj()
{
my $sLocalParam;
my $nBackValue = 0;
foreach $sLocalParam (@ARGV)
{
if ($sLocalParam =~ /^killobj$/)
{
$nBackValue = 1;
last;
}
}
return $nBackValue;
}
# ------------------------------------------------------------------------------
sub initEnvironment()
{
my $gui = $ENV{GUI};
# no error output in forms of message boxes
$ENV{'DISABLE_SAL_DBGBOX'}="t";
SWITCH: {
if ( $gui eq "WNT" ) {
$FS = "\\";
$g_sTempDir = $ENV{TMP} ? "$ENV{TMP}${FS}" : "c:${FS}tmp${FS}";
last SWITCH;
}
if ( $gui eq "WIN" ) {
$FS = "\\";
$g_sTempDir = $ENV{TMP} ? "$ENV{TMP}${FS}" : "c:${FS}tmp${FS}";
last SWITCH;
}
if ( $gui eq "OS2" ) {
$FS = "\\";
$g_sTempDir = $ENV{TMP} ? "$ENV{TMP}${FS}" : "c:${FS}tmp${FS}";
last SWITCH;
}
if ( $gui eq "UNX" ) {
$FS = "/";
$g_sTempDir = $ENV{TMP} ? "$ENV{TMP}${FS}" : "${FS}tmp${FS}";
last SWITCH;
}
print STDERR "buildall.pl: unkown platform\n";
exit(1);
}
}
# ------------------------------------------------------------------------------
sub trim($)
{
my $oldstr = shift;
$oldstr =~ s/^\s*(.*?)\s*$/$1/;
return $oldstr;
}
# ------------------------------------------------------------------------------
sub getLibName($)
{
my $sFile = shift;
if ($OSNAME eq "linux" || $OSNAME eq "solaris")
{
return "lib" . $sFile . ".so";
}
if ($OSNAME eq "MSWin32")
{
return $sFile . ".dll";
}
return $sFile;
}
# ------------------------------------------------------------------------------
sub giveOutAll($)
{
my $sFailureFile = shift;
local *IN;
if (! open(IN, $sFailureFile))
{
print "ERROR: Can't open output file $sFailureFile\n";
return;
}
my $line;
while ($line = <IN>)
{
chomp($line);
print "$line\n";
}
close(IN);
}
# ------------------------------------------------------------------------------
sub giveOutFailures($$)
{
my $sTest = shift;
my $sFailureFile = shift;
my $bBegin = 0;
my $nFailures = 0;
my $line;
local *IN;
if (! open(IN, $sFailureFile))
{
print "ERROR: Can't open output file $sFailureFile\n";
return;
}
my $bStartUnitTest = 0;
while ($line = <IN>)
{
chomp($line);
if ( $line =~ /^- start unit test/)
{
$bStartUnitTest = 1;
}
}
close(IN);
if ($bStartUnitTest == 0)
{
print "\nFailure: Unit test not started. Maybe compiler error.\n";
giveOutAll($sFailureFile);
$nFailures++;
# exit(1);
}
else
{
open(IN, $sFailureFile);
# check if testshl2 was started
while ($line = <IN>)
{
chomp($line);
# handling of the states
if ( $line =~ /^\# -- BEGIN:/)
{
$bBegin = 1;
}
elsif ( $line =~ /^\# -- END:/)
{
$bBegin = 0;
}
else
{
if ($bBegin == 1)
{
print "$line\n";
$nFailures++;
}
}
}
close(IN);
}
if ($nFailures > 0)
{
# extra return for a better output
print "\nFailures occured: $nFailures\n";
print "The whole output can be found in $sFailureFile\n";
print "\n";
# Statistics
$nGlobalFailures += $nFailures;
}
}
# ------------------------------------------------------------------------------
sub printOnLibrary($)
{
my $sTarget = shift;
print " on library: " . getLibName($sTarget);
}
# ------------------------------------------------------------------------------
sub runASingleTest($$)
{
my $sTarget = shift;
my $params = shift;
my $dmake = "dmake $params";
my $sLogPath = $g_sTempDir . "dmake_out_$$";
mkdir($sLogPath);
my $sLogFile = $sLogPath . "/" . $sTarget . ".out";
# due to the fact, a library name in one project is distinct, we should remember all already run through libraries and
# supress same libraries, if they occur one more.
if (exists $libraryRunThrough{getLibName($sTarget)})
{
# already done
return;
}
printOnLibrary($sTarget);
print "\n";
# redirect tcsh ">&" (stdout, stderr)
# redirect 4nt ">" (stdout), "2>" (stderr)
# print "OSNAME: $OSNAME\n";
# LLA: redirect check canceled, seems to be not work as I want.
# my $redirect = "";
# if ($OSNAME eq "linux" || $OSNAME eq "solaris")
# {
# # print "UNIX, linux or solaris\n";
# $redirect = '>>&!' . $sLogFile;
# }
# else
# {
# if ($OSNAME eq "MSWin32")
# {
# # test
# $redirect = ">>$sLogFile 2>>$sLogFile";
# }
# }
# print "$dmake $redirect\n";
# LLA: so system does also not work as I imagine
# system("$dmake $redirect");
# LLA: next check, use open with pipe
local *LOGFILE;
if (! open( LOGFILE, '>' . "$sLogFile"))
{
print "ERROR: can't open logfile: $sLogFile\n";
return;
}
my $line;
local *DMAKEOUTPUT;
if (! open( DMAKEOUTPUT, "$dmake 2>&1 |"))
{
print "ERROR: can't open dmake\n";
return;
}
while ($line = <DMAKEOUTPUT>)
{
chomp($line);
print LOGFILE "$line\n";
}
close(DMAKEOUTPUT);
close(LOGFILE);
giveOutFailures($sTarget, $sLogFile);
$libraryRunThrough{getLibName($sTarget)} = "done";
}
# ------------------------------------------------------------------------------
sub interpretLine($)
{
my $line = shift;
my $path;
my $file;
if ($line =~ /^\#/ || $line =~ /^$/)
{
# remark or empty line
}
else
{
# special format, $file == $path
($path, $file) = split(/;/, $line);
if (! $file)
{
$file = $path;
}
$file = trim($file);
$path = trim($path);
}
return $path, $file;
}
# ------------------------------------------------------------------------------
sub runTestsOnPath($$$)
{
my $path = shift;
my $file = shift;
my $params = shift;
# empty values
if (!$path || $path eq "")
{
# DBG: print "empty path '$path'\n";
return;
}
if (!$file || $file eq "")
{
# DBG: print "empty file '$file'\n";
return;
}
# print "File: '$file', Path: '$path'\n";
print "Work in directory: $path\n";
my $newpath = $cwd . $FS . $path;
# print "chdir to $newpath\n";
my $error = chdir($newpath);
cwd();
# run through the hole makefile.mk and check if SHL<D>TARGET = ... exist, for every target call "dmake test<D>"
local *MAKEFILE_MK;
if (! open(MAKEFILE_MK, "makefile.mk"))
{
print "ERROR: can't open makefile.mk in path: $newpath\n";
print "please check your libs2test.txt file in qa directory.\n";
}
my $line;
my $nNumber;
my $sTarget;
my $sLocalParams;
while($line = <MAKEFILE_MK>)
{
chomp($line);
if ($line =~ /SHL(\d)TARGET=(.*)/)
{
$nNumber = $1;
$sTarget = trim($2);
# DBG: print "test$number is lib: $target\n";
$sLocalParams = $params . " "; # append a whitespace, so we can check if 'test' exist without additional digits
$sLocalParams =~ s/test\s/test$nNumber/;
# DBG: print "$sLocalParams\n";
if ($bBuildAll == 1 ||
$file eq $sTarget)
{
# print "runASingleTest on Target: $sTarget 'dmake $sLocalParams'\n";
runASingleTest($sTarget, $sLocalParams);
}
else
{
# printOnLibrary($sTarget);
# print " suppressed, not in libs2test.txt\n";
}
}
}
close(MAKEFILE_MK);
}
# ------------------------------------------------------------------------------
sub main($)
{
my $params = shift;
# my $sLogFile = shift; # "buildall_$$.out";
local *LIBS2TEST;
my $filename = "libs2test.txt";
my $line;
open(LIBS2TEST, $filename) || die "can't open $filename\n";
while($line = <LIBS2TEST>)
{
chomp($line);
# DOS Hack grrrr...
while ($line =~ /
$/)
{
$line = substr($line, 0, -1);
}
# print "$line\n";
my $path;
my $file;
($path, $file) = interpretLine($line);
runTestsOnPath($path, $file, $params);
}
close(LIBS2TEST);
print "\nComplete logging information will be found in dir: ".$g_sTempDir."dmake_out_$$/\n";
if ($nGlobalFailures > 0)
{
print "\nFailures over all occured: $nGlobalFailures\n";
print "\nPASSED FAILED.\n";
}
else
{
print "\nPASSED OK.\n";
}
}
# ------------------------------------------------------------------------------
# TODO:
# -verbose
# -fan - \ | /
# END!
Reference in a new issue View git blame Copy permalink