anchor.diff:  
       %% 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,
  +                                       gas_price => ContractCallTxGasPrice,
                                          amount    => Value,
                                          fee       => Fee}, S3),
  +    ?assertEqual(ContractCallTxGasPrice, aect_call_tx:gas_price(aetx:tx(CallTx))),
       {ok, S4} = sign_and_apply_transaction(CallTx, CallerPrivKey, S3, ?MINER_PUBKEY),
       CallId = aect_call:id(Caller, aetx:nonce(CallTx), ContractKey),
   
  
positive.code:     ok.
  
  create_contract(_Cfg) ->
      {PubKey, S1} = aect_test_utils:setup_new_account(aect_test_utils:new_state()),
      PrivKey      = aect_test_utils:priv_key(PubKey, S1),
  
  
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),
  