aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ssh/test/ssh_trpt_test_lib.erl
diff options
context:
space:
mode:
authorHans Nilsson <[email protected]>2015-11-04 10:41:21 +0100
committerHans Nilsson <[email protected]>2015-11-04 10:41:21 +0100
commitce2c23ed1d6b6dc3d1a1c7109ceae255d1203f9f (patch)
tree2dab948482c06cd38276759a9f521a12df37e89f /lib/ssh/test/ssh_trpt_test_lib.erl
parent394cf96ac3f8dbde7f062fd24457e8114ad4f1ef (diff)
parent4f085471fc4e1886bd7549cf135e7038a87e6a8e (diff)
downloadotp-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.erl9
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),