anchor.diff:  -type monitorset() :: etorrent_monitorset:monitorset().
   
   -record(state, {
  +    torrent_id     :: pos_integer(),
       chunk_size     :: pos_integer(),
       pieces_valid   :: pieceset(),
       pieces_unknown :: pieceset(),
  
positive.code:          ?_test(not_interested_case()),
           ?_test(request_one_case()),
           ?_test(mark_dropped_case()),
           ?_test(mark_all_dropped_case())
          ]}.
  
  lookup_registered_case() ->
  
negative.code:     ?assertMatch({ok, [{0, 0, 1}]}, ?chunk_server:request_chunks(5, Has, 1)),
      ?assertMatch({ok, [{0, 1, 1}]}, ?chunk_server:request_chunks(5, Has, 1)).
  
  drop_all_on_exit_case() ->
      Srv = initial_chunk_server(6),
      Has = etorrent_pieceset:from_list([0], 3),
      Pid = spawn_link(fun() ->
          true = ?chunk_server:register_peer(6),
          {ok, [{0, 0, 1}]} = ?chunk_server:request_chunks(6, Has, 1),
          {ok, [{0, 1, 1}]} = ?chunk_server:request_chunks(6, Has, 1)
      end),
      Ref = monitor(process, Pid),
      ok  = receive {'DOWN', _, process, Pid, _} -> ok end,
      ?assertMatch({ok, [{0, 0, 1}]}, ?chunk_server:request_chunks(6, Has, 1)),
      ?assertMatch({ok, [{0, 1, 1}]}, ?chunk_server:request_chunks(6, Has, 1)).
  
  drop_none_on_exit_case() ->
      Srv = initial_chunk_server(7),
      Has = etorrent_pieceset:from_list([0], 3),
      Pid = spawn_link(fun() -> true = ?chunk_server:register_peer(7) end),
      Ref = monitor(process, Pid),
      ok  = receive {'DOWN', _, process, Pid, _} -> ok end,
      ?assertMatch({ok, [{0, 0, 1}]}, ?chunk_server:request_chunks(7, Has, 1)),
      ?assertMatch({ok, [{0, 1, 1}]}, ?chunk_server:request_chunks(7, Has, 1)).
  
  marked_stored_not_dropped_case() ->
      Srv = initial_chunk_server(8),
      Has = etorrent_pieceset:from_list([0], 3),
      Pid = spawn_link(fun() ->
          true = ?chunk_server:register_peer(8),
          {ok, [{0, 0, 1}]} = ?chunk_server:request_chunks(8, Has, 1),
          ok = ?chunk_server:mark_stored(8, 0, 0, 1)
      end),
      Ref = monitor(process, Pid),
      ok  = receive {'DOWN', _, process, Pid, _} -> ok end,
      ?assertMatch({ok, [{0, 1, 1}]}, ?chunk_server:request_chunks(8, Has, 1)).
  
  -endif.
  