anchor.diff:  %% ------------------------------------------------------------------
   %% Internal Function Definitions
   %% ------------------------------------------------------------------
  +start_server(ServerName) ->
  +    error_logger:info_msg("Starting ~w~n", [ServerName]),
  +    {message, "started"} = wsdemo_server_manager:start_server(ServerName),
  +
  +    % wait for the server to come up... TODO: Send a synchronous ping to the server
  +    timer:sleep(1000).
  +
  +stop_server(ServerName) ->
  +    error_logger:info_msg("Stopping Server", [ServerName]),
  +    {message, "server stopped"} = wsdemo_server_manager:stop_server().
  +    
   next_server() ->
       gen_fsm:send_event(?SERVER, next_server).
   
  
positive.code:     {next_state, warmup, State2}.
  
  warmup(run_fulltest, State) ->
      ok = do_fulltest(State),
      {next_state, fulltest, State}.
  
  fulltest(next_server, #state{callback=CB, servers=[_|Rest]} = State) ->
      case Rest of
          [] ->
              CB(done),
  
negative.code:             % pop off the current server and move to the warm up phase
              % for the next server
              State2 = State#state{servers=Rest},
              do_warmup(State2),
              {next_state, warmup, State2}
      end.
  
  