eeva/gRPC-haskell
1
0
Fork 0
mirror of https://github.com/unclechu/gRPC-haskell.git synced 2024-06-18 18:48:34 +02:00
Code Issues Projects Releases Wiki Activity

Fix warnings

Browse Source
This commit is contained in:
Joel Stanley 2016-05-25 15:43:03 -07:00
parent 2882a2a8ff
commit df46b33c6a
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/LowLevelTests.hs
View File

@ -2,7 +2,6 @@
module LowLevelTests (lowLevelTests) where
import Control.Applicative
import Control.Concurrent.Async
import Control.Monad
import Data.ByteString (ByteString)
@ -49,7 +48,7 @@ payloadLowLevelServer = TestServer $ \grpc -> do
withServer grpc conf $ \server -> do
let method = head (registeredMethods server)
result <- serverHandleNormalRegisteredCall server method 11 M.empty $
\reqBody reqMeta ->
\_reqBody _reqMeta ->
return ("reply test", dummyMeta, dummyMeta,
StatusDetails "details string")
case result of
@ -64,7 +63,7 @@ payloadLowLevelClient = TestClient $ \grpc ->
reqResult <- clientRegisteredRequest client method 10 "Hello!" M.empty
case reqResult of
Left x -> error $ "Client got error: " ++ show x
Right (NormalRequestResult respBody initMeta trailingMeta respCode details) -> do
Right (NormalRequestResult respBody _initMeta _trailingMeta respCode details) -> do
details @?= "details string"
respBody @?= "reply test"
respCode @?= GrpcStatusOk
@ -76,7 +75,7 @@ payloadLowLevelClientUnregistered = TestClient $ \grpc -> do
case reqResult of
Left x -> error $ "Client got error: " ++ show x
Right (NormalRequestResult
respBody initMeta trailingMeta respCode details) -> do
respBody _initMeta _trailingMeta respCode details) -> do
respBody @?= "reply test"
respCode @?= GrpcStatusOk
details @?= "details string"
@ -85,8 +84,8 @@ payloadLowLevelServerUnregistered :: TestServer
payloadLowLevelServerUnregistered = TestServer $ \grpc -> do
withServer grpc (ServerConfig "localhost" 50051 []) $ \server -> do
result <- serverHandleNormalCall server 11 M.empty $
\reqBody reqMeta -> return ("reply test", M.empty,
StatusDetails "details string")
\_reqBody _reqMeta -> return ("reply test", M.empty,
StatusDetails "details string")
case result of
Left x -> error $ show x
Right _ -> return ()