anchor.diff:      case {proplists:get_value(suite, Opts), proplists:get_value(dir, Opts)} of
           {Suites, undefined} -> set_compile_dirs(State, Apps, {suite, Suites});
           {undefined, Dirs}   -> set_compile_dirs(State, Apps, {dir, Dirs});
  -        {Suites, [Dir]}     -> set_compile_dirs(State, Apps, join(Suites, Dir));
  +        {Suites, Dir} when is_integer(hd(Dir)) ->
  +            set_compile_dirs(State, Apps, join(Suites, Dir));
  +        {Suites, [Dir]} when is_integer(hd(Dir)) ->
  +            set_compile_dirs(State, Apps, join(Suites, Dir));          
           {_Suites, _Dirs}    -> {error, "Only a single directory may be specified when specifying suites"}
       end.
   
  +join(Suite, Dir) when is_integer(hd(Suite)) ->
  +    {suite, [filename:join([Dir, Suite])]};
   join(Suites, Dir) ->
       {suite, lists:map(fun(S) -> filename:join([Dir, S]) end, Suites)}.
   
  
positive.code: split_string(String) ->
      string:tokens(String, [$,]).
  
  select_tests(State, ProjectApps, CmdOpts, CfgOpts) ->
      Merged = lists:ukeymerge(1,
                               lists:ukeysort(1, CmdOpts),
  
negative.code: run_tests(State, Opts) ->
      T = translate_paths(State, Opts),
      Opts1 = setup_logdir(State, T),
      ?DEBUG("ct_opts ~p", [Opts1]),
      {RawOpts, _} = rebar_state:command_parsed_args(State),
      ok = maybe_write_coverdata(State),
      case proplists:get_value(verbose, RawOpts, false) of
          true  -> run_test_verbose(Opts1);
          false -> run_test_quiet(Opts1)
      end.
  
  -spec format_error(any()) -> iolist().
  