anchor.diff:           story_with_client_list/3,
            story_with_config/3,
            create_users/2,
  -         given_fresh_spec/2,
  +         given_fresh_specs/2,
            get_fresh_spec/2]).
   -export([start/1,
            stop/1,
  
positive.code: %% It is useful when testing some lower level parts of the protocol
  %% i.e. some stream features. It is side-effect free.
  -spec given_fresh_specs(config(), [userspec()]) -> [config()].
  given_fresh_spec(Config, UserSpecs) ->
      Suffix = fresh_suffix(),
      FreshSpecs = fresh_specs(Config, UserSpecs, Suffix),
      case length(FreshSpecs) == length(UserSpecs) of
          false ->
  
negative.code: %% The side effect is the creation of XMPP users on a server.
  -spec create_users(config(), [userspec()]) -> config().
  create_users(Config, UserSpecs) ->
      Suffix = fresh_suffix(),
      FreshSpecs = given_fresh_specs(Config, UserSpecs, Suffix),
      FreshConfig = escalus_users:create_users(Config, FreshSpecs),
      %% The line below is not needed if we don't want to support cleaning
      ets:insert(nasty_global_table(), {Suffix, FreshConfig}),
  