Changeset 236 for branches/xpascal/Tests.pas

Timestamp:

Jun 29, 2023, 1:47:58 AM (17 months ago)

Author:

chronos

Message:

• Fixed: Var function parameters processed correctly for both user defined and internal functions.

File:

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

branches/xpascal/Tests.pas

@@ -158 +158 @@
     ExpectedOutput := '-1' + LineEnding + '0' + LineEnding;
   end;
+  with TTestRun(Result.AddNew('function without result usage', TTestRun)) do begin
+    Source.Add('function IsZero(A: Integer): Boolean;');
+    Source.Add('begin');
+    Source.Add('  Result := A = 0;');
+    Source.Add('end;');
+    Source.Add('');
+    Source.Add('begin');
+    Source.Add('  IsZero(0);');
+    Source.Add('end.');
+    ExpectedOutput := '';
+  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('  Result := 1 = 1;');
     Source.Add('end;');
     Source.Add('');
     Source.Add('var');
     Source.Add('  B: Integer;');
+    Source.Add('  C: Boolean;');
     Source.Add('begin');
     Source.Add('  B := 1;');
-    Source.Add('  Test(B);');
+    Source.Add('  C := Test(B);');
     Source.Add('  WriteLn(IntToStr(B));');
     Source.Add('end.');
-    ExpectedOutput := '-1' + LineEnding + '0' + LineEnding;
+    ExpectedOutput := '10' + LineEnding;
   end;
   with TTestRun(Result.AddNew('procedure', TTestRun)) do begin