From a54a9111269371d8e2577b0824dd0351c4a75115 Mon Sep 17 00:00:00 2001
From: Anders Svensson <anders@erlang.org>
Date: Sat, 26 Mar 2016 00:09:27 +0100
Subject: Don't assume list comprehension evaluation order

---
 lib/diameter/test/diameter_tls_SUITE.erl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib/diameter')

diff --git a/lib/diameter/test/diameter_tls_SUITE.erl b/lib/diameter/test/diameter_tls_SUITE.erl
index 5cadbbc17e..832cc03aa3 100644
--- a/lib/diameter/test/diameter_tls_SUITE.erl
+++ b/lib/diameter/test/diameter_tls_SUITE.erl
@@ -327,10 +327,10 @@ make_cert(Dir, Keyfile, Certfile) ->
                "-subj /C=SE/ST=./L=Stockholm/CN=www.erlang.org"]),
 
     %% Hope for the best and only check that files are written.
-    [{_, _, {ok,_}},{_, _, {ok,_}}]
-        = [{P,O,T} || {P,C} <- [{KP,KC}, {CP,CC}],
-                      O <- [os:cmd(C)],
-                      T <- [file:read_file_info(P)]],
+    KR = os:cmd(KC),
+    {_, {ok, _}} = {KR, file:read_file_info(KP)},
+    CR = os:cmd(CC),
+    {_, {ok, _}} = {CR, file:read_file_info(CP)},
 
     {KP,CP}.
 
-- 
cgit v1.2.3