Changeset 343 for trunk/Tests.pas

Timestamp:

Dec 22, 2024, 1:05:11 PM (7 hours ago)

Author:

chronos

Message:

• Modified: Improved tests.

File:

• trunk/Tests.pas (modified) (1 diff)

trunk/Tests.pas

@@ -50 +50 @@
 const
   FileName = 'Test.xtg';
+  Size = 10;
 var
   Game2: TGame;
 begin
+  Game.Map.Size := TPoint.Create(Size, Size);
+  Game.MapType := mtSquare;
+  Game.New;
   Game.SaveToFile(FileName);
   Game2 := TGame.Create;