{-# LANGUAGE StrictData  #-}
{-# LANGUAGE Trustworthy #-}
module Tox.DHT.NodesRequestSpec where

import           Test.Hspec

import           Data.Proxy                    (Proxy (..))
import qualified Tox.Crypto.Core.KeyPair       as KeyPair
import           Tox.DHT.NodesRequest          (NodesRequest (..))
import           Tox.Network.Core.EncodingSpec


spec :: Spec
spec = do
  rpcSpec (Proxy :: Proxy NodesRequest)
  binarySpec (Proxy :: Proxy NodesRequest)
  readShowSpec (Proxy :: Proxy NodesRequest)

  it "has a public key" $ do
    kp <- KeyPair.newKeyPair
    let req = NodesRequest (KeyPair.publicKey kp)
    requestedKey req `shouldBe` KeyPair.publicKey kp