Skip to content

Commit 44b8fbe

Browse files
committed
Merge branch 'maint'
2 parents a71ffa5 + d52bec9 commit 44b8fbe

File tree

3 files changed

+56
-2
lines changed

3 files changed

+56
-2
lines changed

lib/kernel/src/group.erl

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -526,8 +526,6 @@ handle_info(_State, {'EXIT',Shell,R}, #state{ shell = Shell, driver = Drv }) ->
526526

527527
handle_info(_State, _UnknownEvent, _Data) ->
528528
%% Ignore this unknown message.
529-
erlang:display({unknown, _UnknownEvent}),
530-
ok = _UnknownEvent,
531529
keep_state_and_data.
532530

533531
%% When we get an input request while already serving another, we

lib/kernel/test/Makefile

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -136,6 +136,7 @@ MODULES= \
136136
standard_error_SUITE \
137137
multi_load_SUITE \
138138
shell_test_lib \
139+
group_SUITE \
139140
zzz_SUITE
140141

141142
APP_FILES = \

lib/kernel/test/group_SUITE.erl

Lines changed: 55 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,55 @@
1+
%%
2+
%% %CopyrightBegin%
3+
%%
4+
%% SPDX-License-Identifier: Apache-2.0
5+
%%
6+
%% Copyright Ericsson AB 2025. All Rights Reserved.
7+
%%
8+
%% Licensed under the Apache License, Version 2.0 (the "License");
9+
%% you may not use this file except in compliance with the License.
10+
%% You may obtain a copy of the License at
11+
%%
12+
%% http://www.apache.org/licenses/LICENSE-2.0
13+
%%
14+
%% Unless required by applicable law or agreed to in writing, software
15+
%% distributed under the License is distributed on an "AS IS" BASIS,
16+
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
17+
%% See the License for the specific language governing permissions and
18+
%% limitations under the License.
19+
%%
20+
%% %CopyrightEnd%
21+
%%
22+
23+
-module(group_SUITE).
24+
25+
-export([all/0,
26+
suite/0,
27+
init_per_suite/1,
28+
end_per_suite/1]).
29+
30+
-export([check_unknown_message/1]).
31+
32+
suite() ->
33+
[{ct_hooks,[ts_install_cth]},
34+
{timetrap,{seconds,30}}].
35+
36+
all() ->
37+
[check_unknown_message].
38+
39+
init_per_suite(Config) ->
40+
Config.
41+
42+
end_per_suite(Config) ->
43+
Config.
44+
45+
check_unknown_message(_Config) ->
46+
Drv = spawn_link(fun() -> timer:sleep(infinity) end),
47+
Group = group:start(Drv),
48+
try
49+
Group ! unknown,
50+
timer:sleep(100),
51+
true = is_process_alive(Group)
52+
after
53+
ok = gen_statem:stop(Group)
54+
end.
55+

0 commit comments

Comments
 (0)