anchor.diff:      AllTxsCnt = length(AllTxs),
       AllTxsCnt = Receivers + 1, % all spendTxs and a coinbaseTx
   
  -    case {length(Balances), length(ExpectedBalances)} of
  -        {ExpectedBalancesCnt, ExpectedBalancesCnt} -> ok
  -    end,
  -    true =
  -        lists:all(
  -            fun(#{<<"pub_key">> := PKEncoded, <<"balance">> := Bal}) ->
  -                    {account_pubkey, AccDec} = aec_base58c:decode(PKEncoded),
  -                    Account = {AccDec, Bal},
  -                lists:member(Account, ExpectedBalances) end,
  -            Balances),
  +    Balances =
  +        lists:map(fun(#{<<"pub_key">> := PKEncoded, <<"balance">> := Bal}) ->
  +                          {account_pubkey, AccDec} = aec_base58c:decode(PKEncoded),
  +                          {AccDec, Bal}
  +                  end, BalancesMap),
  +    ?assertEqual(lists:sort(ExpectedBalances), lists:sort(Balances)),
       ok.
   
   all_accounts_balances_empty(_Config) ->
  
positive.code: %% take care of that at the end of the test.
  %%
  
  -include_lib("aecore/include/aec_crypto.hrl").
  %% common_test exports
  -export(
  
negative.code:     {ok, GenBlock} = aehttp_api_parser:decode(block, GenBlockMap),
      ExpectedMap = header_to_endpoint_top(aec_blocks:to_header(GenBlock)),
      ct:log("Cleaned top header = ~p", [ExpectedMap]),
      ?assertEqual(ExpectedMap, HeaderMap),
  
      ForkHeight = aecore_suite_utils:latest_fork_height(),
      aecore_suite_utils:mine_blocks(aecore_suite_utils:node_name(?NODE),
  