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

test: add codetools examples to the test suite for compilation

Browse Source 
git-svn-id: trunk@11030 -
This commit is contained in:
vincents 2007-04-29 13:00:06 +00:00
parent 00e7a6e50f
commit b5c463103f
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/testlpi.pas
View File

@ -48,6 +48,7 @@ implementation
var
LazarusDir: string;
ExamplesDir: string;
CTExamplesDir: string;
LCLTestDir: string;
ScriptEngine: string;
@ -55,6 +56,7 @@ procedure InitDirectories;
begin
LazarusDir := ExpandFileName(ExtractFilePath(ParamStr(0)) + '../');
ExamplesDir := LazarusDir + 'examples' + PathDelim;
CTExamplesDir := SetDirSeparators(LazarusDir + 'components/codetools/examples/');
LCLTestDir := LazarusDir + 'lcl' + PathDelim + 'tests' + PathDelim;
ScriptEngine := 'C:\Program Files\AutoHotkey\AutoHotKey.exe';
end;
@ -182,6 +184,8 @@ initialization
InitDirectories;
GetTestRegistry.AddTest(
TLpiTest.CreateSuiteFromDirectory('Examples', ExamplesDir));
GetTestRegistry.AddTest(
TLpiTest.CreateSuiteFromDirectory('Codetools Examples', CTExamplesDir));
GetTestRegistry.AddTest(
TLpiTest.CreateSuiteFromDirectory('LCL test', LCLTestDir));
end.