Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:19
erlang
1095-ssh-Misc-testcase-fixes.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 1095-ssh-Misc-testcase-fixes.patch of Package erlang
From 97ff3d25f8c43bf5ae228e1260cb5b9ba13db08f Mon Sep 17 00:00:00 2001 From: Hans Nilsson <hans@erlang.org> Date: Tue, 22 Dec 2020 16:40:38 +0100 Subject: [PATCH] ssh: Misc testcase fixes --- .../property_test/ssh_eqc_client_server.erl | 4 ++-- lib/ssh/test/ssh_echo_server.erl | 1 + lib/ssh/test/ssh_options_SUITE.erl | 22 +++++++++---------- 3 files changed, 14 insertions(+), 13 deletions(-) diff --git a/lib/ssh/test/property_test/ssh_eqc_client_server.erl b/lib/ssh/test/property_test/ssh_eqc_client_server.erl index 66a79c8a17..4bfc23d5ff 100644 --- a/lib/ssh/test/property_test/ssh_eqc_client_server.erl +++ b/lib/ssh/test/property_test/ssh_eqc_client_server.erl @@ -287,7 +287,7 @@ client_loop() -> client_loop() end. -do(Pid, Fun) -> do(Pid, Fun, 30?sec). +do(Pid, Fun) -> do(Pid, Fun, 60?sec). do(Pid, Fun, Timeout) when is_function(Fun,0) -> Pid ! {please_do,Fun,Ref=make_ref(),self()}, @@ -418,7 +418,7 @@ ssh_send(C=#chan{conn_ref=ConnectionRef, ref=ChannelRef, client_pid=Pid}, Type, ok -> receive {ssh_cm,ConnectionRef,{data,ChannelRef,Type,Answer}} -> Answer - after 15?sec -> + after 30?sec -> %% receive %% Other -> {error,{unexpected,Other}} %% after 0 -> diff --git a/lib/ssh/test/ssh_echo_server.erl b/lib/ssh/test/ssh_echo_server.erl index e039439f87..0e2519fc84 100644 --- a/lib/ssh/test/ssh_echo_server.erl +++ b/lib/ssh/test/ssh_echo_server.erl @@ -57,6 +57,7 @@ handle_ssh_msg({ssh_cm, CM, {data, ChannelId, 0, Data}}, #state{n = N} = State) case M > 0 of true -> ?DBG(State, "ssh_cm data Cid=~p size(Data)=~p M=~p",[ChannelId,size(Data),M]), + ssh_connection:adjust_window(CM, ChannelId, size(Data)), ssh_connection:send(CM, ChannelId, Data), {ok, State#state{n = M}}; false -> -- 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