sample.erl

-module(sample).

-compile(export_all).

-record(store, {key, value}).

main() ->
  crypto:start(),
  mnesia:start(),
  mnesia:create_table(store,
                      [{frag_properties,
                        [{node_pool, [node()]},
                         {n_fragments, 128}]},
                       {attributes, record_info(fields, store)}]),
  F = fun(_) ->
        add_store()
      end,
  lists:foreach(F, lists:duplicate(1000000, dummy)),
  mnesia:info(),
  crypto:stop(),
  mnesia:stop(),
  ok.

add_store() ->
  F = fun() ->
        Key = crypto:rand_bytes(32),
        Value = crypto:rand_bytes(32),
        mnesia:write(store, #store{key=Key, value=Value}, sticky_write)
      end,
  ok = mnesia:activity(async_dirty, F, [], mnesia_frag),
  ok.