anchor.diff:  get_oracle_response(Data) ->
       Host = external_address(),
       http_request(Host, post, "tx/oracle/response", Data).
  -
   
   get_name_preclaim(Data) ->
       Host = external_address(),
  
positive.code:     Host = external_address(),
      http_request(Host, post, "tx/oracle/register", Data).
  
  get_oracle_query(Data) ->
      Host = external_address(),
      http_request(Host, post, "tx/oracle/query", Data).
  
negative.code:     #{<<"result">> := <<"ok">>,
        <<"query_id">> := QId } = ws_do_request(ConnPid, oracle, response, ResponseData),
  
      %% Mine a block and check that an event is received
      ws_mine_block(ConnPid, ?NODE),
      {ok, #{<<"query_id">> := QId }} = ?WS:wait_for_event(chain, new_oracle_response),
  
      %% Check that we can extend the oracle TTL
      ExtendData =
          #{ type => 'OracleExtendTxObject',
             oracle => OId,
             ttl => #{ type => delta, value => 50 },
             fee => 2 },
      #{<<"result">> := <<"ok">>,
        <<"tx_hash">> := ExtendTxHash,
        <<"oracle_id">> := OId } = ws_do_request(ConnPid, oracle, extend, ExtendData),
  
      %% Subscribe for an event once the Tx goes onto the chain...
      ws_subscribe(ConnPid, #{ type => tx, tx_hash => ExtendTxHash }),
      ok = ?WS:register_test_for_event(ConnPid, chain, tx_chain),
  
      %% Mine a block and check that the extend tx made it onto the chain
      ws_mine_block(ConnPid, ?NODE),
      {ok, #{<<"tx_hash">> := ExtendTxHash }} = ?WS:wait_for_event(chain, tx_chain),
  
      ok = aehttp_ws_test_utils:stop(ConnPid),
      ok.
  