diff options
author | Bo YU <tsu.yubo@gmail.com> | 2023-05-28 15:22:40 +0200 |
---|---|---|
committer | Bo YU <tsu.yubo@gmail.com> | 2023-05-28 15:22:40 +0200 |
commit | 79f4b07a4926cbf702f733a1ebfd708cb9fedd43 (patch) | |
tree | 36364c6322fa0f2f3e51845207b35ab55632edad | |
parent | 94a8511dab2efa32c7cb94dc96f0dbb474b16590 (diff) |
disable-ssl-testarchive/debian/0.82-1
Gbp-Pq: Name disable-ssl-test.patch
-rw-r--r-- | tests/ssl.test | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/tests/ssl.test b/tests/ssl.test index b01069d..a8f04a2 100644 --- a/tests/ssl.test +++ b/tests/ssl.test @@ -56,34 +56,4 @@ test ssl-1.2 {puts/gets} { } } {a g a i n} -test ssl-2.1 {https to google.com, gets} -body { - set c [[socket stream www.google.com:443] ssl] - $c puts -nonewline "GET / HTTP/1.0\r\n\r\n" - $c flush - set lines {} - while {[$c gets buf] >= 0} { - lappend lines $buf - } - $c close - join $lines \n -} -match glob -result {HTTP/1.0 200 OK*</html>} - -test ssl-2.2 {https to google.com, read with cert verify} -body { - # Note that in order to verify the cert, we need sni - set c [[socket stream www.google.com:443] ssl -sni www.google.com] - # Verify the cert (note that this does not check CN) - $c verify - $c puts -nonewline "GET / HTTP/1.0\r\n\r\n" - $c flush - set buf [$c read] -} -match glob -result {HTTP/1.0 200 OK*</html>} - -test ssl-2.3 {ssl to google.com on port 80} -body { - # Try to talk SSL to a non-SSL server - set c [[socket stream www.google.com:80] ssl] - $c puts -nonewline "GET / HTTP/1.0\r\n\r\n" - $c flush - set buf [$c read] -} -returnCodes error -match glob -result {error:*} - testreport |