anchor.diff:      ?assert(is_pid(progress())).
   
   lookup_registered_case() ->
  -    ?assertEqual(true, ?pending:register_server(0)),
  +    ?assertEqual(true, ?progress:register_server(0)),
       ?assertEqual(self(), ?progress:lookup_server(0)).
   
   unregister_case() ->
  -    ?assertEqual(true, ?pending:register_server(1)),
  +    ?assertEqual(true, ?progress:register_server(1)),
       ?assertEqual(true, ?progress:unregister_server(1)),
       ?assertError(badarg, ?progress:lookup_server(1)).
   
  
positive.code:     {Pid, undefined} = gproc:await(Name, 5000),
      Pid.
  
  -spec register(torrent_id()) -> true.
  register(TorrentID) ->
      ChunkSrv = lookup_server(TorrentID),
      call(ChunkSrv, {register, self()}).
  
  chunk_server_key(TorrentID) ->
      {etorrent, TorrentID, chunk_server}.
  
  
negative.code:     {ok, InitState}.
  
  
  handle_call({request_chunks, PeerPid, Peerset, Numchunks}, _, State) ->
      #state{
          torrent_id=TorrentID,
          pieces_valid=Valid,
  