anchor.diff:              check_client_txt(CTxt),
               ok;
           {Pid, {error, closed}} ->
  -            ok
  +            ok;
  +        {Pid, {ok, _}} ->
  +            ct:fail("Successful connection during negative test.")
       end.
   check_client_alert(Server, Client, Alert) ->
       receive
  
positive.code:             check_client_txt(CTxt),
              ok;
          {Client, {error, closed}} ->
              ok
      end.
  check_server_txt("TLS server" ++ _) ->
      ok;
  
negative.code:             check_server_txt(STxt),
              ok;
          {Pid, {error, closed}} ->
              ok;
          {Pid, {ok, _}} ->
              ct:fail("Successful connection during negative test.")
      end.
  check_server_alert(Server, Client, Alert) ->
      receive
  	{Server, {error, {tls_alert, {Alert, STxt}}}} ->
              check_server_txt(STxt),
              check_client_alert(Client, Alert);
          {Server, {ok, _}} ->
              ct:fail("Successful connection during negative test.")
      end.
  check_client_alert(Pid, Alert) ->
      receive
  