From 79f4b07a4926cbf702f733a1ebfd708cb9fedd43 Mon Sep 17 00:00:00 2001
From: Bo YU <tsu.yubo@gmail.com>
Date: Sun, 28 May 2023 15:22:40 +0200
Subject: disable-ssl-test

Gbp-Pq: Name disable-ssl-test.patch
---
 tests/ssl.test | 30 ------------------------------
 1 file changed, 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
-- 
cgit v1.2.3