Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:19
erlang
1315-system-test-Add-printouts-during-the-node-...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 1315-system-test-Add-printouts-during-the-node-start.patch of Package erlang
From 39b073ec2cf48a5af5cf2130326019d2112cd1b4 Mon Sep 17 00:00:00 2001 From: Micael Karlberg <bmk@erlang.org> Date: Fri, 15 Oct 2021 16:19:53 +0200 Subject: [PATCH 2/3] [system|test] Add printouts during the node start OTP-17615 --- erts/test/upgrade_SUITE.erl | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) diff --git a/erts/test/upgrade_SUITE.erl b/erts/test/upgrade_SUITE.erl index b050f7e61d..121384e64a 100644 --- a/erts/test/upgrade_SUITE.erl +++ b/erts/test/upgrade_SUITE.erl @@ -520,19 +520,33 @@ wait_node_up(ExpStatus,ExpVsn,ExpApps0) -> wait_node_up(Node,ExpStatus,ExpVsn,lists:keysort(1,ExpApps),60). wait_node_up(Node,ExpStatus,ExpVsn,ExpApps,0) -> + p("wait_node_up -> fail"), ct:fail({app_check_failed,ExpVsn,ExpApps, rpc:call(Node,release_handler,which_releases,[ExpStatus]), rpc:call(Node,application,which_applications,[])}); wait_node_up(Node,ExpStatus,ExpVsn,ExpApps,N) -> timer:sleep(2000), + p("wait_node_up -> [~w] get release vsn and apps", [N]), case {rpc:call(Node,release_handler,which_releases,[ExpStatus]), rpc:call(Node, application, which_applications, [])} of {[{_,ExpVsn,_,_}],Apps} when is_list(Apps) -> + p("wait_node_up -> [~w] expected release vsn", [N]), case [{A,V} || {A,_,V} <- lists:keysort(1,Apps)] of - ExpApps -> {ok,Node}; - _ -> wait_node_up(Node,ExpStatus,ExpVsn,ExpApps,N-1) + ExpApps -> + p("wait_node_up -> [~w] expected apps", [N]), + {ok, Node}; + UnexpApps -> + p("wait_node_up -> [~w] still wrong apps:" + "~n ~p", [N, UnexpApps]), + wait_node_up(Node,ExpStatus,ExpVsn,ExpApps,N-1) end; - _ -> + {[{_,Vsn,_,_}],_} -> + p("wait_node_up -> [~w] still wrong release vsn:" + "~n ~p", [N, Vsn]), + wait_node_up(Node,ExpStatus,ExpVsn,ExpApps,N-1); + X -> + p("wait_node_up -> [~w] unexpected results:" + "~n ~p", [N, X]), wait_node_up(Node,ExpStatus,ExpVsn,ExpApps,N-1) end. -- 2.31.1
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor