diff options
author | Anders Svensson <anders@erlang.org> | 2013-02-15 01:15:07 +0100 |
---|---|---|
committer | Anders Svensson <anders@erlang.org> | 2013-02-16 22:46:46 +0100 |
commit | a6d92d54058d18de12e4706d25cb943b53c60e12 (patch) | |
tree | 1f45184a450c64ade7adaba0afba367ace5c1ebf /lib/diameter | |
parent | 61b9efd8b4cf35dce44ec2fefd26339d2d20cb3c (diff) | |
download | otp-a6d92d54058d18de12e4706d25cb943b53c60e12.tar.gz otp-a6d92d54058d18de12e4706d25cb943b53c60e12.tar.bz2 otp-a6d92d54058d18de12e4706d25cb943b53c60e12.zip |
Minor traffic suite fix
Diffstat (limited to 'lib/diameter')
-rw-r--r-- | lib/diameter/test/diameter_traffic_SUITE.erl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/diameter/test/diameter_traffic_SUITE.erl b/lib/diameter/test/diameter_traffic_SUITE.erl index d3d6fff705..781ed234cc 100644 --- a/lib/diameter/test/diameter_traffic_SUITE.erl +++ b/lib/diameter/test/diameter_traffic_SUITE.erl @@ -798,7 +798,8 @@ prepare_request(Pkt, ?CLIENT, {_Ref, Caps}, Name, Group) -> prepare_request(Pkt, ?CLIENT, {_Ref, Caps}, send_detach, Group, _) -> {eval_packet, {send, prepare(Pkt, Caps, Group)}, [fun log/2, detach]}. -log(#diameter_packet{} = P, T) -> +log(#diameter_packet{bin = Bin} = P, T) + when is_binary(Bin) -> io:format("~p: ~p~n", [T,P]). %% prepare/4 @@ -980,7 +981,8 @@ answer(T, {Tag, Action, Post}) -> {Tag, answer(T, Action), Post}; answer({A,C}, {reply, Ans}) -> answer(C, {reply, msg(Ans, A, diameter_gen_base_rfc3588)}); -answer(pkt, {reply, Ans}) -> +answer(pkt, {reply, Ans}) + when not is_record(Ans, diameter_packet) -> {reply, #diameter_packet{msg = Ans}}; answer(_, T) -> T. |