From 822b60430eeae0ae32aca52019762566fec1acce Mon Sep 17 00:00:00 2001
From: Sverker Eriksson <sverker@erlang.org>
Date: Fri, 19 Oct 2018 20:08:22 +0200
Subject: erts: Provoke random catree split/join for DEBUG emulator

---
 lib/stdlib/test/ets_SUITE.erl | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'lib/stdlib/test/ets_SUITE.erl')

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) ->
-- 
cgit v1.2.3