anchor.diff:                  Index = <<"myindex">>,
                   Bucket = <<"mybucket">>,
                   ?assertEqual(ok, ?MODULE:create_search_index(Pid, Index)),
  -                wait_until( fun() ->
  -                    case ?MODULE:get_search_index(Pid, Index) of
  -                        {ok, IndexData} ->
  -                            proplists:get_value(index, IndexData) == Index;
  -                        {error, <<"notfound">>} ->
  -                            false
  -                    end
  -                end, 20, 1000 ),
                   ok = ?MODULE:set_search_index(Pid, Bucket, Index),
                   PO = riakc_obj:new(Bucket, <<"fred">>, <<"{\"name_s\":\"בָּרָא\"}">>, "application/json"),
                   {ok, _Obj} = ?MODULE:put(Pid, PO, [return_head]),
  
positive.code:                  ok = ?MODULE:counter_incr(Pid, Bucket, Key, -5, [{w, quorum}, {pw, one}, {dw, all}]),
                   ?assertEqual({ok, 5}, ?MODULE:counter_val(Pid, Bucket, Key, [{pr, one}]))
               end)},
       {"create a search index / get / list / delete",
       {timeout, 30, ?_test(begin
                  reset_riak(),
                  {ok, Pid} = start_link(test_ip(), test_port()),
  
negative.code:                                                 Index,
                                                  SchemaName,
                                                  [{n_val,2}])),
                      case ?MODULE:get_search_index(Pid, Index) of
                          {ok, IndexData} ->
                              ?assertEqual(proplists:get_value(
                                           index, IndexData), Index),
                              ?assertEqual(proplists:get_value(
                                           schema, IndexData), SchemaName),
                              ?assertEqual(proplists:get_value(
                                           n_val, IndexData), 2);
                          {error, <<"notfound">>} ->
                              false
                      end,
                  ?assertEqual({ok, [[{index,Index},
                                      {schema,SchemaName},
                                      {n_val,2}]]},
                               ?MODULE:list_search_indexes(Pid)),
                  ?assertEqual(ok, ?MODULE:delete_search_index(Pid, Index))
               end)}},
       {"create a search index / get with user-set timeout",
       {timeout, 30, ?_test(begin
                  reset_riak(),
                  {ok, Pid} = start_link(test_ip(), test_port()),
                  reset_solr(Pid),
                  Index = <<"indexwithintimeouttest">>,
                  SchemaName = <<"_yz_default">>,
                  ?assertEqual(ok,
                      ?MODULE:create_search_index(Pid,
                                                  Index,
                                                  SchemaName,
                                                  20000)),
                      case ?MODULE:get_search_index(Pid, Index) of
                          {ok, IndexData} ->
                              ?assertEqual(proplists:get_value(
                                           index, IndexData), Index),
                              ?assertEqual(proplists:get_value(
                                           schema, IndexData), SchemaName);
                          {error, <<"notfound">>} ->
                              false
                      end
               end)}},
       {"create a search schema / get",
        {timeout, 30, ?_test(begin
                  reset_riak(),
  