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: 
  
  %%-------------------------------------------------------------------------
  simple_one_for_one_extra(doc) -> 
      ["Tests automatic restart of children " 
       "who's start function return extra info."];
  simple_one_for_one_extra(suite) -> [];
  simple_one_for_one_extra(Config) when is_list(Config) ->
      process_flag(trap_exit, true),
      Child = {child, {supervisor_1, start_child, [extra_info]}, 
  
negative.code:     check_exit([CPid2, SupPid]).
  
  %%-------------------------------------------------------------------------
  %% Test that the supervisor does not hang forever if the child unliks
  %% and then is terminated by the supervisor.
  child_unlink(Config) when is_list(Config) ->
  
      {ok, SupPid} = start_link({ok, {{one_for_one, 2, 3600}, []}}),
  