import
  chronos, bearssl/rand,
  eth/[keys, p2p]

import libp2p/crypto/crypto

var nextPort = 30303

proc localAddress*(port: int): Address =
  let port = Port(port)
  result = Address(udpPort: port, tcpPort: port,
                   ip: parseIpAddress("127.0.0.1"))

proc setupTestNode*(
    rng: ref HmacDrbgContext,
    capabilities: varargs[ProtocolInfo, `protocolInfo`]): EthereumNode =
  let
    keys1 = keys.KeyPair.random(rng[])
    address = localAddress(nextPort)
  result = newEthereumNode(keys1, address, NetworkId(1),
                           addAllCapabilities = false,
                           bindUdpPort = address.udpPort, # Assume same as external
                           bindTcpPort = address.tcpPort, # Assume same as external
                           rng = rng)
  nextPort.inc
  for capability in capabilities:
    result.addCapability capability

# Copied from here: https://github.com/status-im/nim-libp2p/blob/d522537b19a532bc4af94fcd146f779c1f23bad0/tests/helpers.nim#L28
type RngWrap = object
  rng: ref rand.HmacDrbgContext

var rngVar: RngWrap

proc getRng(): ref rand.HmacDrbgContext =
  # TODO if `rngVar` is a threadvar like it should be, there are random and
  #      spurious compile failures on mac - this is not gcsafe but for the
  #      purpose of the tests, it's ok as long as we only use a single thread
  {.gcsafe.}:
    if rngVar.rng.isNil:
      rngVar.rng = crypto.newRng()
    rngVar.rng

template rng*(): ref rand.HmacDrbgContext =
  getRng()