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