Changeset 233 for branches/xpascal/Tests.pas

Timestamp:

Jun 26, 2023, 6:08:23 PM (17 months ago)

Author:

chronos

Message:

• Added: Support for procedures.
• Added: Project pascal file can be opened from main menu. Last file name is remembered.
• Modified: Improved XML output of source structure.

File:

• branches/xpascal/Tests.pas (modified) (2 diffs)

branches/xpascal/Tests.pas

@@ -158 +158 @@
     ExpectedOutput := '-1' + LineEnding + '0' + LineEnding;
   end;
+  with TTestRun(Result.AddNew('procedure', TTestRun)) do begin
+    Source.Add('procedure Print(Text: string);');
+    Source.Add('begin');
+    Source.Add('  WriteLn(Text);');
+    Source.Add('end;');
+    Source.Add('');
+    Source.Add('begin');
+    Source.Add('  Print(''Test'');');
+    Source.Add('end.');
+    ExpectedOutput := 'Test' + LineEnding;
+  end;
+  with TTestRun(Result.AddNew('procedure var parameter', TTestRun)) do begin
+    Source.Add('procedure Test(var A: Integer);');
+    Source.Add('begin');
+    Source.Add('  A := 10;');
+    Source.Add('end;');
+    Source.Add('');
+    Source.Add('var');
+    Source.Add('  B: Integer;');
+    Source.Add('begin');
+    Source.Add('  B := 1;');
+    Source.Add('  Test(B);');
+    Source.Add('  WriteLn(IntToStr(B));');
+    Source.Add('end.');
+    ExpectedOutput := '10' + LineEnding;
+  end;
+  with TTestRun(Result.AddNew('Single line comment', TTestRun)) do begin
+    Source.Add('begin');
+    Source.Add('  // WriteLn(''Test'');');
+    Source.Add('end.');
+    ExpectedOutput := '';
+  end;
 end;
 
@@ -169 +201 @@
 procedure TTestRun.InterpreterError(Pos: TPoint; Text: string);
 begin
-  Error := Error + Text;
+  Error := Error + '[' + IntToStr(Pos.X) + ', ' + IntToStr(Pos.Y) + '] ' + Text + LineEnding;
 end;