anchor.diff:            64,179,135,138,31,172,236,105,0,71,50,195,168,247,216,110,210,61,159,5>>,
       lists:foreach(
         fun(Sha) ->
  -              case public_key:sign(Body, Sha, Key) of
  -                  ExpectedSignature ->
  -                      ok;
  -                  Others ->
  -                      ct:log("Sha: ~p~nGot:    ~p~nExpect: ~p", [Sha,Others,ExpectedSignature]),
  -                      ct:fail("Bad sign result")
  -              end,
  -              case public_key:verify(Body, Sha, ExpectedSignature, Key) of
  -                  true ->
  -                      ok;
  -                  false ->
  -                      ct:fail("Bad verify result for ~p",[Sha])
  +              ct:log("Try Sha = ~p", [Sha]),
  +              try
  +                  case public_key:sign(Body, Sha, Key) of
  +                      ExpectedSignature ->
  +                          ct:log("sign Sha ~p ok", [Sha]),
  +                          ExpectedSignature;
  +                      Others ->
  +                          ct:log("Sha: ~p~nGot:    ~p~nExpect: ~p", [Sha,Others,ExpectedSignature]),
  +                          ct:fail("Bad sign result")
  +                  end
  +              of
  +                  Sig ->
  +                      try
  +                          case public_key:verify(Body, Sha, Sig, Key) of
  +                              true ->
  +                                  ct:log("verify Sha ~p ok", [Sha]);
  +                              false ->
  +                                  ct:fail("Bad verify result for ~p",[Sha])
  +                          end
  +                      catch
  +                          C:E ->
  +                              ct:log("Verify: ~p:~p  Sha = ~p", [C,E,Sha]),
  +                              ct:fail("Bad verify",[])
  +                      end
  +              catch
  +                  C:E ->
  +                      ct:log("Sign: ~p:~p  Sha = ~p", [C,E,Sha]),
  +                      ct:fail("Bad sign",[])
                 end
  -      end, [none, undefined | crypto:supports(hashs)]).
  +      end, [undefined, none | crypto:supports(hashs)]).
   
   
   init_ec_pem_encode_generated(Config) ->
  
positive.code:          eddsa_priv_pkcs8/1,
           eddsa_priv_rfc5958/0,
           eddsa_priv_rfc5958/1,
           edsa_sign_verify_24_compat/1,
           init_ec_pem_encode_generated/1,
           ec_pem_encode_generated/0,
           ec_pem_encode_generated/1,
  
negative.code:         false ->
              {skip, not_supported_by_crypto}
      end;
  
  init_per_testcase(eddsa_sign_verify_24_compat, Config) ->
      case lists:member(eddsa, crypto:supports(public_keys)) of
          true ->
              Config;
          false ->
              {skip, eddsa_not_supported_by_crypto}
      end;
  
  init_per_testcase(TestCase, Config) ->
      case TestCase of
          ec_pem_encode_generated ->
  