anchor.diff:  name_null_terminated(suite) ->
       [];
   name_null_terminated(Config) when is_list(Config) ->
  -    ?line ok = epmdrun(),
  -    ?line error = register_node("foobar\000"),
  +    ok = epmdrun(),
  +    error = register_node("foobar\000"),
       ok.
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
positive.code: -define(EPMDARGS,"-packet_timeout 1").
  
  -define(DUMMY_PORT, 1000).			% Port number to register
  						% not in real use.
  
  % Timeouts etc inside test cases. Time is in milliseconds.
  -define(CONN_RETRY, 4).				% Times to retry connecting
  
negative.code: buffer_overrun_1(doc) ->
      ["Test security vulnerability in fake extra lengths in alive2_req"];
  buffer_overrun_1(Config) when is_list(Config) ->
      ok = epmdrun(),
      true = alltrue([hostile(N) || N <- lists:seq(1,10000)]),
      ok.
  buffer_overrun_2(suite) ->
      [];
  buffer_overrun_2(doc) ->
      ["Test security vulnerability in fake extra lengths in alive2_req"];
  buffer_overrun_2(Config) when is_list(Config) ->
      ok = epmdrun(),
      [false | Rest] = [hostile2(N) || N <- lists:seq(255*4,10000)],
      true = alltrue(Rest),
      ok.
  hostile(N) ->
      try
          Bin= <<$x:8,4747:16,$M:8,0:8,5:16,5:16,5:16,"gurka",N:16>>,
          S = size(Bin),
          {ok,E}=connect_sturdy(),
          gen_tcp:send(E,[<<S:16>>,Bin]),
          closed = recv(E,1),
          gen_tcp:close(E),
          true
      catch
          _:_ ->
              false
      end.
  hostile2(N) ->
      try
          B2 = list_to_binary(lists:duplicate(N,255)),
          Bin= <<$x:8,4747:16,$M:8,0:8,5:16,5:16,5:16,"gurka",N:16,B2/binary>>,
          S = size(Bin),
          {ok,E}=connect_sturdy(),
          gen_tcp:send(E,[<<S:16>>,Bin]),
          Z = recv(E,2),
          gen_tcp:close(E),
          (Z =:= closed) or (Z =:= {ok, [$y,1]})
      catch
          _A:_B ->
              false
      end.
  
  alltrue([]) ->
  