anchor.diff:  -include_lib("common_test/include/ct.hrl").
   
   %% Test server specific exports
  --export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, 
  -	 init_per_group/2,end_per_group/2, 
  -	 init_per_testcase/2, end_per_testcase/2]).
  +-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,
  
positive.code:     %% One pad
      <<"Hello World">> = base64:decode(<<"SGVsbG8gV29ybGQ=">>),
      %% No pad
      <<"Aladdin:open sesam">> = 
  	base64:decode("QWxhZGRpbjpvcGVuIHNlc2Ft"),
  
      Alphabet = list_to_binary(lists:seq(0, 255)),
  
negative.code: 	 mime_decode_to_string/1,
  	 roundtrip_1/1, roundtrip_2/1, roundtrip_3/1, roundtrip_4/1]).
  
  %%-------------------------------------------------------------------------
  %% Test cases starts here.
  %%-------------------------------------------------------------------------
  
  suite() ->
      [{ct_hooks,[ts_install_cth]},
       {timetrap,{minutes,4}}].
  
  all() ->
      [base64_encode, base64_decode, base64_otp_5635,
       base64_otp_6279, big, illegal, mime_decode, mime_decode_to_string,
       {group, roundtrip}].
  
  groups() ->
      [{roundtrip, [parallel],
        [roundtrip_1, roundtrip_2, roundtrip_3, roundtrip_4]}].
  
  group(roundtrip) ->
      %% valgrind needs a lot of time
      [{timetrap,{minutes,10}}].
  
  %%-------------------------------------------------------------------------
  %% Test base64:encode/1.
  