anchor.diff:      {ok, O2} = ?scarcity:get_order(6, Pieces),
       ?assertEqual([0,1,2,3,4,5,6,7], O2).
   
  -init_watch_case() ->
  -    {ok, _} = ?scarcity:start_link(7),
  +init_watch_case({N, Time, Pid}) ->
       {ok, Ref, Order} = ?scarcity:watch(7, seven, pieces([0,2,4,6])),
       ?assert(is_reference(Ref)),
       ?assertEqual([0,2,4,6], Order).
   
  -add_peer_update_case() ->
  -    {ok, _} = ?scarcity:start_link(8),
  +add_peer_update_case({N, Time, Pid}) ->
       {ok, Ref, _} = ?scarcity:watch(8, eight, pieces([0,2,4,6])),
  +    ?assertEqual(1, ?timer:fire(Time)),
       ok = ?scarcity:add_peer(8, pieces([0,2])),
       receive
           {scarcity, Ref, Tag, Order} ->
  
positive.code:             ?assertEqual(make_ref(), Other)
      end.
  
  add_piece_update_case() ->
      {ok, _} = ?scarcity:start_link(9),
      {ok, Ref, _} = ?scarcity:watch(9, nine, pieces([0,2,4,6])),
      ok = ?scarcity:add_peer(9, pieces([])),
      ok = ?scarcity:add_piece(9, 2, pieces([2])),
      receive
          {scarcity, Ref, nine, Order} ->
              ?assertEqual([0,4,6,2], Order)
      end.
  
  peer_exit_update_case() ->
      {ok, _} = ?scarcity:start_link(10),
      Main = self(),
      Pid = spawn_link(fun() ->
          ok = ?scarcity:add_peer(10, pieces([0,1,2,3])),
  
negative.code:     receive done -> ok end,
      {ok, Ref, _} = ?scarcity:watch(10, ten, pieces([0,2,4,6])),
      Pid ! die,
      ?assertEqual(1, ?timer:fire(Time)),
      receive
          {scarcity, Ref, ten, Order} ->
              ?assertEqual([0,2,4,6], Order)
      end.
  
  local_unwatch_case({N, Time, Pid}) ->
      {ok, Ref, _} = ?scarcity:watch(11, eleven, pieces([0,2,4,6])),
      ?assertEqual(ok, ?scarcity:unwatch(11, Ref)),
      ok = ?scarcity:add_peer(11, pieces([0,1,2,3,4,5,6,7])),
  