riak

ExUnit.configure(exclude: [skip: true])
ExUnit.start

defmodule Riak.Case do
  use ExUnit.CaseTemplate

  setup do
    {:ok, pid} = Riak.Connection.start('127.0.0.1', 8087)
    on_exit fn ->
      #Riak.Helper.clean! pid
      Process.exit(pid, :kill)
    end
    {:ok, pid: pid}
  end
end

defmodule Riak.Helper do
  def clean!(pid) do
    # This is terrible, and should not be used.
    for bucket <- Riak.Bucket.list!(pid), key <- Riak.Bucket.keys!(pid, bucket) do
      Riak.delete(pid, bucket, key)
    end
  end

  def random_key do
    {me, se, mi} = :erlang.timestamp
    "#{me}#{se}#{mi}"
  end

  # helper for chosing the index of a sibling value list
  def index_of(search, [search|_], index) do
    index
  end
  def index_of(search, [_|rest], index) do
    index_of(search, rest, index+1)
  end
  def index_of(search, haystack) do
    index_of(search, haystack, 1)
  end
end