anchor.diff:  	 mime_decode_to_string/1,
   	 roundtrip_1/1, roundtrip_2/1, roundtrip_3/1, roundtrip_4/1]).
   
  -init_per_testcase(_, Config) ->
  -    Config.
  -
  -end_per_testcase(_, _Config) ->
  -    ok.
  -
   %%-------------------------------------------------------------------------
   %% Test cases starts here.
   %%-------------------------------------------------------------------------
  +
   suite() ->
       [{ct_hooks,[ts_install_cth]},
        {timetrap,{minutes,4}}].
   
  -all() -> 
  +all() ->
       [base64_encode, base64_decode, base64_otp_5635,
        base64_otp_6279, big, illegal, mime_decode, mime_decode_to_string,
        {group, roundtrip}].
   
  -groups() -> 
  +groups() ->
       [{roundtrip, [parallel],
         [roundtrip_1, roundtrip_2, roundtrip_3, roundtrip_4]}].
   
  -init_per_suite(Config) ->
  -    Config.
  -
  -end_per_suite(_Config) ->
  -    ok.
  -
  -init_per_group(_GroupName, Config) ->
  -    Config.
  -
  -end_per_group(_GroupName, Config) ->
  -    Config.
  -
  -
  +group(roundtrip) ->
  +    %% valgrind needs a lot of time
  +    [{timetrap,{minutes,10}}].
   
   %%-------------------------------------------------------------------------
   %% Test base64:encode/1.
  
positive.code: 
  random_byte_list(0, Acc) ->
      Acc;
  random_byte_list(N, Acc) -> 
      random_byte_list(N-1, [rand:uniform(255)|Acc]).
  
  make_big_binary(N) ->
  
negative.code: -include_lib("common_test/include/ct.hrl").
  
  %% Test server specific exports
  -export([all/0, suite/0, groups/0, group/1]).
  
  %% Test cases must be exported.
  -export([base64_encode/1, base64_decode/1, base64_otp_5635/1,
  