anchor.diff:  	_Else ->
   	    {skip, "Needs crypto!"}
       end;
  +init_per_testcase(on_load_embedded, Config) ->
  +    LibRoot = code:lib_dir(),
  +    LinkName = filename:join(LibRoot, "on_load_app-1.0"),
  +    [{link_name,LinkName}|Config];
   init_per_testcase(_Func, Config) ->
       P = code:get_path(),
       [{code_path, P}|Config].
  
positive.code: 
  on_load_embedded_1(Config) ->
      DataDir = proplists:get_value(data_dir, Config),
  
      %% Link the on_load_app application into the lib directory.
      LibRoot = code:lib_dir(),
      LinkName = filename:join(LibRoot, "on_load_app-1.0"),
      OnLoadApp = filename:join(DataDir, "on_load_app-1.0"),
      del_link(LinkName),
      io:format("LinkName :~p, OnLoadApp: ~p~n",[LinkName,OnLoadApp]),
  
negative.code:     ok = rpc:call(Node, on_load_embedded, status, []),
  
      %% Clean up.
      stop_node(Node).
  
  del_link(LinkName) ->
     case file:delete(LinkName) of
  