anchor.diff:  %%%%%%%%%%%%%%%%%%%%%%%%%%
   re_wm_explore_test_() ->
       {setup,
  -     fun () -> 
  +     fun () ->
                {ok, "204", _} = ret:http(put, "http://localhost:8098/types/mytype/buckets/test/keys/test", <<"testing">>)
        end,
        fun (_) -> ok end,
  
positive.code:     Body = binary_to_list(list_to_binary(mochijson2:encode(Data))),
      Body.
  
  -endif.
  
negative.code: 
  all_routes() ->
      Routes = re_wm:routes(),
      RiakType = riak_type(),
      lists:flatten([ [ assert_paths(Method, Base, Paths, RiakType, [])
          || Method <- Methods ]
        || #route{base=[Base|_],path=Paths,methods=Methods} <- Routes ]).
  
  assert_paths(_, _, [], _, Accum) -> lists:reverse(Accum);
  assert_paths(Method, Base, [Path|Paths], RiakType, Accum) ->
      case is_testable_path(Path, RiakType) of
          true ->
              Url = ret:url(to_path_str(Base) ++ "/" ++ to_path_str(Path)),
              Body = path_body(Method, Path),
              {ok, Code, Content} = ret:http(Method, Url, Body),
              ExpectedCode = path_code(Method, Path),
              assert_paths(Method, Base, Paths, RiakType, [?_assertEqual({ExpectedCode, Method, Url, Content}, {Code, Method, Url, Content})|Accum]);
          false ->
              ?debugFmt("Skipping ~p because we are on Riak OSS.~n", [Path]),
              assert_paths(Method, Base, Paths, RiakType, Accum)
      end.
  
  
  to_path_str(["config", "files", file]) ->
      string:join(["config", "files", "riak.conf"], "/");
  