aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLukas Larsson <[email protected]>2017-10-05 11:58:14 +0200
committerLukas Larsson <[email protected]>2017-10-18 16:13:47 +0200
commit36b5f99ccdf9bbd6cf72afa24ab5ee562e3ed1b9 (patch)
treee21fef05e67ae938cf300d1beef325500e401482
parent75b586ddbe2e73968e57950e189235c2dafa2a46 (diff)
downloadotp-36b5f99ccdf9bbd6cf72afa24ab5ee562e3ed1b9.tar.gz
otp-36b5f99ccdf9bbd6cf72afa24ab5ee562e3ed1b9.tar.bz2
otp-36b5f99ccdf9bbd6cf72afa24ab5ee562e3ed1b9.zip
erts: Fail port_SUITE:huge_env if error code > 127
This can happen for instance if erl_child_setup segfaults before it can do the execv.
-rw-r--r--erts/emulator/test/port_SUITE.erl3
1 files changed, 3 insertions, 0 deletions
diff --git a/erts/emulator/test/port_SUITE.erl b/erts/emulator/test/port_SUITE.erl
index 730a17d7e8..e7044653f0 100644
--- a/erts/emulator/test/port_SUITE.erl
+++ b/erts/emulator/test/port_SUITE.erl
@@ -1035,6 +1035,9 @@ huge_env(Config) when is_list(Config) ->
try erlang:open_port({spawn,Cmd},[exit_status, {env, Env}]) of
P ->
receive
+ {P, {exit_status,N}} = M when N > 127->
+ %% If exit status is > 127 something went very wrong
+ ct:fail("Open port failed got ~p",[M]);
{P, {exit_status,N}} = M ->
%% We test that the exit status is an integer, this means
%% that the child program has started. If we get an atom