Ast Playground 1. visualization

Test/TestDataPOD.pas

@@ -50,6 +50,9 @@ type
         procedure TestScalarRecordAndDefinition;
         [Test]
         procedure TestScalarSeries;
+
+        [Test]
+        procedure TestScalarRecordSeries;
     end;
 
 implementation
@@ -117,7 +120,7 @@ begin
         skString:
         begin
             scalar := TScalar.FromString(AValueStr);
-            s := Copy(AValueStr, 1, 15); // ShortString truncates to 15 chars
+            s := Copy(AValueStr, 1, 7); // ShortString truncates to 7 chars
             Assert.AreEqual(AExpectedKind, scalar.Kind, 'Kind should be skString');
             Assert.AreEqual(s, string(scalar.Value.AsString), 'Value mismatch for AsString');
         end;
@@ -223,23 +226,21 @@ var
 begin
     // 1. Create a definition
     recDef :=
-        TScalarRecordDefinition.Create(
-            [
-                TScalarRecordField.Create('ID', skInt64),
-                TScalarRecordField.Create('Name', skString),
-                TScalarRecordField.Create('Price', skDecimal)
-            ]
-        );
-    Assert.AreEqual(Int64(3), Length(recDef.Fields), 'Record definition field count mismatch');
-    Assert.AreEqual('Name', recDef.Fields[1].Name, 'Record definition field name mismatch');
+        [
+            TScalarRecordField.Create('ID', skInt64),
+            TScalarRecordField.Create('Name', skString),
+            TScalarRecordField.Create('Price', skDecimal)
+        ];
+    Assert.AreEqual(Int64(3), Length(recDef), 'Record definition field count mismatch');
+    Assert.AreEqual('Name', recDef[1].Name, 'Record definition field name mismatch');
 
     // 2. Create a matching set of values
-    values := [TScalar.FromInt64(99).Value, TScalar.FromString('ProductX').Value, TScalar.FromDecimal(TDecimal.Create(1995, 2)).Value];
+    values := [TScalar.FromInt64(99).Value, TScalar.FromString('Product').Value, TScalar.FromDecimal(TDecimal.Create(1995, 2)).Value];
 
     // 3. Create the record
     rec := TScalarRecord.Create(recDef, values);
     Assert.AreEqual(Int64(3), Length(rec.Fields), 'Record field count mismatch');
-    Assert.AreEqual('ProductX', string(rec.Fields[1].AsString), 'Record field value mismatch');
+    Assert.AreEqual('Product', string(rec.Fields[1].AsString), 'Record field value mismatch');
     Assert.AreEqual(TDecimal.Create(1995, 2), rec.Fields[2].AsDecimal, 'Record decimal field value mismatch');
 
     // 4. Test assertion for mismatched field count
@@ -277,6 +278,47 @@ begin
     Assert.AreEqual(101.5, scalarSeries.Items[3].AsDouble, 1E-12, 'Series item [3] mismatch');
 end;
 
+procedure TTestPOD.TestScalarRecordSeries;
+var
+    recDef: TScalarRecordDefinition;
+    series: TScalarRecordSeries;
+    rec1, rec2, rec3: TScalarRecord;
+    retrievedRec: TScalarRecord;
+begin
+    // 1. Define the structure of the records in the series
+    recDef := [TScalarRecordField.Create('ID', skInt64), TScalarRecordField.Create('Price', skDecimal)];
+
+    // 2. Create the series with the definition
+    series := TScalarRecordSeries.Create(recDef);
+    Assert.AreEqual(Int64(0), series.TotalCount, 'Initial series should be empty');
+
+    // 3. Create some records
+    rec1 := TScalarRecord.Create(recDef, [TScalarValue.FromInt64(1), TScalarValue.FromDecimal(TDecimal.Create(100, 2))]);
+    rec2 := TScalarRecord.Create(recDef, [TScalarValue.FromInt64(2), TScalarValue.FromDecimal(TDecimal.Create(101, 2))]);
+    rec3 := TScalarRecord.Create(recDef, [TScalarValue.FromInt64(3), TScalarValue.FromDecimal(TDecimal.Create(102, 2))]);
+
+    // 4. Add records to the series
+    series.Add(rec1);
+    series.Add(rec2);
+    series.Add(rec3);
+
+    // 5. Verify the state of the series
+    Assert.AreEqual(Int64(3), series.TotalCount, 'Series total count mismatch after adding items');
+
+    // 6. Check items. Index 0 is the last added item.
+    retrievedRec := series.Items[0]; // Should be rec3
+    Assert.AreEqual(skInt64, retrievedRec['ID'].Kind, 'Item[0] ID kind mismatch');
+    Assert.AreEqual(Int64(3), retrievedRec['ID'].Value.AsInt64, 'Item[0] ID value mismatch');
+    Assert.AreEqual(TDecimal.Create(102, 2), retrievedRec['Price'].Value.AsDecimal, 'Item[0] Price value mismatch');
+
+    retrievedRec := series.Items[1]; // Should be rec2
+    Assert.AreEqual(Int64(2), retrievedRec.Items['ID'].Value.AsInt64, 'Item[1] ID value mismatch');
+
+    retrievedRec := series.Items[2]; // Should be rec1
+    Assert.AreEqual(Int64(1), retrievedRec.Items['ID'].Value.AsInt64, 'Item[2] ID value mismatch');
+    Assert.AreEqual(TDecimal.Create(100, 2), retrievedRec.Items['Price'].Value.AsDecimal, 'Item[2] Price value mismatch');
+end;
+
 initialization
     FormatSettings.DecimalSeparator := '.';
     TDUnitX.RegisterTestFixture(TTestPOD);