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 *.ini
*.identcache *.identcache
*.map *.map
_LOG_.txt
__history/ __history/

View File

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

View File

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

View File

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

14344
VfsTest.map

File diff suppressed because it is too large Load Diff