anchor.diff:  %%% gen server
   
   init([]) ->
  +    process_flag(trap_exit, true),
       Tab = ets:new(?MODULE, [protected, set, named_table]),
       {ok, #state{tab=Tab}}.
   
  
positive.code: handle_cast({stats, App, Stats, TS}, State0=#state{tab=Tab, active=Active}) ->
      ets:insert(Tab, {App, TS, Stats}),
      State = case orddict:find(App, Active) of
                  {ok, Awaiting} ->
                      [gen_server:reply(From, {ok, Stats, TS}) || From <- Awaiting],
                      State0#state{active=orddict:erase(App, Active)};
                  error ->
  
negative.code:     [?assertEqual({ok, ?STATS, Now}, Res) || Res <- Results],
      ?assertEqual(2, meck:num_calls(riak_kv_stat, produce_stats, [])).
  
  crasher() ->
      Pid = whereis(riak_core_stat_cache),
      Now = tick(10000, 0),
      meck:expect(riak_core_stat, produce_stats, fun() ->
                                                         ?STATS end),
      meck:expect(riak_kv_stat, produce_stats, fun() -> erlang:error(boom)  end),
      ?assertMatch({error, {boom, _Stack}}, riak_core_stat_cache:get_stats(riak_kv)),
      ?assertEqual(Pid, whereis(riak_core_stat_cache)),
      ?assertEqual({ok, ?STATS, Now}, riak_core_stat_cache:get_stats(riak_core)).
  
  tick(Moment, IncrBy) ->
      meck:expect(folsom_utils, now_epoch, fun() -> Moment + IncrBy end),
      Moment+IncrBy.
  