anchor.diff:      FileName=proplists:get_value(data_dir, _Config) ++ "res4.json",
       {ok,File}=file:read_file(FileName),
       Id = ?NAME ++ "/collections/compute",
  -    {ok,{{_Protocol,Code,_Status},Headers,_Body}} =  httpc:request(post,{Id,[],"application/json", File},[],[]),
  -    lager:info("###POST-KIND ~p",[Headers]),
  -    %%?assert(lists:member({"location",Id}, Headers)),
  +    {ok,{{_Protocol,Code,_Status},_Headers,_Body}} =  httpc:request(post,{Id,[],"application/json", File},[],[]),
       ?assertEqual(200,Code).
     
   
  
positive.code:      {test_link,
        [],
        [put_resources,put_link_new,
         put_link,         %Code http: {expected,409}, {value,200}
         get_link,    
         post_link_new,    %Code http: {expected,200}, {value,500}
         post_link,
         get_link,    
         delete_link,get_link_delete
  
negative.code:     FileName=proplists:get_value(data_dir, _Config) ++ "res6.json",
      {ok,File}=file:read_file(FileName),
      Id = ?NAME ++ "/collections/os_tpl/",
      {ok,{{_Protocol,Code,_Status},_Headers,_Body}} =  httpc:request(delete,{Id,[],"application/json",File},[],[]),
      ?assertEqual(204,Code).
  
  get_resource(_Config) ->
      Id = ?NAME ++ "/myresources/id", 
  