anchor.diff:  
     for I := 1 to 60*60*10 do
     begin
  -    fGame.UpdateState(nil);
  +    fGame.UpdateGame(nil);
       if fGame.GameState = gsOnHold then
         fGame.GameHold(False, gr_Win);
     end;
  
positive.code: unit TestKM_Game;
  interface
  uses
    TestFramework,
    SysUtils, KM_Points, KM_Defaults, KM_CommonClasses, Classes, KromUtils,
    KM_Game, KM_Locales, KM_Log, KM_PlayersCollection, KM_TextLibrary, KM_Terrain, KM_Units_Warrior, KM_Utils, Math;
  
  
negative.code: 
  
  procedure TestTKMGame.TestAIBuild;
  var I: Integer; T: Cardinal;
  begin
    fGame.StartSingleMap(ExtractFilePath(ParamStr(0)) + 'AcrossDesert.dat', 'AcrossDesert');
  
    T := GetTickCount;
  
    for I := 1 to 60*60*10 do
    begin
      fGame.UpdateGame(nil);
      if fGame.GameState = gsOnHold then
        fGame.GameHold(False, gr_Win);
    end;
    Status('Done in ' + IntToStr(GetTickCount - T) + ' ms');
  
    fGame.Save('AcrossDesert');
  end;
  