anchor.diff:                 ?assertEqual(lists:sort([STx1, STx2]), lists:sort(PoolTxs))
          end},
         {"fill micro block with transactions",
  -       fun() ->
  +       {timeout, 10, fun() ->
                  %% No txs to serve to peers.
                  ?assertEqual({ok, []}, aec_tx_pool:peek(1)),
   
  
positive.code:                ?assert(not lists:member(Tx1_2, CTxs4)),
  
                 ok
         end},
        {"Mempool follows chain insertions and forks",
         fun() ->
                 aec_test_utils:stop_chain_db(),
  
negative.code: 
                 %% No single tx would have fitted on top of this
                 ?assert(MinGas > aec_governance:block_gas_limit() - TotalGas)
         end}},
        {"fill micro block with and without previously rejected tx",
         {timeout, 10, fun() ->
                 aec_test_utils:stop_chain_db(),
                 {ok, MinerPubKey} = aec_keys:pubkey(),
                 PubKey1 = new_pubkey(),
  