Brummel/MycLib
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects 1 Releases Wiki Activity

Implementing first "strategy" for proof of concept

Browse Source
This commit is contained in:
Michael Schimmel
2025-07-11 11:06:18 +02:00
parent 644b6074d6
commit 487169afe0
20 changed files with 1761 additions and 274 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Src/Myc.Test.Trade.DataStream.pas
+6 -6
View File
@@ -19,8 +19,8 @@ type
[IgnoreMemoryLeaks(true)]
TTest_TABFileServer_Equivalence = class(TObject)
private
FServer: IDataServer<TAskBidItem>;
FStream: IDataStream<TAskBidItem>;
FServer: IDataServer<TAuraAskBidFileItem>;
FStream: IDataStream<TAuraAskBidFileItem>;
public
[SetupFixture]
procedure SetupFixture;
@@ -77,17 +77,17 @@ end;
procedure TTest_TABFileServer_Equivalence.Test_ServerReturnsSameDataAs_LoadDataSeries;
var
chunk: array[0..C_MAX_FETCH - 1] of TDataPoint<TAskBidItem>;
dst: TArray<TDataPoint<TAskBidItem>>;
chunk: array[0..C_MAX_FETCH - 1] of TDataPoint<TAuraAskBidFileItem>;
dst: TArray<TDataPoint<TAuraAskBidFileItem>>;
i: Int64;
n: Integer;
cnt: Int64;
timeout: Integer;
filename: TAuraDataFile;
expectedData: TArray<TDataPoint<TAskBidItem>>;
expectedData: TArray<TDataPoint<TAuraAskBidFileItem>>;
begin
// 1. Expected data is loaded directly using LoadDataSeries.
filename := (FServer as TAuraDataServer<TAskBidItem>).FindFirstFile(C_TEST_SYMBOL).WaitFor;
filename := (FServer as TAuraDataServer<TAuraAskBidFileItem>).FindFirstFile(C_TEST_SYMBOL).WaitFor;
Assert.IsTrue(filename.IsValid, 'Test data file could not be found.');
expectedData := (FServer as TAuraTABFileServer).LoadDataSeries(filename).WaitFor;