anchor.diff:      none;
   substr([C|S1], [C|S2], _MakeRel) ->
       substr(S1, S2, true);
  +substr([], [], true) ->
  +    {ok, "/"};
   substr([], S2, true) ->
       {ok, filename:join(S2)};
   substr(_S1, _S2, false) ->
  
positive.code: 
  rm_prefix_tesst_() ->
      Uri = occi_uri:parse("http://example.com:99/what/a/prefix/path/to/a/resource"),
      [
       ?_assert(rm_prefix(Uri, "/what/a/prefix") =:= #uri{path="path/to/a/resource"}),
       ?_assert(rm_prefix(Uri, "/what/a/prefix/") =:= #uri{path="path/to/a/resource"}),
  
negative.code: 		  #uri{scheme=http, host="example.com", port=99, path="/what/a/prefix/path/to/a/resource"}),
       ?_assert(rm_prefix(Uri, "/what/a/prefix") =:= 
  		  #uri{scheme=http, host="example.com", port=99, path="/what/a/prefix/path/to/a/resource"}),
       ?_assert(rm_prefix(Uri, "/") =:= #uri{path="what/a/prefix/path/to/a/resource"}),
       ?_assert(rm_prefix(Uri2, "/a/long/prefix") =:= #uri{path="/resource"}),
       ?_assert(rm_prefix(Uri2, "/resource/") =:= #uri{path="/resource"})
      ].
      
  -endif.
  