diff options
Diffstat (limited to 'lib/megaco/test/megaco_test_megaco_generator.erl')
| -rw-r--r-- | lib/megaco/test/megaco_test_megaco_generator.erl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/megaco/test/megaco_test_megaco_generator.erl b/lib/megaco/test/megaco_test_megaco_generator.erl index 4eedd8d731..f6ea57ab41 100644 --- a/lib/megaco/test/megaco_test_megaco_generator.erl +++ b/lib/megaco/test/megaco_test_megaco_generator.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2007-2020. All Rights Reserved. +%% Copyright Ericsson AB 2007-2021. 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. @@ -313,6 +313,9 @@ handle_parse({megaco_callback, Verifiers0} = _Instruction, State) handle_parse({trigger, Trigger} = Instruction, State) when is_function(Trigger) -> {ok, Instruction, State}; +handle_parse({trigger, Desc, Trigger} = Instruction, State) + when is_list(Desc) andalso is_function(Trigger) -> + {ok, Instruction, State}; handle_parse(Instruction, _State) -> error({invalid_instruction, Instruction}). @@ -770,6 +773,10 @@ handle_exec({trigger, Trigger}, State) when is_function(Trigger) -> p("trigger"), (catch Trigger()), {ok, State}; +handle_exec({trigger, Desc, Trigger}, State) when is_function(Trigger) -> + p("trigger: ~s", [Desc]), + (catch Trigger()), + {ok, State}; handle_exec({sleep, To}, State) -> p("sleep ~p", [To]), |