diff options
| author | Björn Gustavsson <[email protected]> | 2016-02-28 07:42:35 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2016-03-09 12:08:36 +0100 |
| commit | d1fa4cb61880930ee19f81fbbfc59c8edb472a0f (patch) | |
| tree | 5cedb9e19f75be39e6d86cdcdad1e42d5b4406cd /lib/stdlib/test/gen_server_SUITE.erl | |
| parent | 511ff3279897028cabace38388d475eb4e4c56ec (diff) | |
| download | otp-d1fa4cb61880930ee19f81fbbfc59c8edb472a0f.tar.gz otp-d1fa4cb61880930ee19f81fbbfc59c8edb472a0f.tar.bz2 otp-d1fa4cb61880930ee19f81fbbfc59c8edb472a0f.zip | |
Eliminate use of test_server:do_times()
Diffstat (limited to 'lib/stdlib/test/gen_server_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/gen_server_SUITE.erl | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lib/stdlib/test/gen_server_SUITE.erl b/lib/stdlib/test/gen_server_SUITE.erl index 5f29fc911d..1ada226215 100644 --- a/lib/stdlib/test/gen_server_SUITE.erl +++ b/lib/stdlib/test/gen_server_SUITE.erl @@ -1050,11 +1050,17 @@ otp_5854(Config) when is_list(Config) -> %% returns. otp_7669(Config) when is_list(Config) -> - ?line ?t:do_times(100, fun do_otp_7669_local_ignore/0), - ?line ?t:do_times(100, fun do_otp_7669_global_ignore/0), - ?line ?t:do_times(10, fun do_otp_7669_stop/0), + do_times(100, fun do_otp_7669_local_ignore/0), + do_times(100, fun do_otp_7669_global_ignore/0), + do_times(10, fun do_otp_7669_stop/0), ok. +do_times(0, _) -> + ok; +do_times(N, Fun) -> + Fun(), + do_times(N-1, Fun). + do_otp_7669_local_ignore() -> %% The name should never be registered after the return %% from gen_server:start/3. |