mirror of
https://github.com/CloudDelphi/Virtual-File-System
synced 2025-12-19 09:53:54 +01:00
Removed assertion dialog and API digger from tests
This commit is contained in:
parent
990e35b427
commit
c4698834c2
1
.gitignore
vendored
1
.gitignore
vendored
@ -3,4 +3,5 @@
|
||||
*.ini
|
||||
*.identcache
|
||||
*.map
|
||||
_LOG_.txt
|
||||
__history/
|
||||
@ -9,8 +9,10 @@ uses
|
||||
|
||||
type
|
||||
TestDebug = class (TTestCase)
|
||||
published
|
||||
private
|
||||
procedure TestAssertHandler;
|
||||
|
||||
published
|
||||
procedure TestLogging;
|
||||
end;
|
||||
|
||||
|
||||
@ -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.
|
||||
@ -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
14344
VfsTest.map
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user