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

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

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

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

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