anchor.diff:      ["Create a lot of crashdumps which can be used in the testcases below"];
   init_per_suite(Config) when is_list(Config) ->
       Dog = ?t:timetrap(?default_timeout),
  +    delete_saved(Config),
       application:start(inets), % will be using the http client later
       httpc:set_options([{ipfamily,inet6fb4}]),
       DataDir = ?config(data_dir,Config),
  -    Rels = [R || R <- [r13b,r14b], ?t:is_release_available(R)] ++ [current],
  +    Rels = [R || R <- [r14b,r15b], ?t:is_release_available(R)] ++ [current],
       io:format("Creating crash dumps for the following releases: ~p", [Rels]),
       AllDumps = create_dumps(DataDir,Rels),
       ?t:timetrap_cancel(Dog),
       [{dumps,AllDumps}|Config].
  +
  +delete_saved(Config) ->
  +    DataDir = ?config(data_dir,Config),
  +    file:delete(filename:join(DataDir,?failed_file)),
  +    SaveDir = filename:join(DataDir,"save"),
  +    Dumps = filelib:wildcard(filename:join(SaveDir,"*")),
  +    lists:foreach(fun(F) -> file:delete(F) end, Dumps),
  +    file:del_dir(SaveDir),
  +    ok.
  +
   
   translate(suite) ->
       [];
  
positive.code: 	r12b -> "+R12 ";
  	r13b -> "+R13 ";
  	r14b -> "+R14 ";
  	current -> ""
      end.
  
negative.code:     catch crashdump_viewer:stop(),
      Dog = ?t:timetrap(?default_timeout),
      [{watchdog, Dog}|Config].
  end_per_testcase(Case, Config) ->
      Dog=?config(watchdog, Config),
      ?t:timetrap_cancel(Dog),
      case ?config(tc_status,Config) of
  	ok ->
  	    ok;
  	_Fail ->
  	    File = filename:join(?config(data_dir,Config),?failed_file),
  	    {ok,Fd}=file:open(File,[append]),
  	    file:write(Fd,io_lib:format("~w.~n",[Case])),
  	    file:close(Fd)
      end,
      ok.
  
  suite() -> [{ct_hooks,[ts_install_cth]}].
  