Changeset 237

Timestamp:

Jun 29, 2023, 11:15:54 PM (17 months ago)

Author:

chronos

Message:

• Added: More tests.

File:

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

branches/xpascal/Tests.pas

@@ -185 +185 @@
     Source.Add('end.');
     ExpectedOutput := '10' + LineEnding;
+  end;
+  with TTestRun(Result.AddNew('function var', TTestRun)) do begin
+    Source.Add('function Test(A: string): string;');
+    Source.Add('var');
+    Source.Add('  C: string;');
+    Source.Add('begin');
+    Source.Add('  C := A;');
+    Source.Add('  Result := C;');
+    Source.Add('end;');
+    Source.Add('');
+    Source.Add('begin');
+    Source.Add('  WriteLn(Test(''X''));');
+    Source.Add('end.');
+    ExpectedOutput := 'X' + LineEnding;
+  end;
+  with TTestRun(Result.AddNew('function const', TTestRun)) do begin
+    Source.Add('function Test: string;');
+    Source.Add('const');
+    Source.Add('  D: string = ''X'';');
+    Source.Add('begin');
+    Source.Add('  Result := D;');
+    Source.Add('end;');
+    Source.Add('');
+    Source.Add('begin');
+    Source.Add('  WriteLn(Test);');
+    Source.Add('end.');
+    ExpectedOutput := 'X' + LineEnding;
   end;
   with TTestRun(Result.AddNew('procedure', TTestRun)) do begin