             (is (true? false) "Expected HTTP connection to HTTPS port to fail")
             (catch EvalFailedException e
               (is (instance? HttpClientException (.. e getCause)))
-              (is (instance? ConnectionClosedException (.. e getCause getCause)))))))
+              (is (ssl-connection-exception? (.. e getCause getCause)))))))
       (testing "Should be able to connect if explicit matching ciphers are configured"
         (let [sc (create-scripting-container-with-ssl-client
                   10080

            (is (true? false) "Expected HTTP connection to HTTPS port to fail")
            (catch EvalFailedException e
              (is (instance? HttpClientException (.. e getCause)))
              (is (instance? SSLHandshakeException (.. e getCause getCause)))))))

      (testing "Can connect via SSLv3 when specified"
        (let [sc (create-scripting-container-with-ssl-client

             (is (true? false) "Expected HTTP connection to HTTPS port to fail")
             (catch EvalFailedException e
               (is (instance? HttpClientException (.. e getCause)))
               (is (ssl-connection-exception? (.. e getCause getCause)))))))))

  (testing "Can connect via TLSv1 by default"
    (with-webserver-with-protocols ["TLSv1"] nil
