anchor.diff:      Hmac = rfc4231_hmac_sha224(),
      [{hash, {Type, Msgs, Digests}}, {hmac, {Type, Keys, Data, Hmac}}  | Config];
   group_config(sha256 = Type, Config) ->
  -    Msgs =   [rfc_4634_test1(), rfc_4634_test2_1()], 
  -    Digests = rfc_4634_sha256_digests(),
  -    Keys = rfc_4231_keys(),
  -    Data = rfc_4231_msgs(),
  -    Hmac = rfc4231_hmac_sha256(),
  +    Msgs =   [rfc_4634_test1(), rfc_4634_test2_1(), long_msg()],
  +    Digests = rfc_4634_sha256_digests()  ++ [long_sha256_digest()],
  +    Keys = rfc_4231_keys() ++ [long_hmac_key(sha256)],
  +    Data = rfc_4231_msgs()  ++ [long_msg()],
  +    Hmac = rfc4231_hmac_sha256()  ++ [long_hmac(sha256)],
       [{hash, {Type, Msgs, Digests}}, {hmac, {Type, Keys, Data, Hmac}}  | Config];
   group_config(sha384 = Type, Config) ->
  -    Msgs =  [rfc_4634_test1(), rfc_4634_test2()],
  -    Digests = rfc_4634_sha384_digests(),
  -    Keys = rfc_4231_keys(),
  -    Data = rfc_4231_msgs(),
  -    Hmac = rfc4231_hmac_sha384(),
  +    Msgs =  [rfc_4634_test1(), rfc_4634_test2(), long_msg()],
  +    Digests = rfc_4634_sha384_digests()  ++ [long_sha384_digest()],
  +    Keys = rfc_4231_keys() ++ [long_hmac_key(sha384)],
  +    Data = rfc_4231_msgs()  ++ [long_msg()],
  +    Hmac = rfc4231_hmac_sha384()  ++ [long_hmac(sha384)],
       [{hash, {Type, Msgs, Digests}}, {hmac, {Type, Keys, Data, Hmac}}  | Config];
   group_config(sha512 = Type, Config) ->
  -    Msgs =  [rfc_4634_test1(), rfc_4634_test2()],
  -    Digests = rfc_4634_sha512_digests(),
  -    Keys = rfc_4231_keys(),
  -    Data = rfc_4231_msgs(),
  -    Hmac = rfc4231_hmac_sha512(),
  +    Msgs =  [rfc_4634_test1(), rfc_4634_test2(), long_msg()],
  +    Digests = rfc_4634_sha512_digests() ++ [long_sha512_digest()],
  +    Keys = rfc_4231_keys() ++ [long_hmac_key(sha512)],
  +    Data = rfc_4231_msgs() ++ [long_msg()],
  +    Hmac = rfc4231_hmac_sha512() ++ [long_hmac(sha512)],
       [{hash, {Type, Msgs, Digests}}, {hmac, {Type, Keys, Data, Hmac}}  | Config];
   group_config(rsa = Type, Config) ->
       Msg = rsa_plain(),
  
positive.code:     rand_uniform_aux_test(10),
      10 = byte_size(crypto:rand_bytes(10)),
      10 = byte_size(crypto:strong_rand_bytes(10)).
  %%--------------------------------------------------------------------
  %% Internal functions ------------------------------------------------
  %%--------------------------------------------------------------------
  
  hash(_, [], []) ->
      ok;
  hash(Type, [Msg | RestMsg], [Digest| RestDigest]) ->
  
negative.code: 
  rc4() ->
      [{rc4, <<"apaapa">>, <<"Yo baby yo">>},
       {rc4, <<"apaapa">>, list_to_binary(lists:seq(0, 255))},
       {rc4, <<"apaapa">>, lists:duplicate(1000000, $a)}
      ].
  
  aes_ctr() ->
  