Print expected and received texts in sm_helper:assert_messages

esl · Dec 16, 2021 · 9a15e27 · 9a15e27
1 parent c6e2cc7
commit 9a15e27
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/big_tests/tests/sm_helper.erl b/big_tests/tests/sm_helper.erl
@@ -281,16 +281,19 @@ wait_for_messages(Alice, Texts) ->
     assert_messages(Stanzas, Texts).
 
 assert_messages(Stanzas, Texts) ->
-    assert_same_length(Stanzas, Texts),
-    Checks = [escalus_pred:is_chat_message(Text, Stanza)
-              || {Text, Stanza} <- lists:zip(Texts, Stanzas)],
-    case lists:usort(Checks) of
-        [true] ->
+    Bodies = lists:map(fun get_body/1, Stanzas),
+    case Bodies of
+        Texts ->
             ok;
         _ ->
-            ct:fail({assert_messages_failed, Checks, Stanzas, Texts})
+            ct:fail({assert_messages_failed, Stanzas,
+                     {expected, Texts},
+                     {received, Bodies}})
     end.
 
+get_body(Stanza) ->
+      exml_query:path(Stanza, [{element, <<"body">>}, cdata]).
+
 assert_same_length(List1, List2) when length(List1) =:= length(List2) -> ok.
 
 get_ack(Client) ->