diff options
| author | Björn Gustavsson <[email protected]> | 2019-04-11 14:19:10 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2019-04-12 15:07:38 +0200 |
| commit | 2263ba94602fa204981254b143eb722bf8ab81b3 (patch) | |
| tree | f1abd79f615775cdc78b71423aa5cc13c2facb36 /erts/emulator/test/fun_SUITE.erl | |
| parent | 48341f8738ef8f34e37e88744c9f9139e23e6dbf (diff) | |
| download | otp-2263ba94602fa204981254b143eb722bf8ab81b3.tar.gz otp-2263ba94602fa204981254b143eb722bf8ab81b3.tar.bz2 otp-2263ba94602fa204981254b143eb722bf8ab81b3.zip | |
fun_SUITE: Make refc/1 test more reliable
Wait a little after to make sure that fun holding process to
complete its termination.
Diffstat (limited to 'erts/emulator/test/fun_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/fun_SUITE.erl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/erts/emulator/test/fun_SUITE.erl b/erts/emulator/test/fun_SUITE.erl index 7f6caa08f1..2cbde621ce 100644 --- a/erts/emulator/test/fun_SUITE.erl +++ b/erts/emulator/test/fun_SUITE.erl @@ -513,6 +513,8 @@ refc(Config) when is_list(Config) -> Other -> ct:fail({unexpected,Other}) end, process_flag(trap_exit, false), + %% Wait to make sure that the process has terminated completely. + receive after 1 -> ok end, {refc,3} = erlang:fun_info(F1, refc), %% Garbage collect. Only the F2 fun will be left. |