anchor.diff:  	    ct:fail({{crypto, generate_key, [Type, Priv, Curve]}, {expected, Pub}, {got, Other}})
       end;
   do_generate({rsa = Type, Mod, Exp}) ->
  +    ct:log("~p", [Type]),
       case crypto:info_fips() of
           enabled when Mod < 3072 ->
               ct:log("SKIP do_generate ~p FIPS=~p, Mod=~p  Exp=~p", [Type, enabled, Mod, Exp]),
  
positive.code:     SharedSecret = crypto:compute_key(dh, UserPub, HostPriv, [P, G]).
      
  do_compute({ecdh = Type, Pub, Priv, Curve, SharedSecret}) ->
      Secret = crypto:compute_key(Type, Pub, Priv, Curve),
       case Secret of
  	 SharedSecret ->
  
negative.code:      				    UserComParams),
      SessionKey = crypto:compute_key(Type, UserPublic, {HostPublic, HostPrivate},
  				    HostComParam);
  
  
  
  do_generate_compute({dh, P, G}) ->
      {UserPub, UserPriv} = crypto:generate_key(dh, [P, G]),
      {HostPub, HostPriv} = crypto:generate_key(dh, [P, G]),
  