1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2014-2024. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%% http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.
%%
%% %CopyrightEnd%
%%
-module(standard_error_SUITE).
-include_lib("stdlib/include/assert.hrl").
-export([all/0,suite/0]).
-export([badarg/1,getopts/1,output/1,logging/1]).
suite() ->
[{ct_hooks,[ts_install_cth]}].
all() ->
[badarg,getopts,output,logging].
badarg(Config) when is_list(Config) ->
{'EXIT',{badarg,_}} = (catch io:put_chars(standard_error, [oops])),
true = erlang:is_process_alive(whereis(standard_error)),
ok.
%% Check that standard_out and standard_error have the same encoding
getopts(Config) when is_list(Config) ->
Encoding = proplists:get_value(encoding, io:getopts(user)),
Encoding = proplists:get_value(encoding, io:getopts(standard_error)),
ok.
%% Test that writing a lot of output to standard_error does not cause the
%% processes handling it to terminate like this:
%%
%% =ERROR REPORT==== 9-Aug-2015::23:19:23 ===
%% ** Generic server standard_error_sup terminating
%% ** Last message in was {'EXIT',<0.28.0>,eagain}
%% ** When Server state == {state,standard_error,undefined,<0.28.0>,
%% {local,standard_error_sup}}
%% ** Reason for termination ==
%% ** eagain
%%
%% This problem, observed with Erlang 18.0.2, was fixed in fd_driver by
%% properly handling EAGAIN if it arises on file descriptor writes.
%%
output(Config) when is_list(Config) ->
Ref = monitor(process, standard_error_sup),
Chars = [ [["1234567890" || _ <- lists:seq(1,10)], $\s,
integer_to_list(L), $\r, $\n] || L <- lists:seq(1, 100) ],
ok = io:put_chars(standard_error, Chars),
receive
{'DOWN', Ref, process, _, _} ->
error(standard_error_noproc)
after
500 ->
ok
end.
logging(Config) when is_list(Config) ->
#{ level := Level } = logger:get_primary_config(),
try
Parent = self(),
Device = spawn(fun F() ->
receive
{io_request, From, ReplyAs, M} ->
From ! {io_reply, ReplyAs, ok},
Parent ! M,
F()
end
end),
logger:add_handler(stderr, logger_std_h, #{ filter_default => stop,
config => #{ type => {device, Device} } } ),
ok = io:setopts(standard_error, [{log, all}]),
logger:set_primary_config(level, all),
io:put_chars(standard_error, "hello"),
receive
M1 -> ct:fail({unexpected, M1})
after 5000 -> ok
end,
logger:add_handler_filter(stderr,domain,{fun logger_filters:domain/2, {log, sub, [otp, kernel, io, output]}}),
io:put_chars(standard_error, "world"),
receive
{put_chars,unicode, Msg} ->
true = string:find(Msg, "world") =/= nomatch;
M2 ->
ct:fail({unexpected, M2})
after 5000 -> ct:fail(timeout)
end
after
logger:set_primary_config(level, Level),
logger:remove_handler(stderr),
io:setopts(standard_error, [{log, false}])
end.
|
