@@ -151,12 +151,29 @@ init_per_testcase(dns_srv_discovery = CaseName, Config) ->
151
151
Config1 = escalus_users :update_userspec (Config , alice2 , server , <<" fed2" >>),
152
152
escalus :init_per_testcase (CaseName , Config1 );
153
153
init_per_testcase (dns_ip_discovery = CaseName , Config ) ->
154
- meck_dns_srv_lookup (" fed2" , ip ),
155
- Config1 = escalus_users :update_userspec (Config , alice2 , server , <<" fed2" >>),
156
- escalus :init_per_testcase (CaseName , Config1 );
154
+ case is_github_actions () of
155
+ true ->
156
+ {skip , " Test skipped for GH Actions" };
157
+ false ->
158
+ meck_dns_srv_lookup (" fed2" , ip ),
159
+ Config1 = escalus_users :update_userspec (Config , alice2 , server , <<" fed2" >>),
160
+ escalus :init_per_testcase (CaseName , Config1 )
161
+ end ;
157
162
init_per_testcase (dns_discovery_fail = CaseName , Config ) ->
158
- meck_dns_srv_lookup (" fed3" , none ),
159
- escalus :init_per_testcase (CaseName , Config );
163
+ case is_github_actions () of
164
+ true ->
165
+ {skip , " Test skipped for GH Actions" };
166
+ false ->
167
+ meck_dns_srv_lookup (" fed3" , none ),
168
+ escalus :init_per_testcase (CaseName , Config )
169
+ end ;
170
+ init_per_testcase (unknown_domain = CaseName , Config ) ->
171
+ case is_github_actions () of
172
+ true ->
173
+ {skip , " Test skipped for GH Actions" };
174
+ false ->
175
+ escalus :init_per_testcase (CaseName , Config )
176
+ end ;
160
177
init_per_testcase (CaseName , Config ) ->
161
178
escalus :init_per_testcase (CaseName , Config ).
162
179
@@ -192,6 +209,12 @@ inet_res_lookup_fun(Domain, _FedPort, none) ->
192
209
meck :passthrough ([Name , Class , Type , Opts , Timeout ])
193
210
end .
194
211
212
+ is_github_actions () ->
213
+ case os :getenv (" GITHUB_ACTIONS" ) of
214
+ " true" -> true ;
215
+ _ -> false
216
+ end .
217
+
195
218
end_per_testcase (CaseName , Config ) when CaseName =:= dns_srv_discovery ;
196
219
CaseName =:= dns_ip_discovery ;
197
220
CaseName =:= dns_discovery_fail ->
0 commit comments