diff options
author | Anders Svensson <[email protected]> | 2016-03-26 00:09:27 +0100 |
---|---|---|
committer | Anders Svensson <[email protected]> | 2016-03-26 00:09:27 +0100 |
commit | a54a9111269371d8e2577b0824dd0351c4a75115 (patch) | |
tree | e3f3bf303215c82f90bee66d2428c6778fbf5d8b /lib/diameter/test/diameter_tls_SUITE.erl | |
parent | 5e1b5ef47f3f2b898d30e0425823835bd9a574d4 (diff) | |
download | otp-a54a9111269371d8e2577b0824dd0351c4a75115.tar.gz otp-a54a9111269371d8e2577b0824dd0351c4a75115.tar.bz2 otp-a54a9111269371d8e2577b0824dd0351c4a75115.zip |
Don't assume list comprehension evaluation order
Diffstat (limited to 'lib/diameter/test/diameter_tls_SUITE.erl')
-rw-r--r-- | lib/diameter/test/diameter_tls_SUITE.erl | 8 |
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}. |