From d6510d6dee7ecb78dbc0287ff14cd2a6bbcb3e2e Mon Sep 17 00:00:00 2001
From: Simo Sorce <simo@redhat.com>
Date: Tue, 8 Oct 2024 09:48:32 -0400
Subject: [PATCH] Fix TLS Script

Not sure "how" this fixes the tests, but without these changes we get an
error in the last TLS tests with latest code changes, and this error
goes away when modifying the expect script to be more verbose.

Signed-off-by: Simo Sorce <simo@redhat.com>
---
 tests/ttls | 25 ++++++++++++++++++++-----
 1 file changed, 20 insertions(+), 5 deletions(-)

diff --git a/tests/ttls b/tests/ttls
index 6ec20721..85185a7f 100755
--- a/tests/ttls
+++ b/tests/ttls
@@ -42,20 +42,29 @@ run_test() {
         set timeout 60;
         expect {
             \"ACCEPT\" {};
-            default {exit 1;};
+            default {
+                send \" NO ACCEPT \n\";
+                exit 1;
+            };
         }
         set server_ready [open \"${TMPPDIR}/s_server_ready\" w+];
         puts \$server_ready \"READY\n\";
         close \$server_ready;
         expect {
             \"END SSL SESSION PARAMETERS\" {};
-            default {exit 1;};
+            default {
+                send \" NO SESSION PARAMETERS \n\";
+                exit 1;
+            };
         }
         send \" TLS SUCCESSFUL \n\"
         send \"Q\n\"
         expect {
             eof {exit 0;};
-            default {exit 1;};
+            default {
+                send \" NO EOF \n\";
+                exit 1;
+            };
         }" > "${TMPPDIR}/s_server_output" &
     SERVER_PID=$!
 
@@ -65,11 +74,17 @@ run_test() {
         set timeout 60;
         expect {
             \" TLS SUCCESSFUL \" {};
-            default {exit 1;};
+            default {
+                send \" NO TLS SUCCESSFUL MESSAGE \n\";
+                exit 1;
+            };
         }
         expect {
             eof {exit 0;};
-            default {exit 1;};
+            default {
+                send \" NO EOF \n\";
+                exit 1;
+            };
         }"
 
     wait_for_server_at_exit $SERVER_PID