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

tests: cleanup

Browse Source 
git-svn-id: trunk@13615 -
This commit is contained in:
vincents 2008-01-04 11:38:12 +00:00
parent b1093f1b88
commit 3cfc2df7f8
2 changed files with 9 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/runtestsgui.lpi
View File

@ -23,13 +23,13 @@
</RunParams>
<RequiredPackages Count="3">
<Item1>
<PackageName Value="LCL"/>
<PackageName Value="FCL"/>
</Item1>
<Item2>
<PackageName Value="FPCUnitTestRunner"/>
</Item2>
<Item3>
<PackageName Value="FCL"/>
<PackageName Value="LCL"/>
</Item3>
</RequiredPackages>
<Units Count="6">

23
test/testlpi.pas
View File

@ -121,6 +121,13 @@ begin
SearchDirectory('')
end;
class function TLpkTest.CreateSuiteFromFile(const AName,
APath: string): TTestSuite;
begin
Result := TTestSuite.Create(AName);
Result.AddTest(Create(APath, 'TestCompile'));
end;
procedure TLpkTest.TestCompile;
var
LazBuildPath: string;
@ -185,22 +192,6 @@ begin
end;
end;
class function TLpkTest.CreateSuiteFromFile(const AName,
APath: string): TTestSuite;
var
AhkFileName: String;
begin
Result := TTestSuite.Create(AName);
Result.AddTest(TLpiTest.Create(APath, 'TestCompile'));
{$IFDEF win32}
AhkFileName := GetScriptFileName(APath);
if FileExists(AhkFileName) then
Result.AddTest(TLpiTest.Create(APath, 'TestRun'));
{$ELSE}
{$NOTE scripting is only available on win32}
{$ENDIF}
end;
procedure TLpiTest.TestRun;
var
TestProcess : TProcess;