anchor.diff:      Overrides    = #{ code => IdContract
           , call_data => CallData
           , gas => 10000
  +        , gas_price => ContractCreateTxGasPrice
       },
       Tx           = aect_test_utils:create_tx(PubKey, Overrides, S1),
  +    ?assertEqual(ContractCreateTxGasPrice, aect_create_tx:gas_price(aetx:tx(Tx))),
   
       %% Test that the create transaction is accepted
       {ok, S2} = sign_and_apply_transaction(Tx, PrivKey, S1, ?MINER_PUBKEY),
  
positive.code: 
      %% Now check that we can call it.
      Fee           = 107,
      GasPrice      = 2,
      Value         = 52,
      Arg           = <<"42">>,
      CallData = aect_sophia:create_call(IdContract, <<"main">>, Arg),
      CallTx = aect_test_utils:call_tx(Caller, ContractKey,
                                       #{call_data => CallData,
                                         gas_price => GasPrice,
                                         amount    => Value,
                                         fee       => Fee}, S3),
      {ok, S4} = sign_and_apply_transaction(CallTx, CallerPrivKey, S3, ?MINER_PUBKEY),
      CallId = aect_call:id(Caller, aetx:nonce(CallTx), ContractKey),
  
  
negative.code:     ok.
  
  call_contract(_Cfg) ->
      call_contract_(2).
  
  call_contract_with_gas_price_zero(_Cfg) ->
      call_contract_(0).
  
  call_contract_(ContractCallTxGasPrice) ->
      S0            = aect_test_utils:new_state(),
      {Owner,  S1}  = aect_test_utils:setup_new_account(S0),
      {Caller, S2}  = aect_test_utils:setup_new_account(S1),
  