Fix crash in rabbit_writer

091 payload fragements rev must be a list of binaries.
Fix following crash:
```
crasher:
  initial call: rabbit_writer:enter_mainloop/2
  pid: <0.700.0>
  registered_name: []
  exception error: bad argument
    in function  size/1
       called as size([<<0,83,119,160,3,0,1,2>>])
       *** argument 1: not tuple or binary
    in call from rabbit_binary_generator:build_content_frames/7 (rabbit_binary_generator.erl, line 89)
    in call from rabbit_binary_generator:build_simple_content_frames/4 (rabbit_binary_generator.erl, line 61)
    in call from rabbit_writer:assemble_frames/5 (rabbit_writer.erl, line 334)
    in call from rabbit_writer:internal_send_command_async/3 (rabbit_writer.erl, line 365)
    in call from rabbit_writer:handle_message/3 (rabbit_writer.erl, line 232)
    in call from rabbit_writer:mainloop1/2 (rabbit_writer.erl, line 216)
    in call from rabbit_writer:mainloop/2 (rabbit_writer.erl, line 207)
```

Author: ansd

deps/rabbit/src/mc_amqpl.erl

@@ -91,8 +91,11 @@ convert_from(mc_amqp, Sections) ->
                 %% TODO: This is potentially inefficient, but #content.payload_fragments_rev expects
                 %% currently a flat list of binaries. Can we make rabbit_writer work
                 %% with an iolist instead?
-                {[erlang:iolist_to_iovec(amqp10_framing:encode_bin(X))
-                  || X <- BodyRev], ?AMQP10_TYPE}
+                BinsRev = [begin
+                               IoList = amqp10_framing:encode_bin(X),
+                               erlang:iolist_to_binary(IoList)
+                           end || X <- BodyRev],
+                {BinsRev, ?AMQP10_TYPE}
         end,
     #'v1_0.properties'{message_id = MsgId,
                        user_id = UserId0,

deps/rabbitmq_amqp1_0/test/amqp10_client_SUITE.erl

@@ -29,6 +29,7 @@ groups() ->
                   roundtrip_classic_queue_with_drain,
                   roundtrip_quorum_queue_with_drain,
                   roundtrip_stream_queue_with_drain,
+                  amqp_stream_amqpl,
                   message_headers_conversion
                  ]},
      {metrics, [], [
@@ -303,6 +304,58 @@ roundtrip_queue_with_drain(Config, QueueType, QName) when is_binary(QueueType) -
     ok = amqp10_client:close_connection(Connection),
     ok.
 
+%% Send a message with a body containing a single AMQP 1.0 value section
+%% to a stream and consume via AMQP 0.9.1.
+amqp_stream_amqpl(Config) ->
+    Host = ?config(rmq_hostname, Config),
+    Port = rabbit_ct_broker_helpers:get_node_config(Config, 0, tcp_port_amqp),
+    Ch = rabbit_ct_client_helpers:open_channel(Config, 0),
+    ContainerId = QName = atom_to_binary(?FUNCTION_NAME),
+
+    amqp_channel:call(Ch, #'queue.declare'{
+                             queue = QName,
+                             durable = true,
+                             arguments = [{<<"x-queue-type">>, longstr, <<"stream">>}]}),
+
+    Address = <<"/amq/queue/", QName/binary>>,
+    OpnConf = #{address => Host,
+                port => Port,
+                container_id => ContainerId,
+                sasl => {plain, <<"guest">>, <<"guest">>}},
+    {ok, Connection} = amqp10_client:open_connection(OpnConf),
+    {ok, Session} = amqp10_client:begin_session(Connection),
+    SenderLinkName = <<"test-sender">>,
+    {ok, Sender} = amqp10_client:attach_sender_link(Session,
+                                                    SenderLinkName,
+                                                    Address),
+    wait_for_credit(Sender),
+    OutMsg = amqp10_msg:new(<<"my-tag">>, {'v1_0.amqp_value', {binary, <<0, 255>>}}, true),
+    ok = amqp10_client:send_msg(Sender, OutMsg),
+    flush("final"),
+    ok = amqp10_client:detach_link(Sender),
+    ok = amqp10_client:close_connection(Connection),
+
+    #'basic.qos_ok'{} =  amqp_channel:call(Ch, #'basic.qos'{global = false,
+                                                            prefetch_count = 1}),
+    CTag = <<"my-tag">>,
+    #'basic.consume_ok'{} = amqp_channel:subscribe(
+                              Ch,
+                              #'basic.consume'{
+                                 queue = QName,
+                                 consumer_tag = CTag,
+                                 arguments = [{<<"x-stream-offset">>, longstr, <<"first">>}]},
+                              self()),
+    receive
+        {#'basic.deliver'{consumer_tag = CTag,
+                          redelivered  = false},
+         #amqp_msg{props = #'P_basic'{type = <<"amqp-1.0">>}}} ->
+            ok
+    after 5000 ->
+              exit(basic_deliver_timeout)
+    end,
+    #'queue.delete_ok'{} = amqp_channel:call(Ch, #'queue.delete'{queue = QName}),
+    ok = rabbit_ct_client_helpers:close_channel(Ch).
+
 message_headers_conversion(Config) ->
     Host = ?config(rmq_hostname, Config),
     Port = rabbit_ct_broker_helpers:get_node_config(Config, 0, tcp_port_amqp),
@@ -468,7 +521,7 @@ wait_for_accepts(N) ->
 
 delete_queue(Config, QName) -> 
     Ch = rabbit_ct_client_helpers:open_channel(Config, 0),
-    _ = amqp_channel:call(Ch, #'queue.delete'{queue = QName}),
+    #'queue.delete_ok'{} = amqp_channel:call(Ch, #'queue.delete'{queue = QName}),
     rabbit_ct_client_helpers:close_channel(Ch).