Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:23
erlang
7621-snmp-manager-test-Tweaked-the-usm-priv-aes...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 7621-snmp-manager-test-Tweaked-the-usm-priv-aes-test-case.patch of Package erlang
From 7eb42eb94413d88c8d0821151b771f582e64f0a0 Mon Sep 17 00:00:00 2001 From: Micael Karlberg <bmk@erlang.org> Date: Fri, 11 Dec 2020 11:34:46 +0100 Subject: [PATCH 1/2] [snmp|manager|test] Tweaked the usm-priv-aes test case --- lib/snmp/test/snmp_manager_SUITE.erl | 27 +++++++++++++++++++-------- 1 file changed, 19 insertions(+), 8 deletions(-) diff --git a/lib/snmp/test/snmp_manager_SUITE.erl b/lib/snmp/test/snmp_manager_SUITE.erl index 53557f7d77..12bfa2a1b1 100644 --- a/lib/snmp/test/snmp_manager_SUITE.erl +++ b/lib/snmp/test/snmp_manager_SUITE.erl @@ -1420,14 +1420,14 @@ usm_priv_aes(Config) when is_list(Config) -> {dir, ConfDir}, {db_dir, DbDir}]}], - io:format("[~s] try starting manager", [?FTS()]), + ?IPRINT("try starting manager"), ok = snmpm:start(Opts), ?SLEEP(1000), % Give it time to settle ok end, Case = fun(_) -> do_usm_priv_aes(Config) end, Post = fun(_) -> - io:format("[~s] try stop manager", [?FTS()]), + ?IPRINT("[~s] try stop manager"), ok = snmpm:stop(), ?SLEEP(1000), % Give it time to settle ok @@ -1435,10 +1435,13 @@ usm_priv_aes(Config) when is_list(Config) -> ?TC_TRY(usm_priv_aes, Pre, Case, Post). do_usm_priv_aes(Config) -> - io:format("[~s] starting with Config: " - "~n ~p", [?FTS(), Config]), + ?IPRINT("starting with Config: " + "~n ~p", [Config]), + + put(sname, "TC[usm-priv-aes]"), + put(verbosity, trace), - io:format("[~s] generate AES-encrypted message", [?FTS()]), + ?IPRINT("generate AES-encrypted message"), EngineID = [128,0,0,0,6], SecName = "v3_user", @@ -1465,6 +1468,7 @@ do_usm_priv_aes(Config) -> {sec_name, SecName} ], + ?IPRINT("register user, usm-user and agent"), snmpm:register_user(SecName, snmpm_user_default, nil), snmpm:register_usm_user(EngineID, SecName, Credentials), snmpm:register_agent(SecName, "v3_agent", AgentConfig), @@ -1494,9 +1498,11 @@ do_usm_priv_aes(Config) -> _MsgPrivacyParameters = PrivKey }, + ?IPRINT("get engine mms"), {ok, MsgMaxSize} = snmpm_config:get_engine_max_message_size(), + ?IPRINT("encode scoped pdu"), Message = { message, _Version = 'version-3', @@ -1515,6 +1521,7 @@ do_usm_priv_aes(Config) -> SecLevel = 2, + ?IPRINT("generate outgoing message"), Msg = snmpm_usm:generate_outgoing_msg( Message, @@ -1524,12 +1531,14 @@ do_usm_priv_aes(Config) -> SecLevel ), - io:format("[~s] got AES-encrypted message, now decrypt: " - "~n ~p", [?FTS(), Msg]), + ?IPRINT("got AES-encrypted message, now decrypt: " + "~n ~p", [Msg]), {message, _Version, Hdr, NextData} = snmp_pdus:dec_message_only(Msg), + ?IPRINT("AES-encrypted message decrypted - now match"), + { v3_hdr, _MsgID, _MsgMaxSize, @@ -1539,6 +1548,8 @@ do_usm_priv_aes(Config) -> _Hdr_size } = Hdr, + ?IPRINT("process incoming message"), + { ok, { _MsgAuthEngineID, _SecName, @@ -1555,7 +1566,7 @@ do_usm_priv_aes(Config) -> Data = ScopedPDUBytes, - io:format("[~s] Message decrypted", [?FTS()]), + ?IPRINT("message decrypted"), ok. -- 2.26.2
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor