Ast list nodes

Test/AST/Test.Myc.Ast.Script.pas

@@ -209,7 +209,8 @@ begin
     call := node.AsFunctionCall;
 
     Assert.AreEqual<string>('add', call.Callee.AsIdentifier.Name);
-    Assert.AreEqual<Integer>(2, Length(call.Arguments));
+    // Use Count instead of Length
+    Assert.AreEqual<Integer>(2, call.Arguments.Count);
 
     Assert.AreEqual<Int64>(1, call.Arguments[0].AsConstant.Value.AsScalar.Value.AsInt64);
     Assert.AreEqual<Int64>(2, call.Arguments[1].AsConstant.Value.AsScalar.Value.AsInt64);
@@ -225,7 +226,9 @@ begin
     Assert.AreEqual<TAstNodeKind>(TAstNodeKind.akRecordLiteral, node.Kind);
     rec := node.AsRecordLiteral;
 
-    Assert.AreEqual<Integer>(2, Length(rec.Fields));
+    Assert.AreEqual<Integer>(2, rec.Fields.Count);
+
+    // Accessing fields via IRecordFieldNode
     Assert.AreEqual<string>('a', rec.Fields[0].Key.Value.Name);
     Assert.AreEqual<Int64>(1, rec.Fields[0].Value.AsConstant.Value.AsScalar.Value.AsInt64);
 
@@ -239,7 +242,7 @@ var
 begin
     node := Parse('{}');
     Assert.AreEqual<TAstNodeKind>(TAstNodeKind.akRecordLiteral, node.Kind);
-    Assert.AreEqual<Integer>(0, Length(node.AsRecordLiteral.Fields));
+    Assert.AreEqual<Integer>(0, node.AsRecordLiteral.Fields.Count);
 end;
 
 // --- Special Forms ---
@@ -268,7 +271,7 @@ begin
     Assert.AreEqual<TAstNodeKind>(TAstNodeKind.akLambdaExpression, node.Kind);
     lam := node.AsLambdaExpression;
 
-    Assert.AreEqual<Integer>(2, Length(lam.Parameters));
+    Assert.AreEqual<Integer>(2, lam.Parameters.Count);
     Assert.AreEqual<string>('a', lam.Parameters[0].Name);
     Assert.AreEqual<string>('b', lam.Parameters[1].Name);
 
@@ -317,7 +320,7 @@ begin
     call := node.AsFunctionCall;
 
     Assert.AreEqual<string>('quote', call.Callee.AsIdentifier.Name);
-    Assert.AreEqual<Integer>(1, Length(call.Arguments));
+    Assert.AreEqual<Integer>(1, call.Arguments.Count);
     Assert.AreEqual<string>('foo', call.Arguments[0].AsIdentifier.Name);
 end;
 
@@ -343,8 +346,8 @@ procedure TTestMycAstScript.Parser_UnquoteSplicing_CreatesNode;
 var
     node: IAstNode;
 begin
-    // ~@x
-    // There's something off here - we'll fix this later
+    // Note: Parser requires backtick after ~@ currently due to cast in Myc.Ast.Script:
+    // Result.Node := TAst.UnquoteSplicing(expr.Node.AsQuasiquote, startLoc);
     node := Parse('~@`x');
     Assert.AreEqual<TAstNodeKind>(TAstNodeKind.akUnquoteSplicing, node.Kind);