anchor.diff:          _ ->
               ok
       end.
  +
  +pget({_, Initial}) ->
  +    persistent_term:get() -- Initial.
  
positive.code: %% and after each test case.
  
  chk() ->
      persistent_term:info().
  
  chk(Chk) ->
      Chk = persistent_term:info(),
      Key = {?MODULE,?FUNCTION_NAME},
      ok = persistent_term:put(Key, {term,Chk}),
      Term = persistent_term:get(Key),
      true = persistent_term:erase(Key),
      chk_not_stuck(Term),
      ok.
  
  chk_not_stuck(Term) ->
  
negative.code:          end || {I,Res} <- lists:zip(Seq, Result)],
      ok.
  
  wait(N, Chk) ->
      All = [P || {{?MODULE,_},_}=P <- pget(Chk)],
      case length(All) of
          N ->
              All = [{Key,persistent_term:get(Key)} || {Key,_} <- All],
              lists:sort(All);
          _ ->
              receive after 10 -> ok end,
              wait(N, Chk)
      end.
  
  %% Make sure that terms that have been erased are copied into all
  