anchor.diff:  
   on_load_embedded_1(Config) ->
       DataDir = proplists:get_value(data_dir, Config),
  +    LinkName = proplists:get_value(link_name, 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]),
  
positive.code:     {ok, HostName} = inet:gethostname(),
      NodeName = list_to_atom(atom_to_list(TC)++"@"++HostName),
      test_server:stop_node(NodeName),
      end_per_testcase(Config);
  end_per_testcase(_Func, Config) ->
      end_per_testcase(Config).
  
negative.code:     ok = rpc:call(Node, on_load_embedded, status, []),
  
      %% Clean up.
      stop_node(Node).
  
  del_link(LinkName) ->
     case file:delete(LinkName) of
  