Fix issue with message payload being disposed while resending

src/Pulsar.Client/Common/Commands.fs

@@ -104,7 +104,6 @@ let private serializePayloadCommand (command : BaseCommand) (metadata: MessageMe
             try
                 return! temp.CopyToAsync(output)
             finally
-                payload.Dispose()
                 temp.Dispose()
                 binaryWriter.Dispose()
         } :> Task

src/Pulsar.Client/Common/DTO.fs

@@ -437,7 +437,8 @@ type internal PendingMessage<'T> =
         CreatedAt: TimeStamp
         SequenceId: SequenceId
         HighestSequenceId: SequenceId
-        Payload: SendTask
+        SendTask: SendTask
+        Payload: MemoryStream
         Callback : PendingCallback<'T>
     }
 

src/Pulsar.Client/Internal/ProducerImpl.fs

@@ -120,6 +120,7 @@ type internal ProducerImpl<'T> private (producerConfig: ProducerConfiguration, c
     let failPendingMessages (ex: exn) =
         while pendingMessages.Count > 0 do
             let msg = pendingMessages.Dequeue()
+            msg.Payload.Dispose()
             failPendingMessage msg ex
         while blockedRequests.Count > 0 do
             let struct(_, channel, _) = blockedRequests.Dequeue()
@@ -191,7 +192,7 @@ type internal ProducerImpl<'T> private (producerConfig: ProducerConfiguration, c
         pendingMessages.Enqueue(pendingMessage)
         match connectionHandler.ConnectionState with
         | Ready clientCnx ->
-            clientCnx.SendAndForget pendingMessage.Payload
+            clientCnx.SendAndForget pendingMessage.SendTask
         | _ ->
             Log.Logger.LogWarning("{0} not connected, skipping send", prefix)
 
@@ -208,12 +209,13 @@ type internal ProducerImpl<'T> private (producerConfig: ProducerConfiguration, c
                 |> post this.Mb
                 i <- i - 1
         pendingMessages.Dequeue() |> ignore
+        pendingMessage.Payload.Dispose()
 
     let resendMessages (clientCnx: ClientCnx) =
         if pendingMessages.Count > 0 then
             Log.Logger.LogInformation("{0} resending {1} pending messages", prefix, pendingMessages.Count)
             for pendingMessage in pendingMessages do
-                clientCnx.SendAndForget pendingMessage.Payload
+                clientCnx.SendAndForget pendingMessage.SendTask
         else
             Log.Logger.LogDebug("{0} No pending messages to resend", prefix)
             producerCreatedTsc.TrySetResult() |> ignore
@@ -222,7 +224,7 @@ type internal ProducerImpl<'T> private (producerConfig: ProducerConfiguration, c
         backgroundTask {
             use stream = MemoryStreamManager.GetStream()
             use reader = new BinaryReader(stream)
-            let struct(send, _) = msg.Payload
+            let struct(send, _) = msg.SendTask
             let writer = PipeWriter.Create(stream, StreamPipeWriterOptions(leaveOpen = true))
             do! send writer // materialize stream
             do! writer.CompleteAsync()
@@ -324,7 +326,8 @@ type internal ProducerImpl<'T> private (producerConfig: ProducerConfiguration, c
                 let pendingMessage = {
                     SequenceId = lowestSequenceId
                     HighestSequenceId = highestSequenceId
-                    Payload = sendTask
+                    SendTask = sendTask
+                    Payload = encryptedBatchPayload
                     Callback = BatchCallbacks batchCallbacks
                     CreatedAt = %Stopwatch.GetTimestamp()
                 }
@@ -468,7 +471,8 @@ type internal ProducerImpl<'T> private (producerConfig: ProducerConfiguration, c
                             let pendingMessage = {
                                 SequenceId = sequenceId
                                 HighestSequenceId = %(-1L)
-                                Payload = payload
+                                SendTask = payload
+                                Payload = encryptedPayload
                                 Callback = SingleCallback (chunkDetails, message, channel)
                                 CreatedAt = %Stopwatch.GetTimestamp()
                             }

tests/UnitTests/Common/CommandTests.fs

@@ -257,4 +257,16 @@ module CommandsTests =
                 command.Seek.ConsumerId |> Expect.equal "" %consumerId
                 command.Seek.RequestId |> Expect.equal "" %requestId
             }
+
+            test "newSend shouldn't dispose the payload" {
+                let producerId: ProducerId =  % 5UL
+                let sequenceId: SequenceId =  % 6L
+                let numMessages =  1
+                let metadata = MessageMetadata(ProducerName = "TestMe")
+                let payload = [| 1uy; 17uy; |]
+                let streamPayload = new MemoryStream(payload)
+
+                serializeDeserializePayloadCommand (newSend producerId sequenceId None numMessages metadata streamPayload) |> ignore
+                Expect.isTrue "Stream should not be disposed" streamPayload.CanRead
+            }
         ]