More tests for meta list values

seriyps · Nov 21, 2023 · 09a95be · 09a95be
1 parent 2dbb6d1
commit 09a95be
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 3 deletions.
diff --git a/src/logger_journald_h.erl b/src/logger_journald_h.erl
@@ -344,7 +344,9 @@ ensure_bytes(V) when is_atom(V) ->
 
 non_io_list_to_bytes(V) ->
     try
-        unicode:characters_to_binary(V)
+        Res = unicode:characters_to_binary(V),
+        is_binary(Res) orelse error(badarg),
+        Res
     catch
         error:badarg ->
             iolist_to_binary(io_lib:format("~w", [V]))

diff --git a/test/logger_journald_h_SUITE.erl b/test/logger_journald_h_SUITE.erl
@@ -129,7 +129,10 @@ just_log_case(Cfg) when is_list(Cfg) ->
         "my_key2" => "my_value2",
         <<"my_key3">> => <<"my_value3">>,
         <<"my_key4">> => {192, 168, 0, 1},
-        ["my", $_, <<"key">>, ["5"]] => 42
+        ["my", $_, <<"key">>, ["5"]] => 42,
+        <<"my_key6">> => [1087,1088,1080,1074,1077,1090],
+        <<"my_key7">> => [123456, 123456, 12345678901234567890],
+        <<"my_key8">> => [ok]
     }),
     ?assertMatch(
         #{
@@ -138,7 +141,10 @@ just_log_case(Cfg) when is_list(Cfg) ->
             <<"MY_KEY2">> := <<"my_value2">>,
             <<"MY_KEY3">> := <<"my_value3">>,
             <<"MY_KEY4">> := <<"{192,168,0,1}">>,
-            <<"MY_KEY5">> := <<"42">>
+            <<"MY_KEY5">> := <<"42">>,
+            <<"MY_KEY6">> := <<208,191,209,128,208,184,208,178,208,181,209,130>>,
+            <<"MY_KEY7">> := <<"[123456,123456,12345678901234567890]">>,
+            <<"MY_KEY8">> := <<"[ok]">>
         },
         p_recv(Srv)
     ),