anchor.diff:  
       [Server|_] = State#state.servers,
       start_server(Server),
  -    do_atest(WarmupCallback, Server ++ "-warmup", State).
  +    do_atest(WarmupCallback, Server ++ "-warmup", 0.1, State).
       
   
   do_fulltest(State) ->
  
positive.code: 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, DBName),
                    
      error_logger:info_msg("Testing ~p~n", [[{server, Server},
                                              {db, DB},
                                              {host, Host},
                                              {port, Port},
                                              {clients, Clients},
                                              {seconds, Seconds}]]),
      ok = wsdemo_runner_fsm:run(Callback,
                                 DB, Host, Port, Clients, Seconds).
      
  do_warmup(State) ->
  
  
negative.code:                          pass
                   end,
      [Server|_] = State#state.servers,
      do_atest(FulltestCB, Server, 1, State).
  