Changeset 229 for branches/xpascal/Forms

Timestamp:

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

Author:

chronos

Message:

• Added: Several basic interpretter tests.

Location:

branches/xpascal/Forms

Files:

• FormMain.lfm (modified) (1 diff)
• FormMain.pas (modified) (2 diffs)

branches/xpascal/Forms/FormMain.lfm

@@ -123 +123 @@
       Caption = 'Test'
       OnExecute = ATestExecute
+      ShortCut = 122
     end
   end

branches/xpascal/Forms/FormMain.pas

@@ -75 +75 @@
 uses
   Parser, Executor, GeneratorPascal, GeneratorPhp, FormTests, Translator,
-  GeneratorCSharp, GeneratorXml, ParserPascal;
+  GeneratorCSharp, GeneratorXml, ParserPascal, Tests;
 
 { TFormMain }
@@ -198 +198 @@
   with TFormTests.Create(nil) do
   try
+    TestCases := GetTests;
     ShowModal;
   finally
+    TestCases.Free;
     Free;
   end;