diff options
| author | Raimo Niskanen <[email protected]> | 2018-03-17 06:49:53 -0700 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2018-03-17 06:49:53 -0700 |
| commit | 57b6fd27292e1c80e8e443991b9a24d3f8ad92eb (patch) | |
| tree | c4c6f5f002d4521ec5ee8bd6a6de87406331d20c /lib/stdlib/test/gen_statem_SUITE.erl | |
| parent | 6ea4eb3aedc011194135493948f141729e36a8c7 (diff) | |
| download | otp-57b6fd27292e1c80e8e443991b9a24d3f8ad92eb.tar.gz otp-57b6fd27292e1c80e8e443991b9a24d3f8ad92eb.tar.bz2 otp-57b6fd27292e1c80e8e443991b9a24d3f8ad92eb.zip | |
Test event insert from init
Diffstat (limited to 'lib/stdlib/test/gen_statem_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/gen_statem_SUITE.erl | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lib/stdlib/test/gen_statem_SUITE.erl b/lib/stdlib/test/gen_statem_SUITE.erl index 5b9daecfd3..270f1c294a 100644 --- a/lib/stdlib/test/gen_statem_SUITE.erl +++ b/lib/stdlib/test/gen_statem_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2016-2017. All Rights Reserved. +%% Copyright Ericsson AB 2016-2018. All Rights Reserved. %% %% Licensed under the Apache License, Version 2.0 (the "License"); %% you may not use this file except in compliance with the License. @@ -21,7 +21,7 @@ -include_lib("common_test/include/ct.hrl"). --compile(export_all). +-compile([export_all, nowarn_export_all]). -behaviour(gen_statem). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -832,9 +832,14 @@ event_types(_Config) -> %% Abusing the internal format of From... #{init => fun () -> - {ok, start, undefined} + {ok, start1, undefined, + [{next_event,internal,0}]} end, - start => + start1 => + fun (internal, 0, undefined) -> + {next_state, start2, undefined} + end, + start2 => fun ({call,_} = Call, Req, undefined) -> {next_state, state1, undefined, [{next_event,internal,1}, |