diff options
| author | Anders Svensson <[email protected]> | 2017-08-27 14:53:41 +0200 |
|---|---|---|
| committer | Anders Svensson <[email protected]> | 2017-08-28 15:25:53 +0200 |
| commit | ce08fb57a66d20fdb3074ca62b7aac0228825e0a (patch) | |
| tree | 9e77fd21d262b296c86206a82ea76c1007d1bc9f /lib/diameter/test/diameter_event_SUITE.erl | |
| parent | 0bb9e7f639042f8803c3937581ddc9210fd60418 (diff) | |
| download | otp-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.erl | 11 |
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 |