grapesy-1.0.0: interop/Interop/Client/TestCase/EmptyStream.hs

module Interop.Client.TestCase.EmptyStream (runTest) where

import Control.Monad

import Network.GRPC.Client
import Network.GRPC.Common

import Interop.Client.Connect
import Interop.Cmdline

import Proto.API.Interop

-- | <https://github.com/grpc/grpc/blob/master/doc/interop-test-descriptions.md#empty_stream>
runTest :: Cmdline -> IO ()
runTest cmdline =
    withConnection def (testServer cmdline) $ \conn ->
      withRPC conn def (Proxy @FullDuplexCall) $ \call -> do
        sendEndOfInput call
        void $ recvTrailers call