3rdparties/software/cl+ssl-20200427-git/test/badssl-com.lisp (1190 bytes)
1 ;;;; -*- Mode: LISP; Syntax: COMMON-LISP; indent-tabs-mode: nil; coding: utf-8; show-trailing-whitespace: t -*- 2 3 (in-package :cl+ssl.test) 4 5 (def-suite :cl+ssl.badssl-com :in :cl+ssl 6 :description "Tests using badssl.com") 7 8 (in-suite :cl+ssl.badssl-com) 9 10 11 (defun test-connect (host &key (verify :required)) 12 (usocket:with-client-socket (socket stream host 443 13 :element-type '(unsigned-byte 8)) 14 (cl+ssl:make-ssl-client-stream stream 15 :hostname host 16 :verify verify))) 17 18 (test wrong.host 19 (signals error 20 (test-connect "wrong.host.badssl.com")) 21 (signals error 22 (test-connect "wrong.host.badssl.com" :verify :optional)) 23 (finishes 24 (test-connect "wrong.host.badssl.com" :verify nil))) 25 26 (test expired 27 (signals error 28 (test-connect "expired.badssl.com")) 29 (signals error 30 (test-connect "expired.badssl.com" :verify :optional)) 31 (finishes 32 (test-connect "expired.badssl.com" :verify nil))) 33 34 (test self-signed 35 (signals error 36 (test-connect "self-signed.badssl.com"))) 37 38 (test untrusted-root 39 (signals error 40 (test-connect "untrusted-root.badssl.com")))