anchor.diff:  
   bad_hash_name(_Config) ->
       ?chk_api_name(crypto:hash_init(foobar),
  -                  error:{badarg,{"hash.c",_},"Bad digest type"}).
  +                  error:{badarg,{"hash.c",_},"Bad digest type"++_}).
   
   bad_mac_name(_Config) ->
       ?chk_api_name(crypto:mac(foobar, <<1:1024>>, "nothing"),
  
positive.code:         true = crypto:hash_equals(<<"abc">>, <<"abc">>),
          false = crypto:hash_equals(<<"abc">>, <<"abe">>)
      catch
          error:{notsup,{"hash_equals.c",_Line},"Unsupported CRYPTO_memcmp"} ->
              {skip, "No CRYPTO_memcmp"}
      end.
  %%--------------------------------------------------------------------
  
negative.code: 
  bad_sign_name(_Config) ->
      ?chk_api_name(crypto:sign(rsa, foobar, "nothing", <<1:1024>>),
                    error:{badarg, {"pkey.c",_}, "Bad digest type"++_}),
      ?chk_api_name(crypto:sign(foobar, sha, "nothing", <<1:1024>>),
                    error:{badarg, {"pkey.c",_}, "Bad algorithm"++_}).
      
  bad_verify_name(_Config) ->
      ?chk_api_name(crypto:verify(rsa, foobar, "nothing", <<"nothing">>,  <<1:1024>>),
                    error:{badarg,{"pkey.c",_},"Bad digest type"++_}),
      ?chk_api_name(crypto:verify(foobar, sha, "nothing", <<"nothing">>, <<1:1024>>),
                    error:{badarg, {"pkey.c",_}, "Bad algorithm"++_}).
  
  
  %%%----------------------------------------------------------------
  