DataFeed Refactoring

Test/TestDataPOD.pas

@@ -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;