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