Removed assertion dialog and API digger from tests

This commit is contained in:
Berserker 2019-05-09 20:52:21 +03:00
parent 990e35b427
commit c4698834c2
5 changed files with 17 additions and 14346 deletions

1
.gitignore vendored
View File

@ -3,4 +3,5 @@
*.ini
*.identcache
*.map
_LOG_.txt
__history/

View File

@ -9,8 +9,10 @@ uses
type
TestDebug = class (TTestCase)
published
private
procedure TestAssertHandler;
published
procedure TestLogging;
end;

View File

@ -26,9 +26,20 @@ type
(***) implementation (***)
var
LogFile: Windows.THandle;
procedure LogSomething (Operation, Message: pchar); stdcall;
var
OutputHandle: integer;
begin
WriteLn('>> ', string(Operation), ': ', string(Message), #13#10);
OutputHandle := pinteger(@System.Output)^;
pinteger(@System.Output)^ := integer(LogFile);
WriteLn('>> ', string(Operation), ': ', string(Message), #13#10);
pinteger(@System.Output)^ := OutputHandle;
end;
procedure TestIntegrated.SetUp;
@ -235,4 +246,5 @@ end; // .procedure TestIntegrated.TestDirectoryListing;
begin
RegisterTest(TestIntegrated.Suite);
LogFile := SysUtils.FileCreate(SysUtils.ExtractFileDir(WinUtils.GetExePath()) + '\_LOG_.txt');
end.

View File

@ -7,7 +7,7 @@ uses
VfsHooks, VfsControl, VfsMatching,
VfsTestHelper, VfsMatchingTest,
VfsDebugTest, VfsUtilsTest, VfsBaseTest,
VfsApiDiggerTest, VfsOpenFilesTest, VfsIntegratedTest;
VfsOpenFilesTest, VfsIntegratedTest;
begin
System.IsMultiThread := true;

14344
VfsTest.map

File diff suppressed because it is too large Load Diff