anchor.diff:                      Contents, Type == 'Certificate',
                       Cipher == 'not_encrypted']
       end.
  +
  +ssl_path(File) ->
  +    Path = filename:dirname(
  +             proplists:get_value(source, ?MODULE:module_info(compile))),
  +    filename:join([Path, "ssl", File]).
  
positive.code:                               [binary, {active, false}, {packet, raw},
                                 {verify, verify_peer},
                                 {cacerts, load_cacerts()},
                                 {certfile, "../../test/ssl/client-expired.crt"},
                                 {keyfile, "../../test/ssl/client.key"}])).
  
  connect_cert_auth_revoked_test(_) ->
      assert_error_or_closed({error,{tls_alert,"certificate revoked"}},
  
negative.code:                               [binary, {active, false}, {packet, raw},
                                 {verify, verify_peer},
                                 {cacerts, load_cacerts()},
                                 {certfile, ssl_path("client.crt")},
                                 {keyfile, ssl_path("client.key")}]),
      ok = ssl:send(SSock, Connect),
      ok = packet:expect_packet(ssl, SSock, "connack", Connack),
      ok = ssl:close(SSock).
  