anchor.diff:      [1,1,0,1] = get_child_counts(sup_test).
   
   %%-------------------------------------------------------------------------
  -temporary_abnormal(doc) ->
  -    ["A temporary process should never be restarted"];
  -temporary_abnormal(suite) -> [];
  +%% A temporary process should never be restarted.
   temporary_abnormal(Config) when is_list(Config) ->
       {ok, SupPid} = start_link({ok, {{one_for_one, 2, 3600}, []}}),
       Child1 = {child1, {supervisor_1, start_child, []}, temporary, 1000,
  
positive.code: 
      [] = supervisor:which_children(NewSup2),
      [0,0,0,0] = get_child_counts(NewSup2).
  %%-------------------------------------------------------------------------
  count_children_memory(doc) ->
      ["Test that count_children does not eat memory."];
  count_children_memory(suite) ->
      [];
  count_children_memory(Config) when is_list(Config) ->
      process_flag(trap_exit, true),
      Child = {child, {supervisor_1, start_child, []}, temporary, 1000,
  
negative.code: 
  
  %%-------------------------------------------------------------------------
  %% Test restart escalation on a one_for_all supervisor.
  one_for_all_escalation(Config) when is_list(Config) ->
      process_flag(trap_exit, true),
  
  