File 1513-megaco-test-Print-app-environment-at-suite... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 1513-megaco-test-Print-app-environment-at-suite-init.patch of Package erlang (Revision 1cbc14a9258a28addda6173b430c4a37)

Currently displaying revision 1cbc14a9258a28addda6173b430c4a37 , Show latest

From ecf6b31a8e28f523e3e88bd0a8c2f5ea52e4237a Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Fri, 6 Aug 2021 12:52:32 +0200
Subject: [PATCH 13/13] [megaco|test] Print (app) environment at suite init

---
 lib/megaco/test/megaco_test_lib.erl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lib/megaco/test/megaco_test_lib.erl b/lib/megaco/test/megaco_test_lib.erl
index 2627cb3f32..e39e1e3e8a 100644
--- a/lib/megaco/test/megaco_test_lib.erl
+++ b/lib/megaco/test/megaco_test_lib.erl
@@ -481,6 +481,17 @@ pprint(F, A) ->
 
 init_per_suite(Config) ->
 
+    p("megaco environment: "
+      "~n   (megaco) app:  ~p"
+      "~n   (all)    init: ~p"
+      "~n   (megaco) init: ~p",
+      [application:get_all_env(megaco),
+       init:get_arguments(),
+       case init:get_argument(megaco) of
+           {ok, Args} -> Args;
+           error -> undefined
+       end]),
+
     ct:timetrap(minutes(3)),
 
     try analyze_and_print_host_info() of
@@ -2215,6 +2226,7 @@ p(F, A) ->
 print(Pre, F, A) ->
     io:format("*** [~s] [~s] ~p " ++ F ++ "~n", [?FTS(), Pre, self() | A]).
 
+
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 explicit_inet_backend() ->
-- 
2.31.1

Places

File 1513-megaco-test-Print-app-environment-at-suite-init.patch of Package erlang (Revision 1cbc14a9258a28addda6173b430c4a37)

Places