From 3bc66a7054a84f9df26fb729126e28f95a6840c6 Mon Sep 17 00:00:00 2001
From: Holger Weiss <holger@zedat.fu-berlin.de>
Date: Wed, 18 Dec 2024 21:17:07 +0100
Subject: [PATCH] stundisco_tests: Check correct credentials syntax

---
 test/stundisco_tests.erl | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/test/stundisco_tests.erl b/test/stundisco_tests.erl
index d699cebf7..e6e744d15 100644
--- a/test/stundisco_tests.erl
+++ b/test/stundisco_tests.erl
@@ -132,18 +132,17 @@ turn_credentials(Config) ->
 						port = Port,
 						type = Type}]},
     #iq{type = result,
-	sub_els = [#services{
-		      type = undefined,
-		      list = [#service{host = Host,
-				       port = Port,
-				       type = Type,
-				       transport = Transport,
-				       restricted = true,
-				       username = Username,
-				       password = Password,
-				       expires = Expires,
-				       action = undefined,
-				       xdata = undefined}]}]} =
+	sub_els = [#credentials{
+		      services = [#service{host = Host,
+					   port = Port,
+					   type = Type,
+					   transport = Transport,
+					   restricted = true,
+					   username = Username,
+					   password = Password,
+					   expires = Expires,
+					   action = undefined,
+					   xdata = undefined}]}]} =
 	send_recv(Config, #iq{type = get, to = ServerJID, sub_els = [Request]}),
     true = check_password(Username, Password),
     true = check_expires(Expires),