- $queue_list = [keys %{internal_queues()}] unless $queue_list;
- is_deeply([sort @queues],[sort @$queue_list], "Queue list contains the expected queues");
+ my @queue_ids = $queuelist->possible_values;
+ my @queue_names = $queuelist->value_names;
+
+ my $full_queue_list = internal_queues();
+ $queue_id_list = [keys %$full_queue_list] unless $queue_id_list;
+ $queue_name_list = [values %$full_queue_list] unless $queue_name_list;
+ is_deeply([sort @queue_ids],[sort @$queue_id_list],
+ "Queue list contains the expected queue ids");
+ is_deeply([sort @queue_names],[sort @$queue_name_list],
+ "Queue list contains the expected queue namess");