refactor: call hocon_tconf:check_plain/4 directly for example conf check

the attemp to re-use emqx_hocon:check failed because
hocon_tconf:check_plain/3 and check_plain/4 behaves slightly different
for unknown root fields.

To keep the old logic unchanged, for example config checks, we call
check_plain/4 directly

apps/emqx/src/emqx_hocon.erl

@@ -47,8 +47,7 @@ check(SchemaModule, Conf) ->
 
 check(SchemaModule, Conf, Opts) when is_map(Conf) ->
     try
-        RootNames = maps:keys(Conf),
+        {ok, hocon_tconf:check_plain(SchemaModule, Conf, Opts)}
-        {ok, hocon_tconf:check_plain(SchemaModule, Conf, Opts, RootNames)}
     catch
         throw:Errors:Stacktrace ->
             compact_errors(Errors, Stacktrace)
@@ -144,19 +143,21 @@ load_and_check(SchemaModule, File) ->
     try
         do_load_and_check(SchemaModule, File)
     catch
-        throw:Reason ->
+        throw:Reason:Stacktrace ->
-            {error, Reason}
+            compact_errors(Reason, Stacktrace)
     end.
 
 do_load_and_check(SchemaModule, File) ->
-    Conf =
+    case hocon:load(File, #{format => map}) of
-        case hocon:load(File, #{format => map}) of
+        {ok, Conf} ->
-            {ok, Conf0} ->
+            Opts = #{atom_key => false, required => false},
-                Conf0;
+            %% here we check only the provided root keys
-            {error, {parse_error, Reason}} ->
+            %% because the examples are all provided only with one (or maybe two) roots
-                throw(Reason);
+            %% and some roots have required fields.
-            {error, Reason} ->
+            RootKeys = maps:keys(Conf),
-                throw(Reason)
+            {ok, hocon_tconf:check_plain(SchemaModule, Conf, Opts, RootKeys)};
-        end,
+        {error, {parse_error, Reason}} ->
-    Opts = #{atom_key => false, required => false},
+            {error, Reason};
-    check(SchemaModule, Conf, Opts).
+        {error, Reason} ->
+            {error, Reason}
+    end.