anchor.diff:      case queue:out(Queue) of
           {empty, _} ->
               erlang:error(badarg);
  -        {{value, Head}, Tail} ->
  -            NewReqs = Requestqueue#requestqueue{queue=Tail},
  -            {Head, NewReqs}
  +        {{value, _}, Tail} ->
  +            Requestqueue#requestqueue{queue=Tail}
       end.
   
   
  
positive.code: one_request_test_() ->
      Q0 = ?rqueue:new(),
      Q1 = ?rqueue:push(0, 0, 1, Q0),
      {Req, Q2} = ?rqueue:pop(Q1),
      [?_assertEqual(1, ?rqueue:size(Q1)),
       ?_assertEqual({0,0,1}, ?rqueue:peek(Q1)),
       ?_assertEqual({0,0,1}, Req),
       ?_assertEqual([{0,0,1}], ?rqueue:to_list(Q1)),
       ?_assertEqual([], ?rqueue:to_list(Q2))].
  
  
negative.code:     Q0 = ?rqueue:new(),
      Q1 = ?rqueue:push(0, 0, 1, Q0),
      Q2 = ?rqueue:push([{0,1,1},{0,2,1}], Q1),
      OQ0 = ?rqueue:pop(Q2),
      OQ1 = ?rqueue:pop(OQ0),
      OQ2 = ?rqueue:pop(OQ1),
      [?_assertEqual({0,0,1}, ?rqueue:peek(Q2)),
       ?_assertEqual({0,1,1}, ?rqueue:peek(OQ0)),
       ?_assertEqual({0,2,1}, ?rqueue:peek(OQ1)),
       ?_assertEqual([{0,0,1},{0,1,1},{0,2,1}], ?rqueue:to_list(Q2)),
       ?_assertEqual([], ?rqueue:to_list(OQ2))].
  
  