anchor.diff:  -spec extract_parentURI(list(), list()) -> list().
   extract_parentURI([], Acc) ->
       Acc;
  -extract_parentURI([H|T], Acc) when is_binary(H) ->
  -    Acc2 = Acc ++ "/" ++ binary_to_list(H),
  -    extract_parentURI(T, Acc2);
  +%% extract_parentURI([H|T], Acc) when is_binary(H) ->
  +%%     Acc2 = Acc ++ "/" ++ binary_to_list(H),
  +%%     extract_parentURI(T, Acc2);
   extract_parentURI([H|T], Acc) ->
       Acc2 = Acc ++ "/" ++ H,
       extract_parentURI(T, Acc2).
  
positive.code: 
  %% @doc Update a parent object with a new child
  -spec update_parent(object_oid(), string(), object_type(), pid()) -> {ok, map()} | {error, term()}.
  update_parent(Root, _, _, _) when Root == ""; Root == <<"">> ->
  %    ?nebMsg("Entry"),
      %% Must be the root, since there is no parent.
      {ok, <<"">>};
  update_parent(ParentId, Path, ObjectType, Pid) when is_binary(ParentId), is_list(Path), is_binary(ObjectType), is_pid(Pid) ->
  %    ?nebMsg("Entry"),
      N = case length(string:tokens(Path, "/")) of
              0 ->
                  "";
              _Other ->
                  lists:last(string:tokens(Path, "/"))
          end,
      Name = case ObjectType of
                 ?CONTENT_TYPE_CDMI_CAPABILITY ->
                     N ++ "/";
  
negative.code:                     ?assertMatch(<<"tuple">>, type_of({tuple}))
                  end
              },
              {"Test update_data_system_metadata/4 when no data to update",
                  fun () ->
                      Data = maps:from_list([{<<"key">>, <<"value">>}]),
                      ?assertMatch(Data, update_data_system_metadata([], Data, [], {}))
                  end
              },
              {"Test update_data_system_metadata/4 contract",
                  fun () ->
                      Map = maps:new(),
                      ?assertException(error, function_clause, update_data_system_metadata(notalist, Map, "", {})),
                      ?assertException(error, function_clause, update_data_system_metadata([], notamap, <<"">>, {})),
                      ?assertException(error, function_clause, update_data_system_metadata([], Map, notalistorbinary, {})),
                      ?assertException(error, function_clause, update_data_system_metadata([], Map, "", notatuple))
                  end
              },
              {"Test update_parent/4 when object is root",
                  fun () ->
                      Pid = self(),
                      ?assertMatch({ok, <<"">>}, update_parent(<<"">>, "/path", ?CONTENT_TYPE_CDMI_CONTAINER, Pid))
                  end
              },
              {"Test update_parent/4",
                  fun () ->
                      Pid = self(),
  