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_fsm_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_fsm_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/gen_fsm_SUITE.erl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/stdlib/test/gen_fsm_SUITE.erl b/lib/stdlib/test/gen_fsm_SUITE.erl index 4a772c2169..c097f3b645 100644 --- a/lib/stdlib/test/gen_fsm_SUITE.erl +++ b/lib/stdlib/test/gen_fsm_SUITE.erl @@ -44,7 +44,6 @@ -export([enter_loop/1]). %% Exports for apply --export([do_msg/1, do_sync_msg/1]). -export([enter_loop/2]). % The gen_fsm behaviour @@ -894,7 +893,7 @@ do_func_test(FSM) -> ok = do_connect(FSM), ok = gen_fsm:send_all_state_event(FSM, {'alive?', self()}), wfor(yes), - test_server:do_times(3, ?MODULE, do_msg, [FSM]), + _ = [do_msg(FSM) || _ <- lists:seq(1, 3)], ok = gen_fsm:send_all_state_event(FSM, {'alive?', self()}), wfor(yes), ok = do_disconnect(FSM), @@ -932,7 +931,7 @@ do_sync_func_test(FSM) -> yes = gen_fsm:sync_send_all_state_event(FSM, 'alive?'), ok = do_sync_connect(FSM), yes = gen_fsm:sync_send_all_state_event(FSM, 'alive?'), - test_server:do_times(3, ?MODULE, do_sync_msg, [FSM]), + _ = [do_sync_msg(FSM) || _ <- lists:seq(1, 3)], yes = gen_fsm:sync_send_all_state_event(FSM, 'alive?'), ok = do_sync_disconnect(FSM), yes = gen_fsm:sync_send_all_state_event(FSM, 'alive?'), |