DataProvider

Src/Myc.Test.Trade.DataStream.pas

@@ -19,7 +19,7 @@ type
     [IgnoreMemoryLeaks(true)]
     TTest_TABFileServer_Equivalence = class(TObject)
     private
-        FServer: IAuraDataServer<TAskBidItem>;
+        FServer: IDataServer<TAskBidItem>;
         FStream: IDataStream<TAskBidItem>;
     public
         [SetupFixture]
@@ -83,14 +83,14 @@ var
     n: Integer;
     cnt: Int64;
     timeout: Integer;
-    filename: string;
+    filename: TAuraDataFile;
     expectedData: TArray<TDataPoint<TAskBidItem>>;
 begin
     // 1. Expected data is loaded directly using LoadDataSeries.
-    filename := (FServer as TAuraDataServer<TAskBidItem>).FindFirstDataFile(C_TEST_SYMBOL);
-    Assert.IsNotEmpty(filename, 'Test data file could not be found.');
+    filename := (FServer as TAuraDataServer<TAskBidItem>).FindFirstFile(C_TEST_SYMBOL).WaitFor;
+    Assert.IsTrue(filename.IsValid, 'Test data file could not be found.');
 
-    expectedData := FServer.LoadDataSeries(filename).WaitFor;
+    expectedData := (FServer as TAuraTABFileServer).LoadDataSeries(filename).WaitFor;
     SetLength(dst, Length(expectedData));
 
     // 2. Fetch data chunks from the stream until all data is retrieved.