File 5622-megaco-test-Add-skip.patch of Package erlang
From 2263a701cc1cf53fb3a84930cf36e899aacd54b6 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Fri, 24 Apr 2020 09:24:48 +0200
Subject: [PATCH 2/5] [megaco|test] Add skip
---
lib/megaco/test/megaco_test_lib.erl | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/lib/megaco/test/megaco_test_lib.erl b/lib/megaco/test/megaco_test_lib.erl
index f5bd0e3e06..f44ade4442 100644
--- a/lib/megaco/test/megaco_test_lib.erl
+++ b/lib/megaco/test/megaco_test_lib.erl
@@ -450,8 +450,7 @@ init_per_suite(Config) ->
%% We have some crap machines that causes random test case failures
%% for no obvious reason. So, attempt to identify those without actually
%% checking for the host name...
- %% We have two "machines" we are checking for. Both are old installations
- %% running on really slow VMs (the host machines are old and tired).
+
LinuxVersionVerify =
fun(V) when (V > {3,6,11}) ->
false; % OK - No skip
@@ -462,6 +461,13 @@ init_per_suite(Config) ->
_ ->
false
end;
+ (V) when (V =:= {3,4,20}) ->
+ case string:trim(os:cmd("cat /etc/issue")) of
+ "Wind River Linux 5.0.1.0" ++ _ -> % *Old* Wind River => skip
+ true;
+ _ ->
+ false
+ end;
(V) when (V =:= {2,6,32}) ->
case string:trim(os:cmd("cat /etc/issue")) of
"Debian GNU/Linux 6.0 " ++ _ -> % Stone age Debian => Skip
--
2.26.1