paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-18 21:48:45 +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; CmdLine := LazBuildPath;
if Compiler<>'' then if Compiler<>'' then
CmdLine := CmdLine + ' --compiler='+Compiler; CmdLine := CmdLine + ' --compiler='+Compiler;
if PrimaryConfigPath<>'' then
CmdLine := CmdLine + ' --pcp='+PrimaryConfigPath;
CmdLine:=CmdLine + ' ' + FProjectFile; CmdLine:=CmdLine + ' ' + FProjectFile;
LazBuild.CommandLine := CmdLine; LazBuild.CommandLine := CmdLine;
LazBuild.CurrentDirectory := FPath; LazBuild.CurrentDirectory := FPath;

10
test/runtests.lpr
View File

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

1
test/testglobals.pas
View File

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

2
test/testlpi.pas
View File

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