anchor.diff:  %% ------------------------------------------------------------------
   %% Internal Function Definitions
   %% ------------------------------------------------------------------
  -start_next_test(State) ->
  -    [Server|Rest] = State#state.servers,
  +next_server() ->
  +    gen_fsm:send_event(?SERVER, next_server).
  +
  +%% switch from warmup to the full test
  +run_fulltest() ->
  +    gen_fsm:send_event(?SERVER, run_fulltest).
  +
  +do_atest(Callback, DBName, State) ->
  +    [Server|_] = State#state.servers,
       {_, DBRoot, Host, Port, Clients, Seconds} = State#state.config,
  -    DB = filename:join(DBRoot, Server),
  -
  -    RunnerCB = fun(done) ->
  -                       wsdemo_master_fsm:next_server();
  -                  (cancel) ->
  -                       pass
  -               end,
  +    DB = filename:join(DBRoot, DBName),
                     
       error_logger:info_msg("Testing ~p~n", [[{server, Server},
                                               {db, DB},
  
positive.code: %% API Function Exports
  %% ------------------------------------------------------------------
  
  -export([start_link/0, run_suite/2, run_suite/3, run_suite/6, next_server/0]).
  
  %% ------------------------------------------------------------------
  %% gen_fsm Function Exports
  
negative.code: handle_sync_event(Event, From, StateName, _State) ->
      % crash an unknown event
      exit({error, {invalid_event, {Event, From, StateName}}}).
  
  handle_info(_Info, StateName, State) ->
      {next_state, StateName, State}.
  