anchor.diff:  	  rest_for_one/1, rest_for_one_escalation/1,
   	  rest_for_one_other_child_fails_restart/1,
   	  simple_one_for_one_extra/1, simple_one_for_one_shutdown/1]).
  +
  +%% Significant child tests
  +-export([ significant_temporary/1, significant_transient/1,
  +	  significant_simple/1, significant_bystander/1,
  +	  significant_escalation/1, significant_upgrade_never_any/1,
  +	  significant_upgrade_any_never/1, significant_upgrade_never_all/1,
  +	  significant_upgrade_all_never/1, significant_upgrade_any_all/1,
  +	  significant_upgrade_all_any/1, significant_upgrade_child/1]).
   
   %% Misc tests
   -export([child_unlink/1, tree/1, count_children/1, count_children_supervisor/1,
  
positive.code: 	start_link({ok, {{simple_one_for_one, 2, 3600}, []}}),
      {error,{bad_start_spec,[C1,C2]}} =
  	start_link({ok, {{simple_one_for_one, 2, 3600}, [C1,C2]}}),
  
      ok.
  
  
negative.code: is_in_child_list(Pid, ChildPids) ->
      lists:member(Pid, ChildPids).
  
  check_exit(Pids) ->
      check_exit(Pids, infinity).
  
  check_exit([], _Timeout) ->
      ok;
  check_exit([Pid | Pids], Timeout) ->
      receive
  	{'EXIT', Pid, _} ->
  	    check_exit(Pids, Timeout)
      after Timeout ->
  	error
      end.
  
  check_exit_reason(Reason) ->
  