stundisco_tests: Check correct credentials syntax

processone · Dec 18, 2024 · 3bc66a7 · 3bc66a7
1 parent 8cfcc69
commit 3bc66a7
Showing 1 changed file with 11 additions and 12 deletions.
diff --git 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),