anchor.diff:      connect_node(net2_node1, net1, Cfg),
       connect_node(net2_node2, net1, Cfg),
       T0 = erlang:system_time(millisecond),
  +
  +    inject_spend_txs(net1_node1, patron(), 20, 21, 100),
  +    inject_spend_txs(net2_node1, patron(), 20, 21, 100),
   
       %% Mine Length blocks, this may take longer than ping interval
       %% if so, the chains should be in sync when it's done.
  
positive.code: 
      ok.
  
  add_spend_txs(Node, SenderAcct, N, NonceStart) ->
      [ add_spend_tx(Node, SenderAcct, Nonce) || Nonce <- lists:seq(NonceStart, NonceStart + N - 1) ].
  
  add_spend_tx(Node, #{ pubkey := SendPubKey, privkey := SendSecKey }, Nonce) ->
      #{ public := RecvPubKey, secret := RecvSecKey } = enacl:sign_keypair(),
      Params = #{ sender => aec_id:create(account, SendPubKey)
                , recipient => aec_id:create(account, RecvPubKey)
                , amount => 10000
                , fee => 100
                , ttl => 10000000
                , nonce => Nonce
                , payload => <<>> },
      {ok, Tx} = aec_spend_tx:new(Params),
      SignedTx = aec_test_utils:sign_tx(Tx, SendSecKey),
      SerSignTx = aetx_sign:serialize_to_binary(SignedTx),
  
negative.code:          false ->
              start_node(node1, Cfg),
              %% should sync with about 10 blocks per second, hence 100ms per block
  
              inject_spend_txs(node2, patron(), 20, 71, 100),
  
              wait_for_value({height, Length + 1}, [node2], (Length - Height) * ?MINING_TIMEOUT, Cfg),
              B2 = get_block(node2, Length),
              C1 = get_block(node1, Length),
  