anchor.diff:          high_limit=Highthreshold,
           queue=queue:new()},
       InitQueue.
  +
  +
  +%% @doc Remove all items from a request queue and return an empty queue
  +%% @end
  +-spec flush(rqueue()) -> rqueue().
  +flush(Requestqueue) ->
  +    #requestqueue{low_limit=Low, high_limit=High} = Requestqueue,
  +    new(Low, High).
  +
  +
  +%% @doc Get the list of chunks in the request queue
  +%% @end
  +-spec to_list(#requestqueue{}) -> [requestspec()].
  +to_list(Requestqueue) ->
  +    #requestqueue{queue=Queue} = Requestqueue,
  +    queue:to_list(Queue).
   
   
   %% @doc Push a request onto the end of the request queue
  
positive.code:     [?_assertEqual(1, ?rqueue:size(Q1)),
       ?_assertEqual({0,0,1}, ?rqueue:peek(Q1)),
       ?_assertEqual([{0,0,1}], ?rqueue:to_list(Q1)),
       ?_assertEqual([], ?rqueue:to_list(Q2))].
  
  head_check_test_() ->
      Q0 = ?rqueue:new(),
  
negative.code:     new(2, 10).
  
  
  %% @doc Create an empty request queue and specify pipeline thresholds
  %% @end
  -spec new(non_neg_integer(), pos_integer()) -> rqueue().
  