diff options
| author | Hans Nilsson <[email protected]> | 2015-11-04 10:41:21 +0100 |
|---|---|---|
| committer | Hans Nilsson <[email protected]> | 2015-11-04 10:41:21 +0100 |
| commit | ce2c23ed1d6b6dc3d1a1c7109ceae255d1203f9f (patch) | |
| tree | 2dab948482c06cd38276759a9f521a12df37e89f /lib/ssh/test/ssh_trpt_test_lib.erl | |
| parent | 394cf96ac3f8dbde7f062fd24457e8114ad4f1ef (diff) | |
| parent | 4f085471fc4e1886bd7549cf135e7038a87e6a8e (diff) | |
| download | otp-ce2c23ed1d6b6dc3d1a1c7109ceae255d1203f9f.tar.gz otp-ce2c23ed1d6b6dc3d1a1c7109ceae255d1203f9f.tar.bz2 otp-ce2c23ed1d6b6dc3d1a1c7109ceae255d1203f9f.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib/ssh/test/ssh_trpt_test_lib.erl')
| -rw-r--r-- | lib/ssh/test/ssh_trpt_test_lib.erl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/ssh/test/ssh_trpt_test_lib.erl b/lib/ssh/test/ssh_trpt_test_lib.erl index 5080b33249..4269529ae8 100644 --- a/lib/ssh/test/ssh_trpt_test_lib.erl +++ b/lib/ssh/test/ssh_trpt_test_lib.erl @@ -386,7 +386,14 @@ send(S0, Line) when is_binary(Line) -> fun(X) when X==true;X==detail -> {"Send line~n~p~n",[Line]} end), send_bytes(Line, S#s{return_value = Line}); -%%% Msg = #ssh_msg_*{} +send(S0, {special,Msg,PacketFun}) when is_tuple(Msg), + is_function(PacketFun,2) -> + S = opt(print_messages, S0, + fun(X) when X==true;X==detail -> {"Send~n~s~n",[format_msg(Msg)]} end), + {Packet, C} = PacketFun(Msg, S#s.ssh), + send_bytes(Packet, S#s{ssh = C, %%inc_send_seq_num(C), + return_value = Msg}); + send(S0, Msg) when is_tuple(Msg) -> S = opt(print_messages, S0, fun(X) when X==true;X==detail -> {"Send~n~s~n",[format_msg(Msg)]} end), |