eeva/gRPC-haskell
1
0
Fork 0
mirror of https://github.com/unclechu/gRPC-haskell.git synced 2024-11-23 03:29:42 +01:00
Code Issues Projects Releases Wiki Activity

Relocate preliminary payload tests to LowLevelTests module

Browse source
This commit is contained in:
Joel Stanley 2016-05-24 14:34:23 -07:00
parent ceb9b65433
commit 93e9a92328
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/LowLevelTests.hs
View file

@ -30,7 +30,9 @@ lowLevelTests = testGroup "Unit tests of low-level Haskell library"
, testClientRequestNoServer , testClientRequestNoServer
, testServerAwaitNoClient , testServerAwaitNoClient
, testPayloadLowLevelUnregistered , testPayloadLowLevelUnregistered
, testPayload
] ]
]
dummyMeta :: M.Map ByteString ByteString dummyMeta :: M.Map ByteString ByteString
dummyMeta = M.fromList [("foo","bar")] dummyMeta = M.fromList [("foo","bar")]
@ -265,8 +267,9 @@ testPayloadServer = do
cancelledPtr <- malloc cancelledPtr <- malloc
opRecvCloseServer respOps 0 cancelledPtr opRecvCloseServer respOps 0 cancelledPtr
opSendMessage respOps 1 respbb opSendMessage respOps 1 respbb
opSendStatusServer respOps 2 0 (MetadataKeyValPtr nullPtr) B.useAsCString "ok" $ \detailsStr ->
GrpcStatusOk "ok" opSendStatusServer respOps 2 0 (MetadataKeyValPtr nullPtr)
GrpcStatusOk detailsStr
serverCall <- peek serverCallPtr serverCall <- peek serverCallPtr
respBatchError <- grpcCallStartBatch serverCall respOps 3 respBatchError <- grpcCallStartBatch serverCall respOps 3
(tag 103) reserved (tag 103) reserved