diff options
| author | Sverker Eriksson <[email protected]> | 2018-10-19 20:08:22 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2018-10-23 12:36:29 +0200 |
| commit | 822b60430eeae0ae32aca52019762566fec1acce (patch) | |
| tree | a78ed76ffacefd19fdaf2b727e741126af7ac21e /lib/stdlib/test | |
| parent | be9fd1bfaa30ba25b6d3a3a39159c81172964010 (diff) | |
| download | otp-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.erl | 12 |
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) -> |