anchor.diff:      Tc = tc(),
       [{all, [parallel], [{group, P} || P <- ?PROTS]}
        | [{P, [], Tc} || P <- ?PROTS]].
  +
  +%% Not used, but a convenient place to enable trace.
  +init_per_suite(Config) ->
  +    Config.
  +
  +end_per_suite(_Config) ->
  +    ok.
   
   init_per_group(all, Config) ->
       Config;
  
positive.code: %% Compile example code under examples/code.
  
  code(Config) ->
      Node = slave(compile, here()),
      [] = rpc:call(Node,
                    ?MODULE,
                    install,
                    [proplists:get_value(priv_dir, Config)]),
      {ok, Node} = ct_slave:stop(compile).
  
  %% Compile on another node since the code path may be modified.
  install(PrivDir) ->
  
negative.code: -export([suite/0,
           all/0,
           groups/0,
           init_per_suite/1,
           end_per_suite/1,
           init_per_group/2,
           end_per_group/2]).
  
  