anchor.diff:             end, true.
   
   load_cacerts() ->
  -    IntermediateCA = "../../test/ssl/test-signing-ca.crt",
  -    RootCA = "../../test/ssl/test-root-ca.crt",
  +    IntermediateCA = ssl_path("test-signing-ca.crt"),
  +    RootCA = ssl_path("test-root-ca.crt"),
       load_cert(RootCA) ++ load_cert(IntermediateCA).
   
   load_cert(Cert) ->
  
positive.code:                               [binary, {active, false}, {packet, raw},
                                 {verify, verify_peer},
                                 {cacerts, load_cacerts()},
                                 {certfile, "../../test/ssl/client.crt"},
                                 {keyfile, "../../test/ssl/client.key"}]),
      ok = ssl:send(SSock, Connect),
      ok = packet:expect_packet(ssl, SSock, "connack", Connack),
      ok = ssl:close(SSock).
  
negative.code:                               [binary, {active, false}, {packet, raw},
                                 {verify, verify_peer},
                                 {cacerts, load_cacerts()},
                                 {certfile, ssl_path("client-revoked.crt")},
                                 {keyfile, ssl_path("client.key")}])).
  
  connect_cert_auth_crl_test(_) ->
      Connect = packet:gen_connect("connect-success-test", [{keepalive, 10}]),
  