@@ -1524,6 +1524,32 @@ machine_version_test(_) ->
15241524 ? assert (priority_queue :is_queue (S )),
15251525 ok .
15261526
1527+ machine_version_waiting_consumer_test (_ ) ->
1528+ V0 = rabbit_fifo_v0 ,
1529+ S0 = V0 :init (#{name => ? FUNCTION_NAME ,
1530+ queue_resource => rabbit_misc :r (<<" /" >>, queue , <<" test" >>)}),
1531+ Idx = 1 ,
1532+ {# rabbit_fifo {}, ok , []} = apply (meta (Idx ), {machine_version , 0 , 1 }, S0 ),
1533+
1534+ Cid = {atom_to_binary (? FUNCTION_NAME , utf8 ), self ()},
1535+ Entries = [
1536+ {1 , rabbit_fifo_v0 :make_enqueue (self (), 1 , banana )},
1537+ {2 , rabbit_fifo_v0 :make_enqueue (self (), 2 , apple )},
1538+ {3 , rabbit_fifo_v0 :make_checkout (Cid , {auto , 5 , unsettled }, #{})}
1539+ ],
1540+ {S1 , _Effects } = rabbit_fifo_v0_SUITE :run_log (S0 , Entries ),
1541+ Self = self (),
1542+ {# rabbit_fifo {enqueuers = #{Self := # enqueuer {}},
1543+ consumers = #{Cid := # consumer {priority = 0 }},
1544+ service_queue = S ,
1545+ messages = Msgs }, ok , []} = apply (meta (Idx ),
1546+ {machine_version , 0 , 1 }, S1 ),
1547+ % % validate message conversion to lqueue
1548+ ? assertEqual (0 , lqueue :len (Msgs )),
1549+ ? assert (priority_queue :is_queue (S )),
1550+ ? assertEqual (1 , priority_queue :len (S )),
1551+ ok .
1552+
15271553queue_ttl_test (_ ) ->
15281554 QName = rabbit_misc :r (<<" /" >>, queue , <<" test" >>),
15291555 Conf = #{name => ? FUNCTION_NAME ,
0 commit comments