Run just one s2s test for debugging

Author: jacekwegr

big_tests/tests/s2s_SUITE.erl

@@ -23,60 +23,62 @@
 
 all() ->
     [
-     {group, both_plain},
-     {group, both_tls_optional}, %% default MongooseIM config
-     {group, both_tls_required},
-     {group, both_tls_enforced},
+     {group, both_plain}
+    %  {group, both_tls_optional}, %% default MongooseIM config
+    %  {group, both_tls_required},
+    %  {group, both_tls_enforced},
 
-     {group, node1_tls_optional_node2_tls_required},
-     {group, node1_tls_required_node2_tls_optional},
+    %  {group, node1_tls_optional_node2_tls_required},
+    %  {group, node1_tls_required_node2_tls_optional},
 
-     {group, node1_tls_required_trusted_node2_tls_optional},
-     {group, node1_tls_optional_node2_tls_required_trusted_with_cachain},
+    %  {group, node1_tls_required_trusted_node2_tls_optional},
+    %  {group, node1_tls_optional_node2_tls_required_trusted_with_cachain},
 
-     {group, node1_tls_false_node2_tls_required},
-     {group, node1_tls_required_node2_tls_false},
+    %  {group, node1_tls_false_node2_tls_required},
+    %  {group, node1_tls_required_node2_tls_false},
 
-     {group, dialback}
+    %  {group, dialback}
     ].
 
 groups() ->
-    [{both_plain, [], all_tests()},
-     {both_tls_optional, [], essentials()},
-     {both_tls_required, [], essentials()},
-     {both_tls_enforced, [], essentials()},
+    [{both_plain, [], all_tests()}
+    %  {both_tls_optional, [], essentials()},
+    %  {both_tls_required, [], essentials()},
+    %  {both_tls_enforced, [], essentials()},
 
-     {node1_tls_optional_node2_tls_required, [], essentials()},
-     {node1_tls_required_node2_tls_optional, [], essentials()},
+    %  {node1_tls_optional_node2_tls_required, [], essentials()},
+    %  {node1_tls_required_node2_tls_optional, [], essentials()},
 
-     %% Node1 closes connection from nodes with invalid certs
-     {node1_tls_required_trusted_node2_tls_optional, [], negative()},
+    %  %% Node1 closes connection from nodes with invalid certs
+    %  {node1_tls_required_trusted_node2_tls_optional, [], negative()},
 
-     %% Node1 accepts connection provided the cert can be verified
-     {node1_tls_optional_node2_tls_required_trusted_with_cachain, [parallel],
-      essentials() ++ connection_cases() ++ start_stream_error_groups()},
+    %  %% Node1 accepts connection provided the cert can be verified
+    %  {node1_tls_optional_node2_tls_required_trusted_with_cachain, [parallel],
+    %   essentials() ++ connection_cases() ++ start_stream_error_groups()},
 
-     {node1_tls_false_node2_tls_required, [], negative()},
-     {node1_tls_required_node2_tls_false, [], negative()},
-     {dialback, [], [dialback_key_is_synchronized_on_different_nodes]},
+    %  {node1_tls_false_node2_tls_required, [], negative()},
+    %  {node1_tls_required_node2_tls_false, [], negative()},
+    %  {dialback, [], [dialback_key_is_synchronized_on_different_nodes]},
 
-     {start_stream_errors, [parallel], start_stream_error_cases()},
-     {start_stream_errors_after_starttls, [parallel], start_stream_error_cases()},
-     {start_stream_errors_after_auth, [parallel], start_stream_error_cases()}
+    %  {start_stream_errors, [parallel], start_stream_error_cases()},
+    %  {start_stream_errors_after_starttls, [parallel], start_stream_error_cases()},
+    %  {start_stream_errors_after_auth, [parallel], start_stream_error_cases()}
     ].
 
 essentials() ->
     [simple_message].
 
 all_tests() ->
-    [connections_info,
-     dns_srv_discovery,
-     dns_ip_discovery,
-     dns_discovery_fail,
-     nonexistent_user,
-     unknown_domain,
-     malformed_jid,
-     dialback_with_wrong_key].
+    [
+    % connections_info,
+    %  dns_srv_discovery,
+     dns_ip_discovery
+    %  dns_discovery_fail,
+    %  nonexistent_user,
+    %  unknown_domain,
+    %  malformed_jid,
+    %  dialback_with_wrong_key
+    ].
 
 negative() ->
     [timeout_waiting_for_message].
@@ -213,14 +215,14 @@ simple_message(Config) ->
         escalus:send(Alice1, escalus_stanza:chat_to(Alice2, <<"Hi, foreign Alice!">>)),
 
         %% User on the federated server receives the message
-        Stanza = escalus:wait_for_stanza(Alice2, 5000),
+        Stanza = escalus:wait_for_stanza(Alice2, 20000),
         escalus:assert(is_chat_message, [<<"Hi, foreign Alice!">>], Stanza),
 
         %% User on the federated server sends a message to the main server
         escalus:send(Alice2, escalus_stanza:chat_to(Alice1, <<"Nice to meet you!">>)),
 
         %% User on the main server receives the message
-        Stanza2 = escalus:wait_for_stanza(Alice1, 5000),
+        Stanza2 = escalus:wait_for_stanza(Alice1, 20000),
         escalus:assert(is_chat_message, [<<"Nice to meet you!">>], Stanza2),
 
         % Instrumentation events are executed