aboutsummaryrefslogtreecommitdiffstats
path: root/erts
diff options
context:
space:
mode:
authorSverker Eriksson <[email protected]>2011-07-26 14:48:27 +0200
committerSverker Eriksson <[email protected]>2011-07-26 14:56:02 +0200
commit8af1010d7920c38c71821c846f86f848b9beb909 (patch)
tree5793ad10d1fcf8c8342cb1c7eeb284ca6239d972 /erts
parenta3d8134ffcb4ec7be60bdc896fb9be0928c2b1ff (diff)
downloadotp-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')
-rw-r--r--erts/emulator/test/fun_SUITE.erl10
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) ->