From 4c2a1296a77cf8adf578a586b7c9eb2bf564a9bc Mon Sep 17 00:00:00 2001
From: Emmanuel Bouthenot <kolter@openics.org>
Date: Mon, 20 Dec 2021 17:18:07 +0100
Subject: [PATCH] Add unit testing (manage)sieve protocol while using STARTTLS

---
 t/21_baseline_starttls.t | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/t/21_baseline_starttls.t b/t/21_baseline_starttls.t
index 8278611..15b4873 100755
--- a/t/21_baseline_starttls.t
+++ b/t/21_baseline_starttls.t
@@ -86,6 +86,16 @@ unlike($openssl_out, qr/$openssl_regex_bl/, "");
 $tests++;
 
 
+$uri="mail.tigertech.net:4190";
+
+# unlink "tmp.json";
+printf "\n%s\n", "STARTTLS MANAGE(SIEVE) unit tests via sockets --> $uri ...";
+$socket_out = `./testssl.sh $check2run -t sieve $uri 2>&1`;
+# $socket_json = json('tmp.json');
+unlike($openssl_out, qr/$openssl_regex_bl/, "");
+$tests++;
+
+
 $uri="jabber.org:5222";
 
 # unlink "tmp.json";