lukas/kernel/logger_set_app_lvl/PR-1843/OTP-15146

Add logger:set_application_level/2

1 files changed, 29 insertions, 0 deletions

diff --git a/lib/kernel/test/logger_SUITE.erl b/lib/kernel/test/logger_SUITE.erl
index 8f74ebdc47..6bd9b20c35 100644
--- a/lib/kernel/test/logger_SUITE.erl
+++ b/lib/kernel/test/logger_SUITE.erl
@@ -87,6 +87,7 @@ all() ->
      macros,
      set_level,
      set_module_level,
+     set_application_level,
      cache_module_level,
      format_report,
      filter_failed,
@@ -423,6 +424,34 @@ set_module_level(cleanup,_Config) ->
     logger:unset_module_level(?MODULE),
     ok.
 
+set_application_level(_Config) ->
+
+    {error,{not_loaded,mnesia}} = logger:set_application_level(mnesia, warning),
+    {error,{not_loaded,mnesia}} = logger:unset_application_level(mnesia),
+
+    application:load(mnesia),
+    {ok, Modules} = application:get_key(mnesia, modules),
+    [] = logger:get_module_level(Modules),
+
+    {error,{invalid_level,warn}} = logger:set_application_level(mnesia, warn),
+
+    ok = logger:set_application_level(mnesia, debug),
+    DebugModules = lists:sort([{M,debug} || M <- Modules]),
+    DebugModules = lists:sort(logger:get_module_level(Modules)),
+
+    ok = logger:set_application_level(mnesia, warning),
+
+    WarnModules = lists:sort([{M,warning} || M <- Modules]),
+    WarnModules = lists:sort(logger:get_module_level(Modules)),
+
+    ok = logger:unset_application_level(mnesia),
+    [] = logger:get_module_level(Modules).
+
+set_application_level(cleanup,_Config) ->
+    ok = logger:unset_application_level(mnesia),
+    ok = application:unload(mnesia),
+    ok.
+
 cache_module_level(_Config) ->
     ok = logger:unset_module_level(?MODULE),
     [] = ets:lookup(?LOGGER_TABLE,?MODULE), %dirty - add API in logger_config?