[ct] Print unicode atoms and strings correctly in common_test logs

And use correct encoding when printing to files.

1 files changed, 5 insertions, 5 deletions

diff --git a/lib/common_test/src/test_server_gl.erl b/lib/common_test/src/test_server_gl.erl
index 4845b86dd3..f5329eb774 100644
--- a/lib/common_test/src/test_server_gl.erl
+++ b/lib/common_test/src/test_server_gl.erl
@@ -173,8 +173,8 @@ handle_info({'DOWN',Ref,process,_,Reason}=D, #st{minor_monitor=Ref}=St) ->
     case Reason of
 	normal -> ok;
 	_ ->
-	    Data = io_lib:format("=== WARNING === TC: ~w\n"
-				 "Got down from minor Fd ~w: ~w\n\n",
+	    Data = io_lib:format("=== WARNING === TC: ~tw\n"
+				 "Got down from minor Fd ~w: ~tw\n\n",
 				 [St#st.tc,St#st.minor,D]),
 	    test_server_io:print_unexpected(Data)
     end,
@@ -319,7 +319,7 @@ output(Level, Str, Sender, From, St) when is_atom(Level) ->
     output_to_file(Level, dress_output(Str, Sender, St), From, St).
 
 output_to_file(minor, Data0, From, #st{tc={M,F,A},minor=none}) ->
-    Data = [io_lib:format("=== ~w:~w/~w\n", [M,F,A]),Data0],
+    Data = [io_lib:format("=== ~w:~tw/~w\n", [M,F,A]),Data0],
     test_server_io:print(From, unexpected_io, Data),
     ok;
 output_to_file(minor, Data, From, #st{tc=TC,minor=Fd}) ->
@@ -328,10 +328,10 @@ output_to_file(minor, Data, From, #st{tc=TC,minor=Fd}) ->
     catch
 	Type:Reason ->
 	    Data1 =
-		[io_lib:format("=== ERROR === TC: ~w\n"
+		[io_lib:format("=== ERROR === TC: ~tw\n"
 			       "Failed to write to minor Fd: ~w\n"
 			       "Type: ~w\n"
-			       "Reason: ~w\n",
+			       "Reason: ~tw\n",
 			       [TC,Fd,Type,Reason]),
 		 Data,"\n"],
 	    test_server_io:print(From, unexpected_io, Data1)