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

tests: improved searching for test directories

Browse Source 
git-svn-id: trunk@10542 -
This commit is contained in:
vincents 2007-01-30 23:31:27 +00:00
parent 2bdbe6f91c
commit 85bf638910
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/bugs/bugtestcase.pas
View File

@ -186,7 +186,6 @@ begin
CreateWithName(ATestName); CreateWithName(ATestName);
FPath := APath; FPath := APath;
FProjectFile := FindProjectFile(FPath); FProjectFile := FindProjectFile(FPath);
writeln(FProjectFile);
end; end;
class function TBugTestCase.CreateSuite(Path: string): TTestSuite; class function TBugTestCase.CreateSuite(Path: string): TTestSuite;
@ -209,7 +208,7 @@ begin
ProgPath := ExtractFilePath(ParamStr(0)); ProgPath := ExtractFilePath(ParamStr(0));
if FindFirst(ProgPath+'*', faAnyFile, SearchRec)=0 then if FindFirst(ProgPath+'*', faAnyFile, SearchRec)=0 then
repeat repeat
if (SearchRec.Attr=faDirectory) and if (SearchRec.Attr and (faDirectory + faHidden)=faDirectory) and
(SearchRec.Name<>'.') and (SearchRec.Name<>'..') (SearchRec.Name<>'.') and (SearchRec.Name<>'..')
then then
GetTestRegistry.AddTest( GetTestRegistry.AddTest(

1
test/bugs/runbugtestcases.lpi
View File

@ -14,7 +14,6 @@
</VersionInfo> </VersionInfo>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions> </PublishOptions>