eeva/gRPC-haskell
1
0
Fork 0
mirror of https://github.com/unclechu/gRPC-haskell.git synced 2024-11-27 05:29:43 +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

5
tests/LowLevelTests.hs
View file

@ -30,6 +30,8 @@ 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
@ -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
B.useAsCString "ok" $ \detailsStr ->
opSendStatusServer respOps 2 0 (MetadataKeyValPtr nullPtr) opSendStatusServer respOps 2 0 (MetadataKeyValPtr nullPtr)
GrpcStatusOk "ok" GrpcStatusOk detailsStr
serverCall <- peek serverCallPtr serverCall <- peek serverCallPtr
respBatchError <- grpcCallStartBatch serverCall respOps 3 respBatchError <- grpcCallStartBatch serverCall respOps 3
(tag 103) reserved (tag 103) reserved