Skip to content
Browse files

Merge branch 'sverker/fun_SUITE-refc_dist-gcfix' into dev

* sverker/fun_SUITE-refc_dist-gcfix:
  Fix test case fun_SUITE:refc_dist
  • Loading branch information...
2 parents 74ced1a + 8af1010 commit 388bb54ba7128c1242c3fbee8a45168bd20110a4 @sverker sverker committed Jul 27, 2011
Showing with 2 additions and 8 deletions.
  1. +2 −8 erts/emulator/test/fun_SUITE.erl
View
10 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) ->

0 comments on commit 388bb54

Please sign in to comment.
Something went wrong with that request. Please try again.