anchor.diff:  -ifdef(TEST).
   
   -define(path, <<"/organizations/clownco">>).
  +-define(path_with_query, <<"/organizations/clownco?a=1&b=2">>).
   -define(hashed_path, <<"YtBWDn1blGGuFIuKksdwXzHU9oE=">>).
   
   -define(body, <<"Spec Body">>).
  
positive.code:     Path;
  canonical_path(Path) ->
      NoDoubles = re:replace(Path, "/+/", <<"/">>, [{return, binary}, global]),
      re:replace(NoDoubles, "/$", % fix emacs erlang-mode: "
                 "", [{return, binary}]).
  
  %% @doc Canonicalize HTTP method as all uppercase binary
  
  
negative.code: 
  hashed_path_test() ->
      ?assertEqual(?hashed_path, hash_string(canonical_path(?path))).
  
  hashed_path_query_params_are_ignored_test() ->
      %% for X-Ops_sign: version=1.0, query params are not included in
      %% the hash of the path for request verification.
      ?assertEqual(?hashed_path, hash_string(canonical_path(?path_with_query))).
  
  hashed_body_test() ->
      ?assertEqual(?hashed_body, hashed_body(?body)).
  