aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAnders Svensson <[email protected]>2016-03-26 00:09:27 +0100
committerAnders Svensson <[email protected]>2016-03-26 00:09:27 +0100
commita54a9111269371d8e2577b0824dd0351c4a75115 (patch)
treee3f3bf303215c82f90bee66d2428c6778fbf5d8b
parent5e1b5ef47f3f2b898d30e0425823835bd9a574d4 (diff)
downloadotp-a54a9111269371d8e2577b0824dd0351c4a75115.tar.gz
otp-a54a9111269371d8e2577b0824dd0351c4a75115.tar.bz2
otp-a54a9111269371d8e2577b0824dd0351c4a75115.zip
Don't assume list comprehension evaluation order
-rw-r--r--lib/diameter/test/diameter_tls_SUITE.erl8
1 files changed, 4 insertions, 4 deletions
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}.