diff options
| author | Sverker Eriksson <[email protected]> | 2011-07-26 14:48:27 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2011-07-26 14:56:02 +0200 |
| commit | 8af1010d7920c38c71821c846f86f848b9beb909 (patch) | |
| tree | 5793ad10d1fcf8c8342cb1c7eeb284ca6239d972 /erts/emulator/test/fun_SUITE.erl | |
| parent | a3d8134ffcb4ec7be60bdc896fb9be0928c2b1ff (diff) | |
| download | otp-8af1010d7920c38c71821c846f86f848b9beb909.tar.gz otp-8af1010d7920c38c71821c846f86f848b9beb909.tar.bz2 otp-8af1010d7920c38c71821c846f86f848b9beb909.zip | |
Fix test case fun_SUITE:refc_dist
It failed sometimes depending on GC invocation.
Diffstat (limited to 'erts/emulator/test/fun_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/fun_SUITE.erl | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/erts/emulator/test/fun_SUITE.erl b/erts/emulator/test/fun_SUITE.erl index 7795efe57e..559e540016 100644 --- a/erts/emulator/test/fun_SUITE.erl +++ b/erts/emulator/test/fun_SUITE.erl @@ -647,17 +647,11 @@ refc_dist_1() -> %% Fun is passed in an exit signal. Wait until it is gone. ?line wait_until(fun () -> 4 =/= fun_refc(F2) end), ?line 3 = fun_refc(F2), - erts_debug:set_internal_state(available_internal_state, true), - ?line F_refc = case erts_debug:get_internal_state(force_heap_frags) of - false -> 3; - true -> 2 % GC after bif already decreased it - end, - ?line F_refc = fun_refc(F), - erts_debug:set_internal_state(available_internal_state, false), + ?line true = erlang:garbage_collect(), + ?line 2 = fun_refc(F), refc_dist_send(Node, F). refc_dist_send(Node, F) -> - ?line true = erlang:garbage_collect(), ?line Pid = spawn_link(Node, fun() -> receive {To,Fun} when is_function(Fun) -> |