paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 04:29:11 +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> </RunParams>
<RequiredPackages Count="3"> <RequiredPackages Count="3">
<Item1> <Item1>
<PackageName Value="LCL"/> <PackageName Value="FCL"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="FPCUnitTestRunner"/> <PackageName Value="FPCUnitTestRunner"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="FCL"/> <PackageName Value="LCL"/>
</Item3> </Item3>
</RequiredPackages> </RequiredPackages>
<Units Count="6"> <Units Count="6">

23
test/testlpi.pas
View File

@ -121,6 +121,13 @@ begin
SearchDirectory('') SearchDirectory('')
end; end;
class function TLpkTest.CreateSuiteFromFile(const AName,
APath: string): TTestSuite;
begin
Result := TTestSuite.Create(AName);
Result.AddTest(Create(APath, 'TestCompile'));
end;
procedure TLpkTest.TestCompile; procedure TLpkTest.TestCompile;
var var
LazBuildPath: string; LazBuildPath: string;
@ -185,22 +192,6 @@ begin
end; end;
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; procedure TLpiTest.TestRun;
var var
TestProcess : TProcess; TestProcess : TProcess;