Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:23
erlang
0765-erts-system-Add-debug-printouts-for-more-u...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 0765-erts-system-Add-debug-printouts-for-more-upgrade-tre.patch of Package erlang
From c26499034d7f3676f5e236436781e7c4ab5625bb Mon Sep 17 00:00:00 2001 From: Micael Karlberg <bmk@erlang.org> Date: Tue, 30 Nov 2021 17:37:29 +0100 Subject: [PATCH] [erts|system] Add debug printouts for more upgrade trest case(s) --- erts/test/upgrade_SUITE.erl | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/erts/test/upgrade_SUITE.erl b/erts/test/upgrade_SUITE.erl index 72383725cf..802fefd7c2 100644 --- a/erts/test/upgrade_SUITE.erl +++ b/erts/test/upgrade_SUITE.erl @@ -84,6 +84,8 @@ all() -> %% If this is major release X, then this test performs an upgrade from %% major release X-1 to the current release. major(Config) -> + put(verbose, true), + p("major -> get current major release"), Current = erlang:system_info(otp_release), PreviousMajor = previous_major(Current), upgrade_test(PreviousMajor,Current,Config). @@ -91,6 +93,8 @@ major(Config) -> %% If this is major release X, then this test performs an upgrade from %% major release X-2 to the current release. ancient_major(Config) -> + put(verbose, true), + p("ancient_major -> get current major release"), Current = erlang:system_info(otp_release), PreviousPreviousMajor = previous_major(previous_major(Current)), upgrade_test(PreviousPreviousMajor,Current,Config). @@ -258,23 +262,32 @@ target_system(RelName0,RelVsn,CreateDir,InstallDir,Config) -> upgrade_system(FromVsn, FromRel, ToRelName0, ToVsn, CreateDir, InstallDir) -> + p("upgrade_system -> create relfile"), {RelName,Apps,_} = create_relfile(node(),CreateDir,ToRelName0,ToVsn), FromPath = filename:join([InstallDir,lib,"*",ebin]), + p("upgrade_system -> make script"), ok = systools:make_script(RelName), + p("upgrade_system -> make relup"), ok = systools:make_relup(RelName,[FromRel],[FromRel], [{path,[FromPath]}, {outdir,CreateDir}]), + case {FromVsn,ToVsn} of - {"20"++_,"21"++_} -> fix_relup_inets_ftp(filename:dirname(RelName)); + {"20"++_,"21"++_} -> + p("upgrade_system -> try fix relup (with regards to inets ftp)"), + fix_relup_inets_ftp(filename:dirname(RelName)); _ -> ok end, + p("upgrade_system -> write system conf file"), SysConfig = filename:join([CreateDir, "sys.config"]), write_file(SysConfig, "[]."), + p("upgrade_system -> make tar"), ok = systools:make_tar(RelName,[{erts,code:root_dir()}]), + p("upgrade_system -> done"), {RelName,Apps}. %% In OTP-21, ftp and tftp were split out from inets and formed two -- 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