anchor.diff:      [1,0,0,1] = get_child_counts(sup_test).
   
   %%-------------------------------------------------------------------------
  -temporary_shutdown(doc) ->
  -    ["A temporary process should never be restarted"];
  -temporary_shutdown(suite) -> [];
  +%% A temporary process should never be restarted.
   temporary_shutdown(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:     check_exit([SupPid]).
  
  %%-------------------------------------------------------------------------
  rest_for_one_escalation(doc) ->
      ["Test restart escalation on a rest_for_one supervisor."];
  rest_for_one_escalation(suite) -> [];
  rest_for_one_escalation(Config) when is_list(Config) ->
      process_flag(trap_exit, true),
      Child1 = {child1, {supervisor_1, start_child, []}, permanent, 1000,
  
negative.code:     check_exit([SupPid]).
  
  %%-------------------------------------------------------------------------
  %% Test restart escalation on a one_for_one supervisor.
  one_for_one_escalation(Config) when is_list(Config) ->
      process_flag(trap_exit, true),
  
  