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

DataFeed Refactoring

Browse Source
This commit is contained in:
Michael Schimmel
2025-12-10 22:30:53 +01:00
parent a3f6f4af26
commit 3ed5a4011f
4 changed files with 227 additions and 205 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Test/TestDataPOD.pas
-22
View File
@@ -23,9 +23,6 @@ type
[TestCase('Float_Negative', '-3.1415926535,Float')]
procedure TestScalarCreation(const AValueStr: string; AExpectedKind: TScalar.TKind);
// More detailed tests for complex POD types.
[Test]
procedure TestScalarArray;
[Test]
procedure TestScalarTuple;
end;
@@ -59,25 +56,6 @@ begin
end;
end;
procedure TTestPOD.TestScalarArray;
var
arr: TScalarArray;
values: TArray<TScalar.TValue>;
begin
// Test with values
values := [TScalar.FromInt64(10).Value, TScalar.FromInt64(20).Value, TScalar.FromInt64(30).Value];
arr := TScalarArray.Create(TScalar.TKind.Ordinal, values);
Assert.AreEqual(TScalar.TKind.Ordinal, arr.Kind, 'Array kind mismatch');
Assert.AreEqual(Int64(3), Length(arr.Items), 'Array length mismatch');
Assert.AreEqual(Int64(20), arr.Items[1].AsInt64, 'Array item content mismatch');
// Test empty
arr := TScalarArray.Create(TScalar.TKind.Float, []);
Assert.AreEqual(TScalar.TKind.Float, arr.Kind, 'Empty array kind mismatch');
Assert.AreEqual(Int64(0), Length(arr.Items), 'Empty array length should be zero');
end;
procedure TTestPOD.TestScalarTuple;
var
tuple: TScalarTuple;