Changeset 229 for branches/xpascal/Packages/Common/Forms/FormTests.pas

Timestamp:

Jun 24, 2023, 11:23:26 PM (17 months ago)

Author:

chronos

Message:

• Added: Several basic interpretter tests.

File:

• branches/xpascal/Packages/Common/Forms/FormTests.pas (modified) (2 diffs)

branches/xpascal/Packages/Common/Forms/FormTests.pas

@@ -89 +89 @@
   ARun.Enabled := Selected;
   AShow.Enabled := Selected;
+  ButtonRun.Enabled := Assigned(TestCases);
 
   Passed := 0;
@@ -116 +117 @@
 begin
   if Assigned(ListViewTestCases.Selected) then
-  with TFormTestCase.Create(nil) do
+  with TFormTest.Create(nil) do
   try
     MemoLog.Text := TTestCase(ListViewTestCases.Selected.Data).Log;