anchor.diff:    Finally
       FMustProcessNetConnectionUpdated := false;
     End;
  +  {$IFDEF TESTNET}
  +  // TESTNET ONLY: Will automatic ask for get an account to other nodes if I have not enough
  +  if TPlatform.GetElapsedMilliseconds(FLastAskForAccountTC)<60000 then Exit; // 1 per minute
  +  FLastAskForAccountTC := TPlatform.GetTickCount;
  +  LFoundAccounts := 0;
  +  FNode.Bank.SafeBox.StartThreadSafe;
  +  try
  +    for i := 0 to FWalletKeys.AccountsKeyList.Count-1 do begin
  +      inc(LFoundAccounts,FWalletKeys.AccountsKeyList.AccountKeyList[i].Count);
  +      if LFoundAccounts>5 then Break;
  +    end;
  +  finally
  +    FNode.Bank.SafeBox.EndThreadSave;
  +  end;
  +  if LFoundAccounts<5 then begin
  +    // Will only ask if I have less than 5 accounts
  +    TPCTNetDataExtraMessages.AskForFreeAccount(GetAccountKeyForMiner);
  +  end;
  +  {$ENDIF}
   end;
   
   procedure TFRMWallet.CM_WalletChanged(var Msg: TMessage);
  
positive.code:     {$IFDEF TESTNET}
      Procedure InitMenuForTesting;
      Procedure Test_RandomOperations(Sender: TObject);
      {$IFDEF TESTING_NO_POW_CHECK}
      Procedure Test_CreateABlock(Sender: TObject);
      {$ENDIF}
  
negative.code:   {$IFDEF TESTNET}
    System.ReportMemoryLeaksOnShutdown := True; // Delphi memory leaks testing
    {$ENDIF}
    {$ENDIF}
    {$IFDEF TESTNET}
    FLastAskForAccountTC := 0;
    {$ENDIF}
    FLastNodesCacheUpdatedTS := Now;
    FBackgroundPanel := Nil;
  