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

tests: pass widgetset name to lazbuild

Browse Source 
git-svn-id: trunk@17137 -
This commit is contained in:
vincents 2008-10-27 14:21:05 +00:00
parent f0b96b997f
commit 8b2b41eae0
4 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
test/bugs/12216/bug12216.lpi
View File

@ -6,7 +6,6 @@
<General>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
</General>
<VersionInfo>

6
test/bugtestcase.pas
View File

@ -23,8 +23,9 @@ unit BugTestCase;
interface
uses
Classes, SysUtils, Math, process, FileUtil, AsyncProcess, fpcunit,
testregistry, TestGlobals;
Classes, SysUtils, Math, process, fpcunit, testregistry,
FileUtil, AsyncProcess, InterfaceBase,
TestGlobals;
type
@ -95,6 +96,7 @@ begin
CmdLine := CmdLine + ' --compiler='+Compiler;
if PrimaryConfigPath<>'' then
CmdLine := CmdLine + ' --pcp='+PrimaryConfigPath;
Cmdline := Cmdline + ' --ws=' + LCLPlatformDirNames[WidgetSet.LCLPlatform];
CmdLine:=CmdLine + ' ' + FProjectFile;
LazBuild.CommandLine := CmdLine;
LazBuild.CurrentDirectory := FPath;

1
test/runtests.lpi
View File

@ -6,7 +6,6 @@
<General>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
</General>
<PublishOptions>

5
test/testlpi.pas
View File

@ -24,7 +24,7 @@ interface
uses
Classes, SysUtils, strutils, fpcunit, testregistry, process, AsyncProcess,
FileUtil,
InterfaceBase, FileUtil,
TestGlobals;
type
@ -152,6 +152,7 @@ begin
CmdLine:=Cmdline + ' --compiler='+Compiler;
if PrimaryConfigPath<>'' then
CmdLine := CmdLine + ' --pcp='+PrimaryConfigPath;
Cmdline := Cmdline + ' --ws=' + LCLPlatformDirNames[WidgetSet.LCLPlatform];
Cmdline := Cmdline + ' -B ' + FPath;
LazBuild.CommandLine := CmdLine;
LazBuild.CurrentDirectory := ExtractFileDir(FPath);
@ -176,8 +177,10 @@ end;
class function TLpiTest.CreateSuiteFromFile(const AName,
APath: string): TTestSuite;
{$IFDEF win32}
var
AhkFileName: String;
{$ENDIF}
begin
Result := inherited CreateSuiteFromFile(AName, APath);
{$IFDEF win32}