anchor.diff:      DirtyCPUSchedulersOnline = erlang:system_info(dirty_cpu_schedulers_online),
       DirtyIOSchedulersOnline = erlang:system_info(dirty_io_schedulers),
       SortedStats = lists:sort(Stats),
  +    ct:pal("Stats: ~p~n", [SortedStats]),
       SchedulersStats =
           lists:sublist(SortedStats, 1, SchedulersOnline),
       DirtyCPUSchedulersStats =
  
positive.code:                            || _ <- lists:seq(1, (DirtyIOSchedulers+1) div 2),
                                     DirtyIOSchedulers =/= 1],
          FullScheds = get_load(Type),
          {false,_} = {lists:any(fun(Load) -> Load < 80 end, FullScheds),FullScheds},
          FullLoad = lists:sum(FullScheds) div TotLoadSchedulers,
          if FullLoad > 90 -> ok;
  
negative.code:                                 scheduler_wall_time ->
                                      Schedulers + DirtyCPUSchedulers
                          end,
  
          Env = [io_lib:format("~s~n",[KV]) || KV <- os:getenv()],
  
          ct:log("Env:~n~s",[Env]),
  
          ct:log("Schedulers:               ~p~n"
                 "SchedulersOnline:         ~p~n"
                 "DirtyCPUSchedulers:       ~p~n"
                 "DirtyCPUSchedulersOnline: ~p~n"
                 "DirtyIOSchedulersOnline:  ~p~n",
                 [erlang:system_info(schedulers),
                  Schedulers,
                  erlang:system_info(dirty_cpu_schedulers),
                  DirtyCPUSchedulers,
                  DirtyIOSchedulers]),
  
          %% Let testserver and everyone else finish their work
          timer:sleep(1500),
  