anchor.diff:  -export([start/1,
            stop/1,
            clean/0]).
  +
  +-define(UNREGISTER_WORKERS, 10).
  +-define(WORKER_OVERRUN_TIME, 3000).
  +-define(MIN_UNREGISTER_TEMPO, 5000).
  +
   
   -type user_res() :: {atom(), integer()}.
   -type config() :: escalus:config().
  
positive.code:     receive
          {done, Id} ->
              collect(lists:filter(fun({Ord, _Item}) -> Ord =/= Id end, OrdItems))
      after 5000 ->
                error({timeout_when_unregistering,
                       {amount, length(OrdItems)},
                       {unregistered_items, untag(OrdItems)}})
  
negative.code:     wpool:stop(),
      nasty_global_table() ! bye.
  clean() ->
      wpool:start_sup_pool(unregister_pool, [{workers, ?UNREGISTER_WORKERS},
                                             {overrun_warning, ?WORKER_OVERRUN_TIME}]),
      L = tag(ets:tab2list(nasty_global_table())),
      [wpool:cast(unregister_pool,
                  {?MODULE, work_on_deleting_users, [Ord, Item, self()]})
       || {Ord, Item} <- L],
      ok = collect(L),
      ets:delete_all_objects(nasty_global_table()),
  