anchor.diff:  
   leech_transmission(Config) ->
       io:format(user, "~n======START LEECH TRANSMISSION TEST CASE======~n", []),
  +    %% Set callback and wait for torrent completion.
       {Ref, Pid} = {make_ref(), self()},
       ok = rpc:call(?config(leech_node, Config),
   		  etorrent, start,
  
positive.code:     lists:concat(["'", Str, "'"]).
  
  start_transmission(DataDir, DownDir, Torrent) ->
      ToSpawn = ["run_transmission-cli.sh ", quote(Torrent),
  	       " -w ", quote(DownDir),
  	       " -g ", quote(DownDir),
  
negative.code: sha1_round(FD, {ok, Data}, Ctx) ->
      sha1_round(FD, file:read(FD, 1024*1024), crypto:sha_update(Ctx, Data)).
  
  
  
  del_dir_r(DirName) ->
      {ok, SubFiles} = file:list_dir(DirName),
      [file:delete(X) || X <- SubFiles],
      del_dir(DirName).
  
  del_dir(DirName) ->
      io:format(user, "Try to delete directory ~p.~n", [DirName]),
      case file:del_dir(DirName) of
          {error,eexist} ->
              io:format(user, "Directory is not empty. Content: ~n~p~n", 
                        [element(2, file:list_dir(DirName))]),
              ok;
          ok ->
              ok
      end.
  