anchor.diff:  %% API Function Exports
   %% ------------------------------------------------------------------
   
  --export([start_link/0, run_suite/2, run_suite/3, run_suite/6, next_server/0]).
  +-export([start_link/0, run_suite/2, run_suite/3, run_suite/6]).
   
   %% ------------------------------------------------------------------
   %% gen_fsm Function Exports
  
positive.code:          code_change/4]).
  
  %% state handlers
  -export([idle/2, running/2]).
  
  %% ------------------------------------------------------------------
  %% API Function Definitions
  
negative.code:                                             {port, Port},
                                              {clients, Clients},
                                              {seconds, Seconds}]]),
      ok = wsdemo_runner_fsm:run(Callback,
                                 DB, Host, Port, Clients, Seconds).
      
  do_warmup(State) ->
      WarmupCallback = fun(done) ->
                               % send the full test event
                               run_fulltest();
                          (cancel) ->
                               pass
                   end,
      [Server|_] = State#state.servers,
      do_atest(WarmupCallback, Server ++ "-warmup", State).
      
  
  do_fulltest(State) ->
      FulltestCB = fun(done) ->
                           % send the next_server event
                           next_server();
                      (cancel) ->
                           pass
                   end,
      [Server|_] = State#state.servers,
      do_atest(FulltestCB, Server, State).
  