anchor.diff:      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 ->
  
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: end_per_testcase(_Case, _Config) ->
      ok.
  
  %% Configuration
  %% ----------------------------------------------------------------------
  common_configuration() ->
    [
     {dirwatch_interval, 20 },
  