anchor.diff:  	 init_per_group/2,end_per_group/2, 
   	 t_size/1, t_tuple_size/1, t_element/1, t_setelement/1,
   	 t_insert_element/1, t_delete_element/1,
  -	 t_list_to_tuple/1, t_tuple_to_list/1,
  -	 t_make_tuple_2/1, t_make_tuple_3/1, t_append_element/1,
  +	 t_list_to_tuple/1, t_list_to_upper_boundry_tuple/1, t_tuple_to_list/1,
  +	 t_make_tuple_2/1, t_make_upper_boundry_tuple_2/1, t_make_tuple_3/1,
  +	 t_append_element/1, t_append_element_upper_boundry/1,
   	 build_and_match/1, tuple_with_case/1, tuple_in_guard/1]).
   -include_lib("test_server/include/test_server.hrl").
   
  
positive.code:     % bignum
      {'EXIT', {badarg,_}} = (catch erlang:make_tuple(1 bsl 65 + 3, a)),
      ok.
  
  t_make_tuple1(Element) ->
      lists:foreach(fun(Size) -> t_make_tuple(Size, Element) end,
  
negative.code:     [].
  
  init_per_suite(Config) ->
      A0 = case application:start(sasl) of
  	     ok -> [sasl];
  	     _ -> []
  	 end,
      A = case application:start(os_mon) of
  	     ok -> [os_mon|A0];
  	     _ -> A0
  	 end,
      [{started_apps, A}|Config].
  
  end_per_suite(Config) ->
      As = ?config(started_apps, Config),
      lists:foreach(fun (A) -> application:stop(A) end, As),
      Config.
  
  init_per_group(_GroupName, Config) ->
      Config.
  