aboutsummaryrefslogtreecommitdiffstats
path: root/lib/diameter/test/diameter_event_SUITE.erl
diff options
context:
space:
mode:
authorAnders Svensson <[email protected]>2017-08-27 14:53:41 +0200
committerAnders Svensson <[email protected]>2017-08-28 15:25:53 +0200
commitce08fb57a66d20fdb3074ca62b7aac0228825e0a (patch)
tree9e77fd21d262b296c86206a82ea76c1007d1bc9f /lib/diameter/test/diameter_event_SUITE.erl
parent0bb9e7f639042f8803c3937581ddc9210fd60418 (diff)
downloadotp-ce08fb57a66d20fdb3074ca62b7aac0228825e0a.tar.gz
otp-ce08fb57a66d20fdb3074ca62b7aac0228825e0a.tar.bz2
otp-ce08fb57a66d20fdb3074ca62b7aac0228825e0a.zip
Fix influence of decode_format on service events
Decoded CER/CEA messages are passed in events messages that can be subscribed to using diameter:subscribe/1. A configured decode_format was not reflected in these, messages always being passed as records. Clarify that strict_arities only applies to message callbacks.
Diffstat (limited to 'lib/diameter/test/diameter_event_SUITE.erl')
-rw-r--r--lib/diameter/test/diameter_event_SUITE.erl11
1 files changed, 7 insertions, 4 deletions
diff --git a/lib/diameter/test/diameter_event_SUITE.erl b/lib/diameter/test/diameter_event_SUITE.erl
index 57d3427037..a291dde6be 100644
--- a/lib/diameter/test/diameter_event_SUITE.erl
+++ b/lib/diameter/test/diameter_event_SUITE.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2013-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2013-2017. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
@@ -63,7 +63,8 @@
{'Host-IP-Address', [?ADDR]},
{'Vendor-Id', 12345},
{'Product-Name', "OTP/diameter"},
- {'Acct-Application-Id', [D:id() || D <- Dicts]}
+ {'Acct-Application-Id', [D:id() || D <- Dicts]},
+ {decode_format, map}
| [{application, [{dictionary, D},
{module, #diameter_callback{}}]}
|| D <- Dicts]]).
@@ -111,7 +112,8 @@ up(Config) ->
{Svc, Ref} = connect(Config, [{connect_timer, 5000},
{watchdog_timer, 15000}]),
start = event(Svc),
- {up, Ref, {TPid, Caps}, Cfg, #diameter_packet{}} = event(Svc),
+ {up, Ref, {TPid, Caps}, Cfg, #diameter_packet{msg = M}} = event(Svc),
+ ['CEA' | #{}] = M, %% assert
{watchdog, Ref, _, {initial, okay}, _} = event(Svc),
%% Kill the transport process and see that the connection is
%% reestablished after a watchdog timeout, not after connect_timer
@@ -131,8 +133,9 @@ down(Config) ->
{connect_timer, 5000},
{watchdog_timer, 20000}]),
start = event(Svc),
- {closed, Ref, {'CEA', ?NO_COMMON_APP, _, #diameter_packet{}}, _}
+ {closed, Ref, {'CEA', ?NO_COMMON_APP, _, #diameter_packet{msg = M}}, _}
= event(Svc),
+ ['CEA' | #{}] = M, %% assert
{reconnect, Ref, _} = event(Svc, 4000, 10000).
%% Connect with matching capabilities but have the server delay its