anchor.diff:  
   
   %%-------------------------------------------------------------------------
  -simple_one_for_one_shutdown(doc) ->
  -    ["Test simple_one_for_one children shutdown accordingly to the "
  -     "supervisor's shutdown strategy."];
  -simple_one_for_one_shutdown(suite) -> [];
  +%% Test simple_one_for_one children shutdown accordingly to the
  +%% supervisor's shutdown strategy.
   simple_one_for_one_shutdown(Config) when is_list(Config) ->
       process_flag(trap_exit, true),
       ShutdownTime = 1000,
  
positive.code:     [1,1,0,1] = get_child_counts(sup_test).
  
  %%-------------------------------------------------------------------------
  transient_shutdown(doc) ->
      ["A transient child should not be restarted if it exits with " 
       "reason shutdown or {shutdown,Term}"];
  transient_shutdown(suite) -> [];
  transient_shutdown(Config) when is_list(Config) ->
      {ok, SupPid} = start_link({ok, {{one_for_one, 2, 3600}, []}}),
      Child1 = {child1, {supervisor_1, start_child, []}, transient, 1000,
  
negative.code:     check_exit([SupPid]).
  
  %%-------------------------------------------------------------------------
  %% Test restart escalation on a rest_for_one supervisor.
  rest_for_one_escalation(Config) when is_list(Config) ->
      process_flag(trap_exit, true),
      Child1 = {child1, {supervisor_1, start_child, []}, permanent, 1000,
  