anchor.diff:                            {Opts,UsrDir} =
                                 case AuthMethod of
                                     publickey ->
  -                                      {[{user_passwords, [{?USER,?BAD_PASSWD}]}],
  +                                      {[{user_passwords, [{?USER,?BAD_PASSWD}]},
  +                                        {pref_public_key_algs, [Alg]}
  +                                       ],
                                          setup_remote_priv_and_local_auth_keys(Alg, Config)
                                         };
                                     _ ->
  
positive.code:                          [{user,?USER},
                            {password,?PASSWD},
                            {user_dir, UserDir},
                            {silently_accept_hosts,true},
                            {user_interaction,false}
                           ]),
  
negative.code:     {IP,Port} = ip_port(Config),
      chk_all_algos(?FUNCTION_NAME, CommonAlgs, Config,
                    fun(Tag, Alg) ->
                            PrefAlgs =
                                [{T,L} || {T,L} <- ssh_transport:supported_algorithms(),
                                          T =/= Tag],
                            ConnRes =
                                ssh:connect(IP, Port, 
                                            [{user,?USER},
                                             {password,?PASSWD},
                                             {auth_methods, "password"},
                                             {user_dir, new_dir(Config)},
                                             {preferred_algorithms, [{Tag,[Alg]} | PrefAlgs]},
                                             {silently_accept_hosts,true},
                                             {user_interaction,false}
                                            ])  ,
  