anchor.diff:  %% Test cases
   -export([erlang_client_bad_openssl_server/0,
            erlang_client_bad_openssl_server/1,
  -         erlang_server_reject_sslv2/0,
  -         erlang_server_reject_sslv2/1,
            erlang_server_reject_sslv3/0,
            erlang_server_reject_sslv3/1
           ]).
  
positive.code:     process_flag(trap_exit, false).
  
  %%--------------------------------------------------------------------
  erlang_server_reject_sslv2() ->
      [{doc,"Test that ssl v2 clients are rejected"}].
  
  erlang_server_reject_sslv2(Config) when is_list(Config) ->
      process_flag(trap_exit, true),
      ServerOpts = ssl_test_lib:ssl_options(server_rsa_opts, Config),
  
      {_, ServerNode, Hostname} = ssl_test_lib:run_where(Config),
  
      Server = ssl_test_lib:start_server_error([{node, ServerNode}, {port, 0}, 
                                                {from, self()},
                                                {options, ServerOpts}]),
      Port = ssl_test_lib:inet_port(Server),
  
      Exe = "openssl",
      Args = ["s_client", "-connect", ssl_test_lib:hostname_format(Hostname) ++ ":" ++ integer_to_list(Port), 
              "-ssl2", "-msg"],
  
      OpenSslPort = ssl_test_lib:portable_open_port(Exe, Args),  
  
      ct:log("Ports ~p~n", [[erlang:port_info(P) || P <- erlang:ports()]]), 
      ssl_test_lib:consume_port_exit(OpenSslPort),
      ssl_test_lib:check_server_alert(Server, unexpected_message),
      process_flag(trap_exit, false).
  
  %%--------------------------------------------------------------------
  erlang_server_reject_sslv3() ->
      [{doc,"Test that ssl v3 clients are rejected"}].
  
  erlang_server_reject_sslv3(Config) when is_list(Config) ->
      process_flag(trap_exit, true),
      ServerOpts = ssl_test_lib:ssl_options(server_rsa_opts, Config),
  
      {_, ServerNode, Hostname} = ssl_test_lib:run_where(Config),
  
      Server = ssl_test_lib:start_server_error([{node, ServerNode}, {port, 0}, 
                                                {from, self()},
                                                {options, ServerOpts}]),
      Port = ssl_test_lib:inet_port(Server),
  
      Exe = "openssl",
      Args = ["s_client", "-connect", ssl_test_lib:hostname_format(Hostname) ++ ":" ++ integer_to_list(Port), 
              "-ssl3", "-msg"],
  
      OpenSslPort = ssl_test_lib:portable_open_port(Exe, Args),  
  
      ct:log("Ports ~p~n", [[erlang:port_info(P) || P <- erlang:ports()]]), 
      ssl_test_lib:consume_port_exit(OpenSslPort),
      ssl_test_lib:check_server_alert(Server, protocol_version),
      process_flag(trap_exit, false).
  
negative.code: %% Common Test interface functions -----------------------------------
  %%--------------------------------------------------------------------
  
  all() ->
      [{group, 'tlsv1.3'},
       {group, 'tlsv1.2'},
       {group, 'tlsv1.1'},
  