anchor.diff:      Uint band 16#ff;
   uint8(Uint) ->
       exit({badarg, uint8, [Uint]}).
  +
  +free_memory() ->
  +    %% Free memory in MB.
  +    try
  +	SMD = memsup:get_system_memory_data(),
  +	{value, {free_memory, Free}} = lists:keysearch(free_memory, 1, SMD),
  +	TotFree = (Free +
  +		   case lists:keysearch(cached_memory, 1, SMD) of
  +		       {value, {cached_memory, Cached}} -> Cached;
  +		       false -> 0
  +		   end +
  +		   case lists:keysearch(buffered_memory, 1, SMD) of
  +		       {value, {buffered_memory, Buffed}} -> Buffed;
  +		       false -> 0
  +		   end),
  +	TotFree div (1024*1024)
  +    catch
  +	error : undef ->
  +	    ct:fail({"os_mon not built"})
  +    end.
  
positive.code:        message_latency_large_monitor_exit,
         message_latency_large_exit2]}
      ].
  
  %% Tests pinging a node in different ways.
  ping(Config) when is_list(Config) ->
  
negative.code: -define(Line,).
  
  -export([all/0, suite/0, groups/0,
           init_per_suite/1, end_per_suite/1,
           init_per_group/2, end_per_group/2,
           ping/1, bulk_send_small/1,
           group_leader/1,
           optimistic_dflags/1,
  