From 93e9a92328c73a1efded2ecbfd01bc898258ba1b Mon Sep 17 00:00:00 2001
From: Joel Stanley <intractable@gmail.com>
Date: Tue, 24 May 2016 14:34:23 -0700
Subject: [PATCH] Relocate preliminary payload tests to LowLevelTests module

---
 tests/LowLevelTests.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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