paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 07:18:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

tests: added pcp parameter to the runtests program, so specify what settings will be used for building test projects

Browse Source 
git-svn-id: trunk@16684 -
This commit is contained in:
vincents 2008-09-23 12:46:36 +00:00
parent 122772d90c
commit 1bd23aae6a
4 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/bugtestcase.pas
View File

@ -93,6 +93,8 @@ begin
CmdLine := LazBuildPath;
if Compiler<>'' then
CmdLine := CmdLine + ' --compiler='+Compiler;
if PrimaryConfigPath<>'' then
CmdLine := CmdLine + ' --pcp='+PrimaryConfigPath;
CmdLine:=CmdLine + ' ' + FProjectFile;
LazBuild.CommandLine := CmdLine;
LazBuild.CurrentDirectory := FPath;

10
test/runtests.lpr
View File

@ -48,6 +48,7 @@ procedure TLazTestRunner.AppendLongOpts;
begin
inherited;
LongOpts.Add('compiler:');
LongOpts.Add('pcp:');
LongOpts.Add('machine:');
LongOpts.Add('submitter:');
end;
@ -57,6 +58,8 @@ begin
inherited ParseOptions;
if HasOption('compiler') then
Compiler := GetOptionValue('compiler');
if HasOption('pcp') then
PrimaryConfigPath := GetOptionValue('pcp');
if HasOption('submitter') then
FSubmitter := GetOptionValue('submitter');
if HasOption('machine') then
@ -65,9 +68,10 @@ end;
procedure TLazTestRunner.WriteCustomHelp;
begin
writeln(' --compiler=<ppcxxx> use ppcxxx to build test projects');
writeln(' --submitter=SubmitterName name to be stored as sumbitter of the test results');
writeln(' --machine=MachineName name of the machine to be stored with the test results');
writeln(' --compiler=<ppcxxx> use ppcxxx to build test projects');
writeln(' --pcp=<primarty-config-path> pass primarty-config-path to lazbuild');
writeln(' --submitter=SubmitterName name of sumbitter of the test results');
writeln(' --machine=MachineName name of the machine the test runs on');
end;
procedure TLazTestRunner.ExtendXmlDocument(Doc: TXMLDocument);

1
test/testglobals.pas
View File

@ -28,6 +28,7 @@ uses
var
Compiler: string;
PrimaryConfigPath: string;
BugsTestSuite: TTestSuite;
LCLTestSuite: TTestSuite;

2
test/testlpi.pas
View File

@ -150,6 +150,8 @@ begin
CmdLine:=LazBuildPath;
if Compiler<>'' then
CmdLine:=Cmdline + ' --compiler='+Compiler;
if PrimaryConfigPath<>'' then
CmdLine := CmdLine + ' --pcp='+PrimaryConfigPath;
Cmdline := Cmdline + ' -B ' + FPath;
LazBuild.CommandLine := CmdLine;
LazBuild.CurrentDirectory := ExtractFileDir(FPath);