anchor.diff:  %
   get_kind_col(_Config) ->
       Id = ?NAME ++ "/collections/compute/",
  -    {ok, {{_Protocol,Code,_Status}, _Headers, _Body}} = httpc:request(get, {Id, [{"accept","application/json"}]}, [], []),   
  +    {ok, {{_Protocol,Code,_Status}, _Headers, _Body}} = 
  +	httpc:request(get, {Id, [{"accept","application/json"}]}, [], []),   
       ?assertEqual(200, Code).
   
   %
  
positive.code: %
  post_resource_new(_Config) ->
      Id = ?NAME ++ "/myresources/id",
      {ok,{{_Protocol,Code,_Status},_Headers,_Body}} =  httpc:request(post,{Id,[],"application/json","{ \"resources\": [  {  \"kind\": \"http://schemas.ogf.org/occi/infrastructure#compute\",  \"attributes\": {  \"occi\":{\"compute\":{\"speed\": 2,\"memory\": 2,\"cores\": 2}} } } ]}"},[],[]),
      ?assertEqual(200,Code).
  
  %
  % @doc Test creation of a resource on an ID which is not existing.
  
negative.code: % end
  %
  get_query(_Config) ->
      {ok, {{_Protocol, Code, _Status}, Headers, _Body}} = httpc:
  	request(get, {?NAME ++ "/-/", [{"accept","application/json"}]}, [], []),
      ?assertEqual(200, Code),
      ?assert(lists:member({"content-type","application/json"}, Headers)).
  
  %
  