Changeset 336 for trunk/Core.pas

Timestamp:

Sep 7, 2024, 10:29:16 PM (11 days ago)

Author:

chronos

Message:

• Added: Automated tests accessible in debug mode.
• Fixed: Player units internal links.
• Fixed: List items id regeneration before game save.

File:

• trunk/Core.pas (modified) (5 diffs)

trunk/Core.pas

@@ -16 +16 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    ATests: TAction;
     AFullscreen: TAction;
     AToggleFogOfWar: TAction;
@@ -60 +61 @@
     procedure AShowKeyShortcutsExecute(Sender: TObject);
     procedure AShowUnitMovesExecute(Sender: TObject);
+    procedure ATestsExecute(Sender: TObject);
     procedure AToggleFogOfWarExecute(Sender: TObject);
     procedure Translator1Translate(Sender: TObject);
@@ -127 +129 @@
 
 uses
-  FormNew, FormSettings, ClientAI, FormKeyShortcuts, Common, FormEx,
-  FormHelp, FormUnitMoves, FormPlayersStats, ClientGUI, FormAbout;
+  FormNew, FormSettings, ClientAI, FormKeyShortcuts, Common, FormEx, FormTests,
+  FormHelp, FormUnitMoves, FormPlayersStats, ClientGUI, FormAbout, Tests;
 
 const
@@ -292 +294 @@
 procedure TCore.UpdateInterface;
 begin
-  Core.AGameEnd.Enabled := Game.Running;
-  Core.AFullscreen.Checked := FormMain.FullScreen;
+  AGameEnd.Enabled := Game.Running;
+  AFullscreen.Checked := FormMain.FullScreen;
+  {$ifdef DEBUG}
+  ATests.Visible := True;
+  ATests.Enabled := True;
+  {$else}
+  ATests.Visible := False;
+  ATests.Enabled := False;
+  {$endif}
 end;
 
@@ -470 +479 @@
   FormMain.FormUnitMoves.Game := Game;
   FormMain.FormUnitMoves.Show;
+end;
+
+procedure TCore.ATestsExecute(Sender: TObject);
+var
+  FormTests: TFormTests;
+begin
+  FormTests := TFormTests.Create(nil);
+  FormTests.TestCases := GetTestCases;
+  FormTests.ShowModal;
+  FormTests.Free;
 end;