anchor.diff:  
   %% Test loading/upgrade in on_load
   t_on_load(Config) when is_list(Config) ->
  -    [begin io:format("Do test for API version \"~p\"", [API]),
  -           t_on_load_do([{nif_api_version,API}|Config])
  -     end
  -     || API <- ["", ".2_4"]].
  -
  -t_on_load_do(Config) ->
       TmpMem = tmpmem(),
       ensure_lib_loaded(Config),
   
  
positive.code: 
  %% Test resource takeover by module upgrade
  resource_takeover(Config) when is_list(Config) ->    
      [begin io:format("Do test for API version \"~p\"", [API]),
             resource_takeover_do([{nif_api_version,API}|Config])
       end
       || API <- ["", ".2_4"]].
  
  resource_takeover_do(Config) ->
      TmpMem = tmpmem(),
      ensure_lib_loaded(Config),
  
  
negative.code:      nif_port_command,
       nif_snprintf].
  
  groups() ->
      [{G, [], api_repeaters()} || G <- api_groups()].
  
  api_groups() -> [api_latest, api_2_4].
  
  api_repeaters() -> [upgrade, resource_takeover, t_on_load].
  
  init_per_group(api_latest, Config) -> Config;
  init_per_group(api_2_4, Config) ->
      [{nif_api_version, ".2_4"} | Config].
  
  end_per_group(_,_) -> ok.
  
  init_per_testcase(t_on_load, Config) ->
      ets:new(nif_SUITE, [named_table]),
      Config;
  