anchor.diff:      "Scale timetraps";
   help(create_priv_dir) ->
       "Create priv dir (auto_per_run | auto_per_tc | manual_per_tc)";
  +help(readable) ->
  +    "Shows test case names and only displays logs to shell on failures";
   help(verbose) ->
       "Verbose output";
   help(_) ->
  
positive.code:                 Opts,
                  [{erl_opts, NewErlOpts}, {erl_first_files, NewFirstFiles}]).
  
  add_transforms(CTOpts) ->
      ReadableTransform = [{parse_transform, cth_readable_transform}],
      (CTOpts -- ReadableTransform) ++ ReadableTransform.
  
  
  test_dirs(State, Apps, Opts) ->
      case {proplists:get_value(suite, Opts), proplists:get_value(dir, Opts)} of
  
negative.code:                              Suites)}};
  filter_opts(_) -> true.
  
  add_hooks(Opts, State) ->
      case {readable(State), lists:keyfind(ct_hooks, 1, Opts)} of
          {false, _} ->
              Opts;
          {true, false} ->
              [{ct_hooks, [cth_readable_failonly, cth_readable_shell]} | Opts];
          {true, {ct_hooks, Hooks}} ->
              %% Make sure hooks are there once only.
              ReadableHooks = [cth_readable_failonly, cth_readable_shell],
              NewHooks =  (Hooks -- ReadableHooks) ++ ReadableHooks,
  