anchor.diff:  
   %% @doc Called before init_per_suite is called, this code might start a
   %% cluster, if one is configured for this suite.
  -pre_init_per_suite(_Suite, Config, State=#state{auto_start=false}) ->
  -    {Config, State};
  +pre_init_per_suite(Suite, Config, State=#state{auto_start=false}) ->
  +    {Config, State#state{suite=Suite}};
   pre_init_per_suite(Suite, Config, State) ->
       ct:pal("pre_init_per_suite: maybe start ~p", [Suite]),
  -    {systest:start_suite(Suite, Config), State}.
  +    %% TODO: handle init_per_suite use of cluster aliases
  +    {systest:start_suite(Suite, Config), State#state{suite=Suite}}.
   
   post_end_per_suite(Suite, Config, Result, State) ->
       %% TODO: check and see whether there *is* actually an active cluster
  
positive.code: %% @doc Called before each init_per_group.
  pre_init_per_group(_Group, Config, State=#state{auto_start=false}) ->
      {Config, State};
  pre_init_per_group(Group, Config, State) ->
      {systest:start(Group, Config), State}.
  
  post_end_per_group(Group, Config, Result, State) ->
      case ?CONFIG(Group, Config, undefined) of
  
negative.code: -export([terminate/1]).
  
  -record(state, {
      auto_start :: boolean(),
      suite      :: atom()
  }).
  
  %% @doc Return a unique id for this CTH.
  