diff options
| author | Lukas Larsson <[email protected]> | 2017-10-05 11:58:14 +0200 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2017-10-18 16:13:47 +0200 |
| commit | 36b5f99ccdf9bbd6cf72afa24ab5ee562e3ed1b9 (patch) | |
| tree | e21fef05e67ae938cf300d1beef325500e401482 /erts/emulator/test/port_SUITE.erl | |
| parent | 75b586ddbe2e73968e57950e189235c2dafa2a46 (diff) | |
| download | otp-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.
Diffstat (limited to 'erts/emulator/test/port_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/port_SUITE.erl | 3 |
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 |