From fdd72bc94149c7e279b5c4fd5a040af1886a4c72 Mon Sep 17 00:00:00 2001
From: Raimo Niskanen <raimo@erlang.org>
Date: Thu, 18 Feb 2016 11:17:42 +0100
Subject: Rename retry -> postpone

---
 lib/stdlib/test/gen_statem_SUITE.erl | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'lib/stdlib/test')

diff --git a/lib/stdlib/test/gen_statem_SUITE.erl b/lib/stdlib/test/gen_statem_SUITE.erl
index facc36fb9f..8b619b6a60 100644
--- a/lib/stdlib/test/gen_statem_SUITE.erl
+++ b/lib/stdlib/test/gen_statem_SUITE.erl
@@ -1032,7 +1032,10 @@ do_connect(STM) ->
     gen_statem:cast(STM, {connect,self()}),
     wfor(accept),
     check_state(STM, wfor_conf),
+    Tag = make_ref(),
+    gen_statem:cast(STM, {ping,self(),Tag}),
     gen_statem:cast(STM, confirm),
+    wfor({pong,Tag}),
     check_state(STM, connected),
     ok.
 
@@ -1071,7 +1074,10 @@ do_sync_connect(STM) ->
     check_state(STM, idle),
     accept = gen_statem:call(STM, connect),
     check_state(STM, wfor_conf),
+    Tag = make_ref(),
+    gen_statem:cast(STM, {ping,self(),Tag}),
     yes = gen_statem:call(STM, confirm),
+    wfor({pong,Tag}),
     check_state(STM, connected),
     ok.
 
@@ -1202,6 +1208,8 @@ timeout3(_, _, _, State, Data) ->
 wfor_conf({call,From}, confirm, _, _, Data) ->
     {next_state,connected,Data,
      [{reply,From,yes}]};
+wfor_conf(cast, {ping,_,_}, _, State, Data) ->
+    {next_state,State,Data,[postpone]};
 wfor_conf(cast, confirm, _, _, Data) ->
     {next_state,connected,Data};
 wfor_conf(Type, Content, PrevState, State, Data) ->
@@ -1229,6 +1237,9 @@ connected({call,From}, disconnect, _, _, Data) ->
      [{reply,From,yes}]};
 connected(cast, disconnect, _, _, Data) ->
     {next_state,idle,Data};
+connected(cast, {ping,Pid,Tag}, _, State, Data) ->
+    Pid ! {pong,Tag},
+    {next_state,State,Data};
 connected(Type, Content, PrevState, State, Data) ->
     case handle_common_events(Type, Content, PrevState, State, Data) of
 	undefined ->
-- 
cgit v1.2.3