anchor.diff:        {"Expired cache, re-calculate",
          fun get_expired/0},
         {"Only a single process can calculate stats",
  -       fun serialize_calls/0}
  -     ]}.
  +       fun serialize_calls/0},
  +      {"Crash test",
  +       fun crasher/0}
  +      ]}.
   
   register() ->
       [meck:expect(M, produce_stats, fun() -> ?STATS end)
  
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:     %% if a get stats is not under way start one
      Awaiting = case orddict:find(App, Active) of
                     error ->
                        Pid = do_get_stats(App, {M, F, A}),
                         {Pid, [From]};
                     {ok, {Pid, Froms}} ->
                         {Pid, [From|Froms]}
                 end,
      orddict:store(App, Awaiting, Active).
  
  