anchor.diff:  suite() ->
       [{timetrap, {minutes, 3}}].
   
  -start_opentracker(Dir) ->
  -    ToSpawn = "run_opentracker.sh -i 127.0.0.1 -p 6969",
  -    Spawn = filename:join([Dir, ToSpawn]),
  -    Pid = spawn(fun() ->
  -			Port = open_port(
  -				 {spawn, Spawn}, [binary, stream, eof]),
  -			receive
  -			    close ->
  -				port_close(Port)
  -			end
  -		end),
  -    Pid.
  -
  -stop_opentracker(Pid) ->
  -    Pid ! close.
  +%% Setup/Teardown
  +%% ----------------------------------------------------------------------
   
   init_per_suite(Config) ->
       %% We should really use priv_dir here, but as we are for-once creating
  
positive.code:     after
  	120*1000 -> exit(timeout_error)
      end.
  
  all() ->
      [member, seed_leech].
  
  member(Config) when is_list(Config) ->
      ?line {'EXIT',{badarg,_}} = (catch lists:member(45, {a,b,c})),
  
negative.code:     false = lists:member(arne_anka, List),
      false = lists:member({a,b,c}, List).
  
  
  %% Helpers
  %% ----------------------------------------------------------------------
  start_opentracker(Dir) ->
      ToSpawn = "run_opentracker.sh -i 127.0.0.1 -p 6969",
      Spawn = filename:join([Dir, ToSpawn]),
      Pid = spawn(fun() ->
  			Port = open_port(
  				 {spawn, Spawn}, [binary, stream, eof]),
  			receive
  			    close ->
  				port_close(Port)
  			end
  		end),
      Pid.
  
  stop_opentracker(Pid) ->
      Pid ! close.
  
  ensure_torrent_file(Fn) ->
      case filelib:is_regular(Fn ++ ".torrent") of
  	true ->
  