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
|
*.ini
|
||||||
*.identcache
|
*.identcache
|
||||||
*.map
|
*.map
|
||||||
|
_LOG_.txt
|
||||||
__history/
|
__history/
|
||||||
@ -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;
|
||||||
|
|
||||||
|
|||||||
@ -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.
|
||||||
@ -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
14344
VfsTest.map
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user