tests/utils/dotest.pp

85   PPFile : TStringList;
198   FindFirst (PPFile[current],anyfile,Info);
202       PPFileInfo.Insert(current,PPFile[current]+' '+ToStr(dt.year)+'/'+ToStrZero(dt.month,2)+'/'+
206     PPFileInfo.Insert(current,PPFile[current]);
887   args:=args+' '+PPFile[current];
893 …  wpoargs:=' -OW'+config.wpoparas+' -FW'+TestOutputFileName('',PPFile[current],'wp'+tostr(passnr));
895 …wpoargs:=wpoargs+' -Ow'+config.wpoparas+' -Fw'+TestOutputFileName('',PPFile[current],'wp'+tostr(pa…
1045 function LibraryExists(const PPFile : string; out FileName : string) : boolean;
1049   FileName:=TestOutputFilename('',PPFile,'dll');
1056   FileName:=TestOutputFilename('lib',PPFile,'so');
1063   FileName:=TestOutputFilename('lib',PPFile,'dylib');
1070   FileName:=TestOutputFilename('Lib',PPFile,'');
1077   FileName:=TestOutputFilename('',PPFile,'nlm');
1084   FileName:=TestOutputFilename('',PPFile,'library');
1187           LocalPath:=SplitPath(PPFile[current]);
1239     LocalPath:=SplitPath(PPFile[current]);
1300   TestExe:=TestOutputFilename('',PPFile[current],ExeExt);
1316         s:=s+' -S'+PPFile[current];
1699            PPFile.Insert(current,ForceExtension(Para,'pp'));
1721          PPFile.Insert(current,ForceExtension(Param,'pp'));
1762   Res:=GetConfig(PPFile[current],Config);
1784       PPDir:=SplitPath(PPFile[current]);
1819       CompilerLogFile:=TestLogFileName('',SplitFileName(PPFile[current]),'log');
1820       ExeLogFile:=TestLogFileName('',SplitFileName(PPFile[current]),'elg');
2007         if LibraryExists(PPFile[current],LibraryName) then
2021            if FileExists(TestOutputFilename('',PPFile[current],'ppu')) or
2022               FileExists(TestOutputFilename('',PPFile[current],'ppo')) or
2023               FileExists(TestOutputFilename('',PPFile[current],'ppw')) then
2029            else if LibraryExists(PPFile[current],LibraryName) then
2044   PPFile:=TStringList.Create;
2045   PPFile.Capacity:=10;
2057   Verbose(V_Debug,'Found '+ToStr(PPFile.Count)+' tests to run');
2059     for current:=0 to PPFile.Count-1 do
2062         TestName:=Copy(PPFile[current],1,Pos('.pp',PPFile[current])-1);
2063         Verbose(V_Normal,'Running test '+TestName+', file '+PPFile[current]);
2066   PPFile.Free;