Changeset 235 for branches/xpascal/Tests.pas

Timestamp:

Jun 27, 2023, 10:09:21 AM (17 months ago)

Author:

chronos

Message:

• Modified: Improved function var parameter handling.
• Modified: Code cleanup.

File:

• branches/xpascal/Tests.pas (modified) (1 diff)

branches/xpascal/Tests.pas

@@ -155 +155 @@
     Source.Add('  WriteLn(BoolToStr(IsZero(0)));');
     Source.Add('  WriteLn(BoolToStr(IsZero(1)));');
+    Source.Add('end.');
+    ExpectedOutput := '-1' + LineEnding + '0' + LineEnding;
+  end;
+  with TTestRun(Result.AddNew('function var parameter', TTestRun)) do begin
+    Source.Add('function Test(var A: Integer): Boolean;');
+    Source.Add('begin');
+    Source.Add('  A := 10;');
+    Source.Add('  Result := True;');
+    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 := '-1' + LineEnding + '0' + LineEnding;