paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-25 01:51:53 +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 var
LazarusDir: string; LazarusDir: string;
ExamplesDir: string; ExamplesDir: string;
CTExamplesDir: string;
LCLTestDir: string; LCLTestDir: string;
ScriptEngine: string; ScriptEngine: string;
@ -55,6 +56,7 @@ procedure InitDirectories;
begin begin
LazarusDir := ExpandFileName(ExtractFilePath(ParamStr(0)) + '../'); LazarusDir := ExpandFileName(ExtractFilePath(ParamStr(0)) + '../');
ExamplesDir := LazarusDir + 'examples' + PathDelim; ExamplesDir := LazarusDir + 'examples' + PathDelim;
CTExamplesDir := SetDirSeparators(LazarusDir + 'components/codetools/examples/');
LCLTestDir := LazarusDir + 'lcl' + PathDelim + 'tests' + PathDelim; LCLTestDir := LazarusDir + 'lcl' + PathDelim + 'tests' + PathDelim;
ScriptEngine := 'C:\Program Files\AutoHotkey\AutoHotKey.exe'; ScriptEngine := 'C:\Program Files\AutoHotkey\AutoHotKey.exe';
end; end;
@ -182,6 +184,8 @@ initialization
InitDirectories; InitDirectories;
GetTestRegistry.AddTest( GetTestRegistry.AddTest(
TLpiTest.CreateSuiteFromDirectory('Examples', ExamplesDir)); TLpiTest.CreateSuiteFromDirectory('Examples', ExamplesDir));
GetTestRegistry.AddTest(
TLpiTest.CreateSuiteFromDirectory('Codetools Examples', CTExamplesDir));
GetTestRegistry.AddTest( GetTestRegistry.AddTest(
TLpiTest.CreateSuiteFromDirectory('LCL test', LCLTestDir)); TLpiTest.CreateSuiteFromDirectory('LCL test', LCLTestDir));
end. end.