anchor.diff:      {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(on_load_embedded, Config) ->
  +    LinkName = proplists:get_value(link_name, Config),
  +    _ = del_link(LinkName),
       end_per_testcase(Config);
   end_per_testcase(_Func, Config) ->
       end_per_testcase(Config).
  
positive.code:     ok = rpc:call(Node, on_load_embedded, status, []),
  
      %% Clean up.
      stop_node(Node),
      ok = del_link(LinkName).
  
  del_link(LinkName) ->
     case file:delete(LinkName) of
  
negative.code: 
  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.
      OnLoadApp = filename:join(DataDir, "on_load_app-1.0"),
      del_link(LinkName),
      io:format("LinkName :~p, OnLoadApp: ~p~n",[LinkName,OnLoadApp]),
  