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:                              Suites)}};
  filter_opts(_) -> true.
  
  add_hooks(Opts) ->
      %% cth_readable hooks
      case lists:keyfind(ct_hooks, 1, Opts) of
          false ->
              [{ct_hooks, [cth_readable_failonly, cth_readable_shell]} | Opts];
          {ct_hooks, Hooks} ->
              %% Make sure hooks are there once only.
              ReadableHooks = [cth_readable_failonly, cth_readable_shell],
              NewHooks =  (Hooks -- ReadableHooks) ++ ReadableHooks,
  
negative.code: 
  cfgopts(State) ->
      Opts = rebar_state:get(State, ct_opts, []),
      add_hooks(rebar_utils:filtermap(fun filter_opts/1, Opts), State).
  
  filter_opts({test_spec, _}) ->
      ?WARN("Test specs not supported", []),
  