aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/test
diff options
context:
space:
mode:
authorSverker Eriksson <[email protected]>2018-10-19 20:08:22 +0200
committerSverker Eriksson <[email protected]>2018-10-23 12:36:29 +0200
commit822b60430eeae0ae32aca52019762566fec1acce (patch)
treea78ed76ffacefd19fdaf2b727e741126af7ac21e /lib/stdlib/test
parentbe9fd1bfaa30ba25b6d3a3a39159c81172964010 (diff)
downloadotp-822b60430eeae0ae32aca52019762566fec1acce.tar.gz
otp-822b60430eeae0ae32aca52019762566fec1acce.tar.bz2
otp-822b60430eeae0ae32aca52019762566fec1acce.zip
erts: Provoke random catree split/join for DEBUG emulator
Diffstat (limited to 'lib/stdlib/test')
-rw-r--r--lib/stdlib/test/ets_SUITE.erl12
1 files changed, 5 insertions, 7 deletions
diff --git a/lib/stdlib/test/ets_SUITE.erl b/lib/stdlib/test/ets_SUITE.erl
index de7c647610..367c7533b4 100644
--- a/lib/stdlib/test/ets_SUITE.erl
+++ b/lib/stdlib/test/ets_SUITE.erl
@@ -7394,16 +7394,14 @@ stimulate_contention(Tid) ->
stim_inserter_loop(T, RState, Num),
Num = ets:info(T, size),
erts_debug:set_internal_state(ets_force_split, {T, false}),
- Stats1 = ets:info(T,stats),
ets:match_delete(T, {'$1','$1','$1'}),
case ets:info(T,stats) of
- Stats1 ->
- io:format("stimulated ordered_set: ~p\n", [Stats1]);
- Stats2 ->
+ {0, _, _} ->
io:format("Houston, we got a testability problem.\n"
- "Someone seems to have implemented join-on-delete\n"
- "~p =/= ~p\n", [Stats1, Stats2]),
- ct:fail("Join on delete?")
+ "Someone seems to have implemented join-on-delete\n", []),
+ ct:fail("Join on delete?");
+ Stats ->
+ io:format("stimulated ordered_set: ~p\n", [Stats])
end.
stim_inserter_loop(_, _, 0) ->