Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 15:55:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Removed some hints

Browse Source
This commit is contained in:
Daniele Teti 2020-12-14 10:35:22 +01:00
parent 5443509a97
commit 4dd2c86bdf
3 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
unittests/general/Several/ActiveRecordTestsU.pas
View File

@ -822,7 +822,7 @@ end;
constructor TTestActiveRecordPostgreSQL.Create; constructor TTestActiveRecordPostgreSQL.Create;
var var
lInitDB, LParams, lOutput, lPGHome, lDataDir: String; lPGHome, lDataDir: String;
begin begin
inherited; inherited;
lPGHome := TPath.Combine(TPath.GetDirectoryName(ParamStr(0)), 'pgsql'); lPGHome := TPath.Combine(TPath.GetDirectoryName(ParamStr(0)), 'pgsql');
@ -875,8 +875,6 @@ begin
end; end;
procedure TTestActiveRecordPostgreSQL.InternalSetupFixture; procedure TTestActiveRecordPostgreSQL.InternalSetupFixture;
var
lInitDB, LParams, lOutput: String;
begin begin
fPGUtil.RemoveDataDir; fPGUtil.RemoveDataDir;
fPGUtil.InitDB; fPGUtil.InitDB;

2
unittests/general/Several/DMVCFrameworkTests.dproj
View File

@ -4,7 +4,7 @@
<ProjectVersion>19.1</ProjectVersion> <ProjectVersion>19.1</ProjectVersion>
<FrameworkType>VCL</FrameworkType> <FrameworkType>VCL</FrameworkType>
<Base>True</Base> <Base>True</Base>
<Config Condition="'$(Config)'==''">GUI</Config> <Config Condition="'$(Config)'==''">CONSOLE</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform> <Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1</TargetedPlatforms> <TargetedPlatforms>1</TargetedPlatforms>
<AppType>Console</AppType> <AppType>Console</AppType>

7
unittests/general/Several/PGUtilsU.pas
View File

@ -73,7 +73,7 @@ begin
if BytesRead > 0 then if BytesRead > 0 then
begin begin
Buffer[BytesRead] := #0; Buffer[BytesRead] := #0;
StdOutput := StdOutput + Buffer; StdOutput := StdOutput + String(Buffer);
end; end;
until not WasOK or (BytesRead = 0); until not WasOK or (BytesRead = 0);
WaitForSingleObject(PI.hProcess, INFINITE); WaitForSingleObject(PI.hProcess, INFINITE);
@ -89,13 +89,8 @@ end;
function SysStartExecute(const CommandLine: string; const Work: string = 'C:\'): Boolean; function SysStartExecute(const CommandLine: string; const Work: string = 'C:\'): Boolean;
var var
SA: TSecurityAttributes;
SI: TStartupInfo; SI: TStartupInfo;
PI: TProcessInformation; PI: TProcessInformation;
StdOutPipeRead, StdOutPipeWrite: THandle;
WasOK: Boolean;
Buffer: array [0 .. 255] of AnsiChar;
BytesRead: Cardinal;
WorkDir: string; WorkDir: string;
Handle: Boolean; Handle: Boolean;
begin begin