Data file handling

This commit is contained in:
Michael Schimmel
2025-06-15 17:29:56 +02:00
parent bbd9d1752a
commit 2c56f6e750
7 changed files with 578 additions and 357 deletions
+1 -4
View File
@@ -59,9 +59,6 @@ end;
procedure TTest_TABFileServer_Equivalence.TearDownFixture;
begin
FServer := nil;
// Resets the global IsMemoryLow function pointer, if it was set for testing.
IsMemoryLow := nil;
end;
procedure TTest_TABFileServer_Equivalence.Setup;
@@ -90,7 +87,7 @@ var
expectedData: TArray<TDataPoint<TAskBidItem>>;
begin
// 1. Expected data is loaded directly using LoadDataSeries.
filename := TAuraTABFileServer.FindFirstDataFile(C_TEST_PATH, C_TEST_SYMBOL);
filename := (FServer as TAuraDataServer<TAskBidItem>).FindFirstDataFile(C_TEST_SYMBOL);
Assert.IsNotEmpty(filename, 'Test data file could not be found.');
expectedData := FServer.LoadDataSeries(filename).WaitFor;