Macro for running tests that use Mnesia in a transaction

mnesia_test.ex

defmacro mnesia_test(description, context \\ quote(do: _), do: block) do
  quote do
    test unquote(description), unquote(context) do
      {:aborted, error} =
        Mnesia.transaction(fn ->
          unquote(block)
          Mnesia.abort(:ok)
        end)

      case error do
        :ok ->
          :ok

        {assertion_error, _} ->
          raise(assertion_error)
          {:error, assertion_error}

        something_else ->
          raise(something_else)
          {:error, something_else}
      end
    end
  end
end