diff options
| author | Sverker Eriksson <[email protected]> | 2013-03-27 20:20:43 +0100 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2013-03-27 20:20:43 +0100 |
| commit | 4ca7a3e68e743964c1f22bbbeabab52508797a0e (patch) | |
| tree | 0b860f51cb05686f3bb08144ca49aac8425270da | |
| parent | 41632ca2c815df97654b4021af2f3cc3930298db (diff) | |
| download | otp-4ca7a3e68e743964c1f22bbbeabab52508797a0e.tar.gz otp-4ca7a3e68e743964c1f22bbbeabab52508797a0e.tar.bz2 otp-4ca7a3e68e743964c1f22bbbeabab52508797a0e.zip | |
stdlib: Fix unstable testcase ets_SUITE:delete_large_named_table
Remove the call trace from this testcase as we cannot guarantee named
table to be gone until ets:delete returns anyway.
| -rw-r--r-- | lib/stdlib/test/ets_SUITE.erl | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lib/stdlib/test/ets_SUITE.erl b/lib/stdlib/test/ets_SUITE.erl index d40609eeb0..af5d5a8f21 100644 --- a/lib/stdlib/test/ets_SUITE.erl +++ b/lib/stdlib/test/ets_SUITE.erl @@ -3268,15 +3268,14 @@ delete_large_named_table_1(Name, Flags, Data, Fix) -> end, Parent = self(), {Pid, MRef} = my_spawn_opt(fun() -> - receive - {trace,Parent,call,_} -> - ets_new(Name, [named_table]) - end - end, [link, monitor]), - ?line erlang:trace(self(), true, [call,{tracer,Pid}]), - ?line erlang:trace_pattern({ets,delete,1}, true, [global]), - ?line erlang:yield(), true = ets:delete(Tab), - ?line erlang:trace_pattern({ets,delete,1}, false, [global]), + receive + ets_new -> + ets_new(Name, [named_table]) + end + end, + [link, monitor]), + true = ets:delete(Tab), + Pid ! ets_new, receive {'DOWN',MRef,process,Pid,_} -> ok end, ok. |