Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:23
erlang
0164-megaco-udp-test-Tweaking-timeouts.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 0164-megaco-udp-test-Tweaking-timeouts.patch of Package erlang
From 4b0432b68a54815dbd44b5edc8cae7b6f6290b6d Mon Sep 17 00:00:00 2001 From: Micael Karlberg <bmk@erlang.org> Date: Wed, 7 Apr 2021 17:38:58 +0200 Subject: [PATCH 1/2] [megaco|udp|test] Tweaking timeouts --- lib/megaco/test/megaco_udp_SUITE.erl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/megaco/test/megaco_udp_SUITE.erl b/lib/megaco/test/megaco_udp_SUITE.erl index b27bcbe83f..2f395ab673 100644 --- a/lib/megaco/test/megaco_udp_SUITE.erl +++ b/lib/megaco/test/megaco_udp_SUITE.erl @@ -656,6 +656,7 @@ do_block_unblock(Factor, [ServerNode, ClientNode]) -> TOCalc = fun(BaseTO) -> to_calc(Factor, BaseTO) end, TO = TOCalc(?SECS(5)), ServerPort = 2944, + p("generated command sequences with timeout: ~w msec", [TO]), ServerCmds = block_unblock_server_commands(TO, ServerPort), {ok, ServerHost} = inet:gethostname(), ClientCmds = block_unblock_client_commands(TO, ServerPort, ServerHost), @@ -761,13 +762,13 @@ block_unblock_server_commands(TO, Port) -> #{id => 9, desc => "Await nothing before receiving (hoppsan) reply", cmd => fun(State) -> - server_await_nothing(State, TO) + server_await_nothing(State, TO div 2) end}, #{id => 10, desc => "Await reply (hoppsan) to message", cmd => fun(State) -> - server_await_message(State, "hoppsan", TO div 2) + server_await_message(State, "hoppsan", TO) end}, #{id => 11, @@ -1081,6 +1082,7 @@ server_notify_operational(#{parent := Parent} = State) -> server_await_continue_signal(#{parent := Parent} = State, Timeout) -> receive {continue, Parent} -> + p("received expected continue signal"), {ok, State} after Timeout -> {error, timeout} -- 2.26.2
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor